möchte eine "verbundene" Zelle sperren für die Eingabe
d.h. die Zelle $AD$4 sollte immer leer sein. Die Zelle
muss leider verbunden bleiben.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Range("$AD$4")) Then
MsgBox "Die Zelle immer leer lassen!.", vbInformation, "Hinweis"""
Range("$AD$4").ClearContents
End If
End Sub
Wenn in die Zelle eine Eingabe erfolgt wird folgende Fehlermeldung
ausgegeben:
Laufzeit fehler'1004'
Kann teil einer vebundenen Zelle nicht ändern
Kann mir dabei jemand helfen?
Grüße