Hallöchen,

also bei diesem Code (s.u.) erhalte ich die Fehlermeldung "Die Sort-Methode des Range-Objekts konnte nicht ausgeführt werden" / Laufzeitfehler 1004"  Beim Debuggen wird mir diese Zeile gelb markiert: ActiveSheet.Columns(1).Sort key1:=ActiveSheet.Cells(1, 1), order1:=xlAscending

Ist vielleicht in dieser Zeile irgendein Fehler? WICHTIG: Dieser Fehler kommt allerdings NUR DANN wenn ich in der Tabelle "Analysedaten" bin und das Makro ausführe. Wenn ich in der "Tabelle2" bin wird KEIN Fehler ausgeführt, allerdings klappt auch die Sortieurng des Dropdownfeldes nicht. Ich gehe davon aus, weil es eben diesen Fehler in der Analysetabelle gibt. 

 
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 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Columns(1).Sort key1:=ActiveSheet.Cells(1, 1), order1:=xlAscending
 
For i = 2 To letzte
    If ActiveSheet.Cells(i, 2) <> "" Then
        If InStr(1, gültigliste, "," & ActiveSheet.Cells(i, 1) & ",", vbTextCompare) = 0 Then gültigliste = gültigliste & ActiveSheet.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

Dein letzter Beitrag verursacht bei mir leider auch einen Fehler. Vielleicht habe ich dich auch missverstanden? Habe die Zeilen 1 bis 13 mal so eingegeben bzw. dies durch meinen ursprünglichen Fehler ersetzt. Da wird die ganze Zeile dann rot :S