Problem1
innerhalb einer Liste doppelte Einträge unterbindet
(Namensvergabe habe ich bereits gemacht)
Problem2
folgt
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(?????)