VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kein Eintrag, bevor ein Wert in Zelle A1 enthalten ist

Gruppe

Feature

Bereich

Gültigkeit

Thema

Kein Eintrag, bevor ein Wert in Zelle A1 enthalten ist

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