Checkbox mit Variable ansprechen
07.09.2015 14:12:42
Psy
habe eine Excel-Tabelle, in welcher 17 Checkboxen (ActiveX-Steuerelemente) enthalten sind.
Wenn ich eine Checkbox auswähle und darin einen Hacken setze, kommt eine MsgBox mit einer Abfrage, ob ein Diagramm in PowerPoint erstellt werden soll. Dies funktioniert auch.
Jetzt könnte ich dies für alle 17 Checkboxen schreiben.
Um mir unnötige Arbeit zu ersparen, kam ich auf die Idee, alle Checkboxen per Schleife _ anzusprechen.
Sub tt()
Dim i As Integer
For i = 1 To 17
'Checkbox per Variable ansprechen um eine Abfrage zu starten, ob ein Diagramm erstellt werden _
_
_
soll
If Tabelle1.OLEObjects("CheckBox" & i).Object.Value = True Then
If MsgBox("Möchten Sie ein Diagramm für die Direktion " & Cells(i + 5, 2).Value & " erstellen?" _
_
_
, vbYesNo, "Frage") = vbNo Then
Tabelle1.OLEObjects("CheckBox" & i).Object.Value = False
Exit For
end if
end sub
Nun zu meiner Frage. Wenn ich oben genannten Code nutze, kann ich zwar damit arbeiten, muss aber das Makro selbstständig starten.
Wenn ich direkt über die Checkbox gehe
Private Sub CheckBox1_Click()
end sub
also einen Hacken setze, wird das Makro direkt ausgeführt.
Gibt es die Möglichkeit, das Makro auszuführen, sobald EINE Checkbox aktiviert wird?
Für jede Unterstützung bedanke ich mich.
Gruß
Anzeige