Office 2010: Durch Auswahl von Checkboxen soll ein Linienchart erstellt werden

[hziemer]

Hallo an die Excel Gemeinde

Ich habe folgendes Problem:
Mittels Checkboxen soll der Anwender auswählen können, welche Werte in einem Linienchart angezeigt werden sollen. Die Auswahl kann aus maximal 30 Tabellen bestehen. Wenn der Anwender jetzt die Checkboxen 1, 6, 11, 15, 21 und 25 anhakt, sollen die Werte addiert werden und als ein Y-Wert benutzt werden.
Pro Tabelle sind circa 21000 Werte vorhanden.
Wie kann ich das halbwegs performat umsetzen.
Setze Excel 2010 64bit ein.

Vielleicht hat ja jemand einen Ansatz für dieses Problem.

Auf jeden Fall schon mal vielen Dank an Alle.
Grüße aus dem Schwabenländle
hziemer

[maninweb]

Hallo hziemer,

Du könntest, um z.B. Bezüge per Indirekt usw. zu vermeiden, Dir eine Hilfstabelle anlegen
und Formularsteuerelemente verwenden. Siehe die Mappe mit einem einfachen Beispiel,
das ich hochgeladen habe.

Gruß

[hziemer]

Guten Tag maninweb

Vielen Dank für die prompte Hilfe.
Es hat etwas gedauert, bis ich die Lösung verstanden hatte, aber dann konnte ich es umsetzen und alles funktioniert und ist sehr schnell.
Eine geniale Lösung.

Jetzt bleibt noch ein Problem: Wie kann ich 30 Checkboxen mit einem Klick ein- oder ausschalten?

Mit freundlíchen Grüßen
hziemer

[maninweb]

Hallo hziemer,
Danke. Zu dem anderen Problem, da blieben nur Makros. Kannst/Darfst Du Makros für die Mappe verwenden?

Hab's mal in die Beispielmappe eingebaut. PS: beachte bitte, dass die Mappe nun eine XLSM ist. Beachte auch
bitte die Hinweise in der Mappe. Das Makro selbst ist auch in der Mappe. Hier mal der Code...

Code: Visual Basic

1.   Option Explicit
2.  
3.   Sub AlleAktivierenOderDeaktivieren()
4.    
5.     Dim objControl As Shape
6.     Dim strControl As String
7.    
8. '   Aktuelles Steuerelement...
9.    
10.     strControl = Application.Caller
11.    
12. '   Alle anderen durchlaufen...
13.    
14.     For Each objControl In ActiveSheet.Shapes
15.      
16.       If Not objControl.Type <> msoFormControl And _
17.              objControl.Name <> strControl Then
18.        
19.         If Not objControl.FormControlType <> xlCheckBox Then
20.          
21.           objControl.ControlFormat.Value = ActiveSheet.Shapes(strControl) _
22.          .ControlFormat.Value
23.          
24.         End If
25.        
26.       End If
27.      
28.     Next
29.    
30.   End Sub
31.  

Gruß

[hziemer]

Hallo maninweb
Nochmals vielen Dank für Ihre Hilfe.
Jetzt funktioniert alles.

Mit freundlichen Grüßen aus dem sonnigen Stuttgart
hziemer