Hallo Experten,
in aus einer UF heraus werden nacheinader verschiedene Spaltenabschnitte (jeweils 3 Spalten) mit Daten befüllt.
In der ersten Spalte dieser Abschnitte steht regelmäßig ein Datum nach welchem aufsteigend der Abschnitt sortiert werden soll.
Mit der "Range(...).sort" Funktion habe ich jedoch so meine Probleme.
Mein Code lautet in diesem Abshnitt wie folgt, wobei "KontoSP" eine Range Variabe ist und "LtzBuchung" eine Integer Variable:
With Sheets("Konten")
LtzBuchung = .Cells(Rows.Count, KontoSP.Column).End(xlUp).Row 'sucht den letzten Eintrag im Abschnitt
.Range(Cells(3, KontoSP.Column), Cells(LtzBuchung, KontoSP.Column + 2)).Sort _
Key1:=.Range(Cells(3, KontoSP.Column)), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
DataOption1:=xlSortTextAsNumbers
End With
Der Code bricht in diesem Bereich immer ab wobei die Meldung (berühmt, wie berüchtigt):
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
Ich bin völlig am Ende... und hab keine Ahnung woran es liegt.
Kann jemand helfen?
Herzlichen Dank vorab!
Malcolm