Überschrift geschützt, 1 Zelle aber veränderbar
Franz
Komme leider hier nicht weiter. Ich bitte um eure Hilfe.
Private Sub Worksheet_Change(ByVal Target As Range)
If [cellCurrentColCount].Value > 1 Then
If ActiveCell.Name = "cellVIP" Then Exit Sub 'macht er nicht?
If Not Application.Intersect(Range(Cells(2, 1), Cells(2, [cellCurrentColCount])), _
Target) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Beep
Application.StatusBar = "Um Überschriften zu ändern oder neue Spalten einzufügen, mü _
_
_
ssen Sie zuerst das Makro manuell starten."
End If
End If
End Sub
In der Überschrift soll eine Zelle mit dem Namen "cellVIP" (da ist eine Listbox drin) durchhaus eine Änderung zulassen. Was mache ich falsch?
Grüße aus dem Frankenland
Franz D.