Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grösseren Bereich Sortieren

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
Anzeige
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
Anzeige
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

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige