Gruppe
Feature
Bereich
Gültigkeit
Thema
Einmalige Eingabe zulassen
Problem
Wie kann ich in die Zellen eines Arbeitsblattes nur einmalige Eingaben zulassen?
Lösung
Formel in Menü DATEN / GÜLTIGKEIT: =ANZAHL2(A1:IV65536)=1
StandardModule: mHWH
Sub WerteZuweisen()
Dim arr As Variant
Dim iCounter As Integer
arr = Range("A1").CurrentRegion.Value
For iCounter = 1 To UBound(arr)
MsgBox arr(iCounter, 1)
Next iCounter
End Sub