Problem1
innerhalb einer Liste doppelte Einträge unterbindet
(Namensvergabe habe ich bereits gemacht)
Problem2
folgt
folgenden Code in Tabelle2:
Private Sub Worksheet_Activate()
Code eingefügt mit Syntaxhighlighter 1.14
Dim col As New Collection
Dim iRow As Integer
Dim sVal As String
'generieren der Gültigkeitsliste (Werte in Tabelle1 SpalteA)
iRow = 1
On Error Resume Next
With Worksheets("Tabelle1")
Do Until IsEmpty(.Cells(iRow, 1))
col.Add .Cells(iRow, 1).Value, .Cells(iRow, 1).Value
iRow = iRow + 1
Loop
End With
On Error Goto 0
For iRow = 1 To col.Count
If iRow = 1 Then
sVal = col(iRow)
Else
sVal = sVal & "," & col(iRow)
End If
Next iRow
' erzeugen der Gültigkeit in den Zellen B1 bis B20 in aktiver Tabelle
With Range("B1:B20").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=sVal
.IgnoreBlank = True
.InCellDropdown = True
End With
End Sub
Gruß
Lutz
oder
kann man auch die Doppeleingabe selber verhindern:
z.B. unter Daten, Gültigkeit, benutzerdefiniert
Formel
=ZÄHLENWENN(A:A;A1)=1
nach unten kopieren.
Von Ulrich Schneider
bei einer Testdatei hat alles funktioniert. In meinem Original Stürzt Excel ab.
welche Werte muß ich ändern wenn die Eingabe est ab Zeile 6 erfolgen soll? Ich brauch noch etwas Erklärung z diesem Code.
Trotzdem herzlichen Dank
evtl. über eine Bedingung z.B. Wenn(?????)