Hallo! Also hab mal kurzer Hand die Datei nachgestellt. Und unten der Code läuft bei mir super. Ich gehe mal davon aus, dass Analysedaten die Daten für die Gültigkeit beinhaltet. Also dann läuft das so ohne Fehler probiere das mal. Sind evtl. in Spalte A verbundene Zellen oder sonst was anderes? Das Programm läuft nicht auf nem Mac (das ist manchmal was anders)? Weiß grad nicht, warum der Fehler auftritt - tippe auf ein Zuordnungsproblem. Keine Angst, das bekommen wir schon hier. VG
Sub gütligkeit()
Dim gültigliste As String
Dim i As Long
Dim letzte As Long
With Sheets("Analysedaten")
gültigliste = ","
'soll ausschließlich nur SPALTE A betrachten
letzte = .Cells(Rows.Count, 1).End(xlUp).Row
.Columns(1).Sort key1:=.Cells(1, 1), order1:=xlAscending
For i = 2 To letzte
If .Cells(i, 1) <> "" Then
If InStr(1, gültigliste, "," & .Cells(i, 1) & ",", vbTextCompare) = 0 Then gültigliste = gültigliste & .Cells(i, 1) & ","
End If
Next i
End With
If gültigliste <> "," Then
gültigliste = Mid(gültigliste, 2, Len(gültigliste) - 2)
With Sheets("Tabelle2").Range("G5").Validation
.Delete
.Add Type:=xlValidateList, Formula1:=gültigliste
End With
End If
End Sub
|