Daten sortieren/filtern - Objektvariable?
18.11.2015 09:37:05
Fabian
ich bin hier fast am verzweifeln. Ich habe eine Liste (drei Spalten, zwei Mal Text, einmal Zeit) und möchte diese gern absteigend nach der Zeit sortieren. Das geht per Hand super und eigentlich auch problemlos per VBA. Doch irgendwie muckt mein Programm beim zweiten Schleifendurchlauf plötzlich rum. "Objektvariable oder With-Block-Variable nicht festgelegt". Ich habe schon mal beim ersten Schleifendurchlauf dieses Problem gehabt. Gelöst habe ich es durch rumklicken im Debugger, auskommentieren, Auskommentierung wieder aufheben etc. und am Ende ging's obwohl ich den Quellcode gar nicht verändert hatte. Nun klappt es wieder nicht, lässt allerdings auch gar nicht lösen. Hab schon aus dem Makro-Recorder den Code geklaut, doch nach dem Einfügen ins Programm funktioniert der Code plötzlich nicht mehr. Hier der Code in Kurzfassung:
Sub Auswertung()
Dim String_1 As String
Worksheets(1).Select
Range(String_1).Select
Selection.AutoFilter
Workbooks("Auswertung.xlsm").Sheets(1).AutoFilter.Sort.SortFields.Clear
Workbooks("Auswertung.xlsm").Sheets(1).AutoFilter.Sort.SortFields.Add Key:= _
Range(Right(String_1, 2)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With Workbooks("Auswertung.xlsm").Sheets(1).AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Der Code funktioniert in jeder anderen Datei, aber nicht in meiner xD
Vielleicht hat ja jemand von euch irgendeine Idee...
Viele liebe Grüße
Fabian