mehrere Commanbuttons
16.12.2015 17:21:27
Lutz
vielleicht kann mit ja irgendjemand helfen.
ich habe eine UserForm mit 6 Commanbuttons
Es soll je nachdem welcher Button betätigt wurde, der Inhalt des Buttons in eine Zelle geschrieben werden (oder ein Teil des Inhaltes).
Beispielcode für Commandbutton1:
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Unload Me
ActiveCell = Left(CommandButton1.Caption, 3)
ActiveCell.Offset(, 2) = Right(CommandButton1.Caption, 3)
ActiveCell.Offset(, 5).Value = "beendet"
With Union(ActiveCell.Offset(, 5), ActiveCell.Offset(, 6), ActiveCell.Offset(, 7), _
ActiveCell.Offset(, 8))
.Interior.ColorIndex = 35
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.MergeCells = True
End With
ActiveSheet.Protect
End Sub
Meine Frage ist jetzt, kann man den Code so abändern, dass dieser Code für alle Commanbuttons gilt, dass ich nicht für jeden Button ein extra Code schreiben muss !!!
Danke Lutz
Anzeige