habe hier ein Tabelle in der ich eine eigene Menüleiste habe.
In der Menüleiste werden bestimmte Punkte zum bearbeiten ausgeblendet wenn man die Zellbereiche a1:c100 oder d1:ge3 selektiert.
Wenn ich dann die Zellen selektiere die erlaubt sind, d4:ge100 werden die Punkte des Menüs wieder eingeblendet.
Wenn ich jetzt aber eine ganze Zeile oder Spalte selektiere bleiben die Punkte natürlich da.
Gibt es eine Möglichkeit wie ich die Ausführung der Makros, welche hinter den entsprechenden Punkten liegen, verhindern kann oder die Punkte dann ausblenden kann wenn eine ganze Spalte oder Zeile selektiert wurde???
Gruß,
Gunnar
Anlage:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Range("A1:c100"), Target) Is Nothing Then
'Da die Zellen nich bearbeitet werden sollen,
'werden die Bearbeitungssymbole der Abwesenheitssymbolleiste ausgeblendet
Application.CommandBars("Abwesenheitsliste").Controls("Abwesenheit").Visible = False
Application.CommandBars("Abwesenheitsliste").Controls("Kommentar einfügen").Visible = False
Application.CommandBars("Abwesenheitsliste").Controls("Kommentar löschen").Visible = False
Application.CommandBars("Abwesenheitsliste").Controls("Eintrag löschen").Visible = False
End If
If Not Application.Intersect(Range("d1:gc3"), Target) Is Nothing Then
'Da die Zellen nich bearbeitet werden sollen,
'werden die Bearbeitungssymbole der Abwesenheitssymbolleiste ausgeblendet
Application.CommandBars("Abwesenheitsliste").Controls("Abwesenheit").Visible = False
Application.CommandBars("Abwesenheitsliste").Controls("Kommentar einfügen").Visible = False
Application.CommandBars("Abwesenheitsliste").Controls("Kommentar löschen").Visible = False
Application.CommandBars("Abwesenheitsliste").Controls("Eintrag löschen").Visible = False
End If
If Not Application.Intersect(Range("D4:GE100"), Target) Is Nothing Then
'Da diese Zellen bearbeitet werden sollen,
'werden die Bearbeitungssymbole der Abwesenheitssymbolleiste eingeblendet
Application.CommandBars("Abwesenheitsliste").Controls("Abwesenheit").Visible = True
Application.CommandBars("Abwesenheitsliste").Controls("Kommentar einfügen").Visible = True
Application.CommandBars("Abwesenheitsliste").Controls("Kommentar löschen").Visible = True
Application.CommandBars("Abwesenheitsliste").Controls("Eintrag löschen").Visible = True
End If
End Sub