Microsoft Excel

Herbers Excel/VBA-Archiv

If Target.Address = "$A$1" Then | Herbers Excel-Forum


Betrifft: If Target.Address = "$A$1" Then von: Karsten
Geschrieben am: 18.11.2009 08:49:27

Hallo,

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

  

Betrifft: ..liegt an verbundener zelle.. gruß von: robert
Geschrieben am: 18.11.2009 08:57:17




  

Betrifft: If Target(1).Address = "$A$1" Then oT. von: Tino
Geschrieben am: 18.11.2009 09:00:07




  

Betrifft: noch ein Vorschlag... von: Matthias L
Geschrieben am: 18.11.2009 09:19:23

Hallo

Willst Du wirklich nur bei klick in A3 wieder einschalten?

So habe ich gestestet. Da waren die verbundenen Zellen A1:A2 kein Problem.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
  Application.CommandBars("Standard").Visible = False
  Application.CommandBars("Formatting").Visible = False
  Application.CommandBars("Worksheet Menu Bar").Enabled = False
 Else
  Application.CommandBars("Standard").Visible = True
  Application.CommandBars("Formatting").Visible = True
  Application.CommandBars("Worksheet Menu Bar").Enabled = True
 End If
End Sub
Gruß Matthias


  

Betrifft: AW: noch ein Vorschlag... von: Karsten
Geschrieben am: 18.11.2009 09:42:26

Hallo Matthias,

danke.

Willst Du wirklich nur bei klick in A3 wieder einschalten?

Ich hatte erst mal nachgedacht, wie ich die verbundene Zelle in Griff bekomme.
Obwohl, so funktioniert das für mich.

Gruß
Karsten


  

Betrifft: AW: noch ein Vorschlag... von: Luschi
Geschrieben am: 18.11.2009 10:07:32

Hallo Karsten,

so klappt es ach:

If Target.Offset(0, 0).Address = "$A$1" Then

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: noch ein Vorschlag... von: Karsten
Geschrieben am: 18.11.2009 10:44:20

Danke.

Gruß
Karsten