Sortieren

Forumthread: Sortieren
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Sortieren

Sortieren

17.09.2008 23:56:58

Gerd

Hallo zusammen
Ich habe eine Arbeitsmappe mit sechs Registern
Damen;herren;kinder,Junioren;Teenies;Sonstige
Beim Makroaufzeichnen Damen bekomme ich das gleiche Makro nicht in Teenies ausgeführt
Wie kann ich dies beheben
Danke für die Antworten
Gerd

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code? owT

18.09.2008 00:31:00

Uduuh
AW: Code? owT

18.09.2008 00:35:13

Gerd
AW: Code? owT

18.09.2008 00:45:50

Uduuh
AW: Code? owT

18.09.2008 00:55:00

Gerd
AW: Code? owT

18.09.2008 01:02:00

Uduuh
AW: Code? owT

18.09.2008 01:10:31

Gerd

Code? owT

18.09.2008 00:31:00

Uduuh

AW: Code? owT

18.09.2008 00:35:13

Gerd

Code ?
Kann ich nichts mit anfangen
Gruß
Gerd

AW: Code? owT

18.09.2008 00:45:50

Uduuh

Hallo,


Kann ich nichts mit anfangen

und wir haben keine Glaskugel.
Zeig, was du hast.
Gruß ausm Pott
Udo

AW: Code? owT

18.09.2008 00:55:00

Gerd

Hier ist der Code


Sub Sort1()
' Sort1 Makro
Range("A1:D20").Select
ActiveWorkbook.Worksheets("Damen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Damen").Sort.SortFields.Add Key:=Range("D1:D9"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Damen").Sort
.SetRange Range("D1:D9")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C2").Select
End Sub

In den Registern Herren, Kinder, Teenies soll das gleiche Makro laufen geht aber nicht !
Danke für die Hilfe

AW: Code? owT

18.09.2008 01:02:00

Uduuh

Hallo,
das kann ich jetzt nur grob überarbeiten, da ich kein XL2007 habe und auch nicht will:


Sub Sort1()
' Sort1 Makro
Range("A1:D20").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("D1:D9"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("D1:D9")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C2").Select
End Sub

Gruß ausm Pott
Udo