Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon dvdh vom 25.05.2019, 19:41 Options

Einzelne Zellen schützen und Format vorgeben

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 schreiben

Antwort 1 von Beverly vom 25.05.2019, 20:10 Options

Hi,

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken