Caption von CommandButton in Zelle schre
18.02.2020 10:45:34
CommandButton
ich habe ein UserForm mit 5 Command Button gebaut.
Bei Click eines der Button soll u.a. die Bezeichnung des Button in ein bestimmtes Tabellenblatt (Tabelle4) in eine bestimmte Zelle (C8) übertragen werden.
Dazu habe ich mir folgendes Makro gebastelt, was grundsätzlich funktioniert außer der Teil mit dem Übertrag der Buttonbezeichnung:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
strName = "Funktion1" 'Speichert die Auswahl in einer Public Variable
Tabelle4.Activate
CommandButton1.Caption = Range("C8")
Range(B9).Select
Unload Me
End Sub
Vielen Dank vorab und beste Grüße
Axel