ist es möglich, die Beschriftung eines Command Buttons über ein Tabellenfeld
zu änderen.
Wenn ich z. B. in A1 Test schreibe das dann die Beschriftung des Command Button
sich ändert auf Test.
Danke
Lg
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target.Cells(1), Range("A1")) Is Nothing Then Me.CommandButton1.Caption = Target.Cells(1)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target.Cells(1), Range("A1")) Is Nothing Then Tabelle1.CommandButton1.Caption = Target.Cells(1)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("o22")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Tabelle1.CommandButton1.Caption = Taget.Value
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen