Zeile 1-3 Fehlermeldung ausgeben
10.01.2004 11:28:51
Walter
habe ein kleines Problems.
Wenn ich die aktive Celle auf irgendeine Celle im Bereich
Zeile 1-3 von Spalte 1-23 ist, möchte ich das eine Fehlermeldung ausgegeben wird.
Hier mein "Entwurf", leider klappt es nicht.
Sub Zelle_sperren()
'Application.ScreenUpdating = False
' If ActiveCell = ActiveSheet.Range(Cells(1, 1), Cells(3, 23)).Select Then
If ActiveCell = Cells(Cells(1, 1), Cells(3, 23))Then '
MsgBox "Zelle muß gelöscht werden "
End If
Application.ScreenUpdating = True
End Sub
Gruss Walter