Hallo! Was kokmmt als Fehlermeldung und in welcher Zeile? (sollte die gelb markierte sein)
Ansonsten ändere es mal so (sonst macht das mit dem with keinen Sinn). Sehe so auf die schnelle keinen Fehler. VG
Option Explicit
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
End With
For i = 2 To letzte
If .Cells(i, 2) <> "" Then
If InStr(1, gültigliste, "," & .Cells(i, 1) & "," , vbTextCompare) = 0 Then gültigliste = gültigliste & .Cells(i, 1) & ","
End If
Next i
|