Überschriftenleiste
26.10.2017 18:24:07
Guesa
folgender Code verhindert das anklicken von Zellen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B19")) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub
Ich würde sie ja am liebsten einfach ausblenden, und fertig. Sollen aber wenn es eben geht erhalten bleiben.
Für Eure Hilfe schon mal vorab ein Danke schön
Gruß, Guesa
Anzeige