If Target.Address = "$A$1" Then
Karsten
in folgendem Beispiel habe ich A1 und A2 verbunden.
Der Befehl:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End If
läuft nun so aber nicht. Kann mir jemand den Befehl richtig schreiben?
https://www.herber.de/bbs/user/65999.xls
Danke
Gruß
Karsten