Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sortieren via VBA funktioniert nicht

Sortieren via VBA funktioniert nicht
02.06.2006 16:02:53
Phoeni
Hallo,
ich lasse per VBA eine Datei öffnen, diese soll durch folgenden Code nach der Spalte F aufsteigend sortiert werden... Aaaber Excel machts nicht, ich bekomme noch nicht mal ne Fehlermeldung... Was mache ich falsch?

Private Sub Sortieren()
Sheets("Tabelle1").Activate
Zeilen = ActiveSheet.UsedRange.Rows.Count
ur = ActiveSheet.Cells(Zeilen, 7).Address
ol = ActiveSheet.Cells(2, 1).Address
Range(ol, ur).Sort Key1:=Range("F2"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub

Danke für eure Hilfe,
Phoeni

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren via VBA funktioniert nicht
02.06.2006 16:12:41
ChrisL
Hallo
Grundsätzlich, alle Range genau bezeichnen (z.B. auch "F2" mit Tabellenangabe).
Gruss
Chris

Sub Sortieren()
With Worksheets("Tabelle1")
Dim Zeilen As Long
Dim ur As Range, ol As Range
Zeilen = .UsedRange.Rows.Count
Set ur = .Cells(Zeilen, 7)
Set ol = .Cells(2, 1)
.Range(ol, ur).Sort Key1:=.Range("F2"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End With
End Sub

AW: Sortieren via VBA funktioniert nicht, Danke
02.06.2006 16:37:55
Phoeni
Hi Chris,
danke für die Hilfe, funktioniert fast so wie ich das will, mein Problem ist jetzt im Moment nur, das sich in der Spalte, die sortiert wird Datumsangaben (01.01.06) befinden (die als Standard formatiert sind) und die werden jetzt erst nach dem Tag, dann nach dem Monat und dann nach dem Jahr sortiert.
Ich würde jetzt in VBA alle als Daten formatieren und sie dann sortieren lassen, gibt es einen Weg, wie ich das formatieren umgehen kann? Also dass sofort nach der zeitlichen Reihenfolge sortiert wird?
Danke,
Andreas
Anzeige
AW: Sortieren via VBA funktioniert nicht, Danke
02.06.2006 17:48:57
ChrisL
Hallo Andreas
Schau mal in die Forumssuche. Gibt verschiedene Ansätze. Oft geht es mit "Kopieren", "Inhalte einfügen", mit Zahl 1 "multiplizieren".
Gruss
Chris

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige