kann ich ein Formularbutton mit dem Text aus Zeile A1 automatisch beschriften? Danke für jeden Tip!
Herzliche Grüße
Werner
'Für Button in Userform
Private Sub UserForm_Initialize()
Me.CommandButton1.Caption = Worksheets("Tabelle1").Range("A1").Text
End Sub
'für Formular-Schaltfläche in Tabellenblatt
'diesen Code im VBA-Editor unter dem Tabellenblatt einfügen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objShape As Shape
If Target.Address = "$A$1" Then
Set objShape = Me.Shapes("Schaltfläche 1")
objShape.TextFrame.Characters.Text = Me.Range("A1").Text
Set objShape = Nothing
End If
End Sub