Supportnet / Forum / Tabellenkalkulation
Einzelne Zellen schützen und Format vorgeben
Frage
hallo zusammen,
ich arbeite gerade an einer vorlage und ich möchte das gesamte tabellenblatt vor der eingabe von daten schützen bis auf eine auswahl von einzelnen zellen wo die eingabe möglich sein soll. jedoch soll in diesen zellen das format vorgeben sein, z.b. das nur buchstaben oder zahlen oder ein datum eingetragen werden können.
wie kann ich ein so etwas einstellen?
gruss
dvdh
Antwort 1 von Beverly
Hi,
das ließe sich mit VBA lösen
Bis später,
Karin
das ließe sich mit VBA lösen
Private Sub Worksheet_Change(ByVal Target As Range)
' in Zelle A1 darf nur ein Datum eingegeben werden
If Target.Address = "$A$1" Then
If Not IsDate(Target) Then
MsgBox "Bitte nur ein Datum eingeben"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
' in Zelle B1 darf nur Text eingegeben werden
ElseIf Target.Address = "$B$1" Then
If IsNumeric(Target) Then
MsgBox "Bitte nur Text eingeben"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
' in Zelle C1 dürfen nur Zahlen eingegeben werden
ElseIf Target.Address = "$C$1" Then
If Not IsNumeric(Target) Then
MsgBox "Bitte nur Zahlen eingeben"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End Sub
Bis später,
Karin

