Anzeige
Archiv - Navigation
540to544
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
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro sortiert nicht korrekt!

Makro sortiert nicht korrekt!
02.01.2005 19:51:43
Fritz
Hallo Excelfreunde,
ich habe nachfolgendes Makro aufgezeichnet, das ab Zeile 5 sortieren soll. Funktionierte anfangs auch. Plötzlich wird die erst ab Zeile 6 sortiert.
Was ist die Ursache?
Vielen Dank für eure Hilfe!
Gruß
Fritz

Sub Daten_sortieren()
' Daten_sortieren Makro
' Makro am 23.12.2004 von Fritz1 aufgezeichnet
Range("A5:i92").Select
Selection.Sort Key1:=Range("G5"), Order1:=xlAscending, Key2:=Range("H5") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Application.CommandBars("Stop Recording").Visible = False
Range("A1").Select
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro sortiert nicht korrekt!
02.01.2005 19:56:49
Matthias
Hallo Fritz,
ändere mal das "Header:=xlGuess" in "Header:=xlNo"
Gruß Matthias
AW: Makro sortiert nicht korrekt!
Fritz
Hallo Matthias,
jetzt klappts wie gewünscht.
Vielen Dank!
Gruß
Fritz
AW: Makro sortiert nicht korrekt!
02.01.2005 20:09:19
Matthias
Hallo Fritz,
übrigens kannst du noch auf "Select" verzichten:
Sub Daten_sortieren()
' Daten_sortieren Makro
' Makro am 23.12.2004 von Fritz1 aufgezeichnet
Range("A5:I92").Sort Key1:=Range("G5"), Order1:=xlAscending, Key2:=Range("H5") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End Sub
Gruß Matthias
Anzeige
AW: Makro sortiert nicht korrekt!
PeterW
Hallo Matthias,
noch übersichtlicher wird es, wenn die Default-Einstellungen im Code nicht erscheinen.
Range("A5:I92").Sort Key1:=Range("G5"), Order1:=xlAscending, Key2:=Range("H5") _
, Order2:=xlAscending, Header:=xlNo
Gruß
Peter
Danke beiden für die Information! o.T.
Fritz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige