Makros ausführen bei zwei aktivierten Checkboxen
04.11.2014 10:49:56
GefährlichesHalbwissen
seit langer Zeit bin ich bereits großer Fan dieser Plattform - hat sie mir doch regelmäßig bei meinen Excel- und VBA-Problemen weitergeholfen. Auch jetzt bin ich wieder mit meinem Latein am Ende, habe aber hier aber dieses Mal leider keine Lösungen gefunden.
Ich habe in Excel2010 ein UserForm (UserForm.1) erstellt, auf dem u.a. vier Checkboxen (Kontrollkästchen) hinterlegt sind. Jede Checkbox ist bereits mit einem funktionierenden Makro hinterlegt, dass bei Auswahl der Box eine Spalte einblendet bzw. ausblendet:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Columns("D:D").EntireColumn.Hidden = False
Else
Columns("D:D").EntireColumn.Hidden = True
End If
End Sub
Die Makros funktionieren über das UserForm auch einwandfrei. Die anderen Makros sind dementprechend für die CheckBox2-4 hinterlegt und beziehen sich auf die Spalten E bis G auf Tabellenblatt "Tabelle1". Bei maximaler Auswahl aller vier Kontrollkästchen werden also vier Spalten eingeblendet, wenn keine Box angeklickt wird werden alle vier Spalten ausgeblendet.
Nun möchte ich gerne eine weitere Funktion hinzufügen, dass bei der Auswahl von zwei der vier Kontrollkästchen automatisch in der Spalte H auf "Tabelle1" die Differenz der jeweiligen Zellenwerte (bspw. bei der Wahl von Checkbox 1 und 2 werden die Spalten D und E verglichen) angezeigt werden. Die Auswahl der beiden CheckBoxen soll variabel erfolgen; also auch ein Vergleich zwischen Checkbox 1 mit 3; 2 mit 4; 3 mit 4; usw.. Sobald eine dritte und vierte CheckBox angeklickt wird, soll hingegen keine Differenz angezeigt werden.
Ich hoffe, dass meine Erklärung soweit verständlich war. Ansonsten bin ich natürlich gerne für weitere Angaben verfügbar. Schon einmal vielen Dank und euch einen schönen Tag :)