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
|