Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
22.04.2024 16:03:42
Alle Blätter einer Datei wählen und Druckbereich festlegen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Spalten sortieren

Mehrere Spalten sortieren
Dieter(Drummer)
Hi VBA Spezialisten,
ich suche ein Makro, dass mir im aktuellen Sheet die Spalten B bis F aufsteigend sortiert, also Spalte B hat die kleinste Zahl und Spalte G die größte Zahl. Es können mal mehr oder weiniger Zeilen sein.
Habe im Internet gesucht und habe nicht entsprechendes gefunden.
Hier mal ein Muster von meinen Bespieldaten:
Zielblatt
 ABCDEFG
1Lfd. Nr.Zahl 1Zahl 2Zahl 3Zahl 4Zahl 5Zahl 6
2133324182642
322134282348
4347830474211
5             

definierte Namen
Name Bezieht sich auf Tabelle Z1S1-Formel
_FilterDatabase=Zielblatt!$A$1:$G$1Zielblatt=Zielblatt!Z1S1:Z1S7

Tabellendarstellung in Foren Version 5.46


Wenn ich z.B. den Sortierbereich B2-G4 markiere und dann Aufsteigend nach Spalten sortieren lasse, wird nur die erste Zeile davon sortiert.
Danke für's drum kümmern und evtl. Hilfe
Gruß, Dieter(Drummer)
AW: Frage besser? Zeilensortierung in mehr Spalten
14.11.2011 14:18:27
Dieter(Drummer)
Hi Vba-Spezialisten,
ich möchte Zahlen in Spalte B bis G je Zeile sortieren. Je Zeile kleinste Zahl in Spalte B und größte in Spalte G.
Es kann ein unterschiedliche Anzahl Zeilen vorkommen.
Bei Daten/Sortieren wird nur die erste Zeile hier Zeile 2, Spalte B bis G, sortiert, obwohl B2:G6 z.B. markiert ist.
Ich suche ein Makro, das bei unterschiedlicher Zeilanzahl den Bereich der Spalten B bis G je Zeile numerisch aufsteigend sortiert.
Freue mich auf eine Hilfe.
Gruß, Dieter(Drummer)
AW: Frage besser? Zeilensortierung in mehr Spalten
14.11.2011 14:41:56
Rudi
Hallo,
teste mal: 
Sub xxxx()
Dim iRow As Long, arrTmp
With Selection
For iRow = 1 To .Rows.Count
arrTmp = Application.Transpose(Application.Transpose(.Rows(iRow)))
QuickSort arrTmp
.Rows(iRow) = Application.Transpose(Application.Transpose(arrTmp))
Next
End With
End Sub

