HERBERS Excel-Forum - die Beispiele

Thema: Kein Eintrag, bevor ein Wert in Zelle A1 enthalten ist

Home

Gruppe

Feature

Problem

Wie kann ich Zelleingaben in Spalte A verhindern, solange in Zelle A1 noch kein Wert steht?

Lösung
Formel bei Gültigkeit: =$A$1<>""
ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range, oCell As Range
   If Target.Font.Bold = False Then Exit Sub
   If Target.Value = "" Then Exit Sub
   If IsNumeric(Target.Value) = False Then Exit Sub
   On Error GoTo ERRORHANDLER
   Application.EnableEvents = False
   With Range("A1").CurrentRegion
      For Each oCell In .Cells
         If oCell.Value = Target.Value And oCell.Font.Bold And oCell.Address <> Target.Address Then
            Beep
            MsgBox "Der eingegebene Wert existiert bereits!"
            Target.ClearContents
            Exit For
         End If
      Next oCell
   End With
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Sub a()
Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Feature und Gültigkeit

Installation: Microsoft Excel-Feature Features werden bei jedem Aufruf neu installiert
nettes feature Features von Excel XP - eure Meinung?
Gültigkeit. Bereich und weiterer Wert möglich? Datengültigkeit und S-verweis
Gültigkeit von 2 Spalten Datenüberprüfung - Gültigkeitskriterium - Quelle
Gültigkeitsprüfung über mehrere Blätter Gültigkeitsliste verringern
Laufzeitfehler 438 bei Datengültigkeit Datengültigkeit mit 2 Bedingungen
Wert aus Gültigkeitsliste -> Bereich kopieren Gruppensumme mit Gültigkeitsdauern
Dropdown mit abhängiger Gültigkeit Die folgenden features können...
Gültigkeit Gültigkeitsbereich bedingte Formatierung
Datenüberprüfung / Gültigkeit Datengültigkeit/Kommentar
Gültigkeitskriterien Drucker in Excel mittels Gültigkeit
Gültigkeit Gültigkeitsprüfung mit RowsCount
Gültigkeit, zulässig nur Monatsanfang oder -ende Hierarchische Gültigkeit
eine Zelle, mit 2 Gültigkeitsprüfungen Excel, Gültigkeitsprüfung, ob wert bereits vorhand
Gültigkeitsüberprüfung Retourwert aus Nebenspalte Gültigkeit von Email-Adressen prüfen
Doppelte Gültigkeitsprüfung (2 Popup-Meldungen) Gültigkeitsprüfung auf Umlaute
Gültigkeitsprüfung von Zahlen Auswahlgültigkeit per vba
Gültigkeitsprüfung von Datum bis Folgemonat Datenüberprüfung - Gültigkeitswerte aus Array
Gültigkeitsliste nur mit gefilteren Werte Gültigkeit - Dropdown
Gültigkeitsliste und Speichern "mögen" sich nicht Benutzerdefinierte Gültigkeit über mehrere Zellen
Gültigkeit von 4 nur 1 Feld ausfüllen Formelknobelei für spezifische Datengültigkeit ...
Datengültigkeitsliste Gültigkeitsliste dynamisch anfragen
abhängige Gültigkeit durch zusätzl. Spalte Kombinierte Gültigkeitskriterien
Daten, Gültigkeit 2016 Gültigkeit Liste erster Buchstabe
zwei Kriterien in Gültigkeitsprüfung Gültigkeit ohne VBA