VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Doppelte Eingabe von Werten verhinden

Gruppe

Feature

Bereich

Gültigkeit

Thema

Doppelte Eingabe von Werten verhinden

Problem

Wie kann ich verhindern, dass in Spalte A Werte eingegeben werden, die dort in einer anderen Zelle bereits vorhanden sind? Außerdem soll die Eingaben von Zeichenfolgen mit einem "y" verhindert werden.

Lösung

Formel für Gültigkeit: =UND(ZÄHLENWENN(A:A;A1)=1;ISTFEHLER(FINDEN("y";A1)))




StandardModule: basMain

Sub Filtern()
   With ActiveSheet.UsedRange
      .Sort Key1:=Range("A2"), Order1:=xlDescending, _
         Header:=xlGuess, OrderCustom:=1, _
         MatchCase:=False, Orientation:=xlTopToBottom
      .AdvancedFilter Action:=xlFilterCopy, _
         CopyToRange:=Cells(1, .Columns.Count + 1), _
         Unique:=True
      .EntireColumn.Delete
   End With
   Columns.AutoFit
End Sub

    


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