Sub QuickSort(ByRef DasArray, Optional ErsteZeile, Optional LetzteZeile)
On Error Resume Next
Dim UnterGrenze As Long, OberGrenze As Long
Dim AktuellerWert, GemerkterWert As Variant
If IsMissing(ErsteZeile) Then
ErsteZeile = LBound(DasArray, 1)
End If
If IsMissing(LetzteZeile) Then
LetzteZeile = UBound(DasArray, 1)
End If
UnterGrenze = ErsteZeile
OberGrenze = LetzteZeile
AktuellerWert = DasArray((ErsteZeile + LetzteZeile) / 2)
Do While (UnterGrenze  AktuellerWert And OberGrenze > ErsteZeile)
OberGrenze = OberGrenze - 1
Loop
If (UnterGrenze  ErsteZeile) Then Call QuickSort(DasArray, ErsteZeile, OberGrenze)
If (UnterGrenze

Gruß
Rudi
Anzeige
AW: Frage besser? Zeilensortierung in mehr Spalten
14.11.2011 14:58:43
Dieter(Drummer)
Hi Rudi,
Danke für dien Rückmeldung und Makro. Es läuft sehr lange und ändert aber nichts. Ich habe es in ein Modul eingefügt. Sende hier mal meine Testdatei mit deinem Makro. Bei ESC steht es in Zeile UNZERGRENZE. Evtl. kannst Du es FIT machen.
https://www.herber.de/bbs/user/77499.xls
Danke für's drum kümmern.
Gruß, Dieter(Drummer)
AW: Frage besser? Zeilensortierung in mehr Spalten
14.11.2011 15:02:04
Rudi
Hallo,
Es läuft sehr lange
Zeit nicht messbar, so schnell.
Der Code läuft über die Markierung. So wie du wolltest.
Gruß
Rudi
AW: Frage besser? Zeilensortierung in mehr Spalten
14.11.2011 15:13:10
Dieter(Drummer)
Hi Rudi,
Danke für deine schnelle Hilfe und dein Makro. Ich lass es durchlaufen bis das Ergebnis folgt. Gebe dir dann noch Rückmeldung.
Vielen Dank.
Gruß, Dieter(Drummer)
Anzeige
AW: @Rudi - Frage zur Makrolaufzeit
14.11.2011 15:49:56
Dieter(Drummer)
Hi Rudi,
habe es jetzt ca. 30 Minuten laufen lassen, bisher noch kein Ergebnis der Sortierung. Da es in meiner Testdatei ja nur die Zeilen ab inkl. Zeile 7 leer sind, kann man da nicht erst im Makro abfragen wieviel Zeilen belegt sind und dadurch evtl. die Laufzeit des Makros kürzen?
Wie im Makro das wohl eingebaut werden muss, kann ich wohl nicht machen.
Gruß, Dieter(Drummer)
AW: @Rudi - Frage zur Makrolaufzeit
14.11.2011 16:03:18
Rudi
Hallo,
ich bin davon ausgegangen, dass du den zu sortierenden Bereich markierst.
Ohne Markierung: 
Sub xxxx()
Dim iRow As Long, arrTmp
For iRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
arrTmp = Application.Transpose(Application.Transpose(Cells(iRow, 2).Resize(, 6)))
QuickSort arrTmp
Cells(iRow, 2).Resize(, 6) = Application.Transpose(Application.Transpose(arrTmp))
Next
End Sub

Gruß
Rudi
Anzeige
AW: @Rudi - Sorry Makro ist prima. Aber ...
14.11.2011 16:05:44
Dieter(Drummer)
Hi Rudi,
hatte nicht gewußt, dass ich den zu sortierenden Bereich händisch markieren muss. So läuft es prima! DANKE!
Kannst Du das Makro auch so anpassen, das der belegte und zu sortierende Bereich, hier die Zellen B2:G6 atomatisch gefunden und sortuiert wird? Es können natürlich auch mal mehr Zeilen sein, aber es sind immer die Spalten B bis G.
Trotzdem schon mal vielen Dank für deine Hilfe!
Gruß, Dieter(Drummer)
AW: @Rudi - Sorry Makro ist prima. Aber ...
14.11.2011 16:09:48
Rudi
Hallo,
das sortiert so lange, wie in A eine Nr eingetragen ist.
Gruß
Rudi
AW: Danke Rudi. Hast Du schon erledigt!
14.11.2011 16:11:30
Dieter(Drummer)
... hatte zu früh geschrieben und Du hast mein Problem schon in allen Punkten gelöst. Einfach toll!
Danke dir und einen erfreulichen, restlichen Tag.
Gruß, Dieter(Drummer)
Anzeige

300 Forumthreads zu ähnlichen Themen

Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Anzeige
Auto open funktioniert nicht richtig
Bodo

Guten Tag.
Ich versuche diesen Code hier zum Laufen zu bringen.
Sub Auto_open() ' Auto_öffnen Makro ' Blatt "Grundwerte" ausblenden. Unnötiges ausblenden. Blatt "Hinweise" aktivieren. In Vollbild- _ Modus schalten. Sheets("Grundwerte").Visible = False Sheets("Hinweise").Select ActiveW...
25.02.2009 14:31:35
Thread-ID: 1053941
6 Beiträge
Makrorekorder funktioniert nicht richtig
peter

Hallo Profis,
hätte mal eine Frage zum Makrorekorder. Wenn ich es aufzeichne und dann abspiele funktionierts nicht.
Ich will einen Autofilter setzten, der diverse Zellen ausblendet, und die noch sichtbaren will ich in ein anderes Tabellenblatt kopieren...aber warum will er nicht?
'M...
22.03.2009 20:46:13
Thread-ID: 1062704
5 Beiträge
Anzeige
Tabellenblattauswahl funktioniert nicht
Joni

Hallo,
ich habe das Phänomen, dass die Auswahl des Tabellenblatt nicht richtig funktioniert. Ich möchte eine Datei öffnen bei der beim Öffnen ein Makro ausgeführt wird, das die Daten aus einer anderen Datei in diese Datei hineinkopiert und die Datei wieder schließt. Öffnen ist kein Problem....
29.03.2009 23:03:58
Thread-ID: 1065138
11 Beiträge
Sortierung funktioniert nicht
Stephan

Hallo,
ich kriegs nicht hin.
Bei meiner Tabelle funktioniert die Sortierung (Daten / Sortieren / Sortieren nach ...) nach Spalte C oder E nicht. Es tut sich einfach gar nichts. Liegt es an der verwendeten Funktion INDIREKT?
Hier die Datei:
https://www.herber.de/bbs/user/63547.xl...
31.07.2009 10:02:52
Thread-ID: 1092687
7 Beiträge
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
Indexformel funktioniert nicht richtig
Pet

Hallo Forum,
ich habe mal wieder ein Problem mit einer Formel.
Es soll per Index und Wenn Abfrage in Spalte S alles Nummern aufgelistet werden die in Spalte C stehen.
Hier die Bsp-Datei.
https://www.herber.de/bbs/user/65407.xls
Ich hoffe ihr könnt mir helfen.
Vielen Dank...
28.10.2009 15:19:02
Thread-ID: 1112825
3 Beiträge
Sortieren geht nicht
walli

Hallo zusammen,
habe folgendes Makro: Private Sub CommandButton1_Click() Dim z As Long z = Range("a5").End(xlDown).Row ActiveSheet.Range(Cells(6, 1), Cells(z, 14)).Select Selection.Sort Key1:=Range("O6"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation...
04.11.2009 15:01:38
Thread-ID: 1114509
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
5
4
4
10
6
1
2
14
9
5
6
4
4
20
2
7
2
3
2
5
3
15
9