Grösseren Bereich Sortieren

Forumthread: Grösseren Bereich Sortieren

05.10.2006 14:24:53

Andreas

Hallo,
wie kann ich per VBA einen grösseren Bereich
sortieren lassen (es handelt sich nur um Zahlen).
z.B.
Im Bereich A2 bis J9 ist in jeder Zelle eine Zahl drin.
Sie sollen wie folgt sortiert werden:
Vorher z.B.
6|9|7|3|usw.
1|4|8|5|usw.
Nacher
1|3|4|5|usw.
6|7|8|9|usw.
Wie geht das?
Gruß
Andreas W.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Grösseren Bereich Sortieren

05.10.2006 14:53:13

Rudi
AW: Grösseren Bereich Sortieren

05.10.2006 14:58:02

ptonka
AW: Grösseren Bereich Sortieren

05.10.2006 15:29:07

Andreas

AW: Grösseren Bereich Sortieren

05.10.2006 14:53:13

Rudi

Hallo,
nicht sehr elegant, klappt aber.
In ein Modul, Bereich markieren und laufen lassen:


Sub tt()
Dim c As Range, rng As Range, n As Long
Dim wks As Worksheet, tmp As Worksheet
Set wks = ActiveSheet
Set rng = Selection
Set tmp = Worksheets.Add
For Each c In rng.Cells
tmp.Cells(65536, 1).End(xlUp).Offset(1, 0) = c.Value
Next
With tmp
.Range(.Cells(2, 1), .Cells(65536, 1).End(xlUp)).Sort .Range("A2"), xlAscending, , , , , , xlNo
End With
n = 2
For Each c In rng
c = tmp.Cells(n, 1)
n = n + 1
Next
Application.DisplayAlerts = False
tmp.Delete
Application.DisplayAlerts = True
End Sub

Gruß
Rudi

AW: Grösseren Bereich Sortieren

05.10.2006 14:58:02

ptonka

Hallo,
dieses Makro sortiert allerdings nur A2:J9.
Wenn Du es ändern möchtest, dann musst Du die Schleifen i und j jeweils anpassen.
i steht für die Spalten A bis J (in VBA 1 bis 10) und j für die Zeilen 2 bis 9.
Nimm das Makro und probier es aus.
Übrigens: Über Feedback freuen sich viele andere auch.
Gruß,
Ptonka


Sub sortieren()
Sheets("Hilfsblatt").Select
Cells.Select
Selection.ClearContents
Sheets("Daten").Select
'Spalten A bis J
For i = 1 To 10
'Zeilen 2 bis 9
For j = 2 To 9
Zahl = Cells(j, i).Value
Sheets("Hilfsblatt").Select
Range("A1").Select
leereZeile = [A65536].End(xlUp).Row
Cells(leereZeile + 1, 1).Value = Zahl
Sheets("Daten").Select
Next j
Next i
Sheets("Hilfsblatt").Select
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Sheets("Daten").Select
Cells.Select
Selection.ClearContents
Sheets("Hilfsblatt").Select
Anzahl = [A65536].End(xlUp).Row
For n = 1 To Anzahl
Sheets("Hilfsblatt").Select
Zahl = Cells(n, 1).Value
Sheets("Daten").Select
For j = 2 To 9
For i = 1 To 10
Zelle = Cells(j, i).Value
Select Case Zelle
Case Is = ""
Cells(j, i).Value = Zahl
GoTo weiter
End Select
Next i
Next j
weiter:
Next n
End Sub

AW: Grösseren Bereich Sortieren

05.10.2006 15:29:07

Andreas

Hallo Rudi, hallo ptonka,
Danke für die schnelle Hilfe.
Ich nehme Variante vom Rudi, weil hier muss nur
der bereich makiert werden.
Das ist für mich übersichtlicher und funktioniert gut.
Danke nochmal an euch.
Gruß
Andreas W.

Beliebteste Forumthreads (12 Monate)

Forumthread: Grösseren Bereich Sortieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread