Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren

Forumthread: Sortieren

Sortieren
27.09.2007 10:26:00
serge
Hallo Leute
Ich will in meiner Datei ein Sortiermakro machen das die einzelnen Blöcke sortiert!
Zum probieren, mein Auszug aus der Datei: https://www.herber.de/bbs/user/46367.xls
Wer hilft mir?
Danke Serge

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren
27.09.2007 11:54:49
Chaos
Servus Serge,
probiers mal damit:

Sub versuch()
Dim letzte As Long, zeile As Long, reihe As Long, start As Long
letzte = Range("A65536").End(xlUp).Offset(0, 0).Row
start = 3
Do
For zeile = start To letzte
If Cells(zeile, 1).Value = 0 Then
reihe = Cells(zeile - 1, 1).Row
Exit For
End If
Next zeile
Range("A" & start - 1 & ":B" & reihe).Sort Key1:=Range("A" & start), Order1:=xlAscending,  _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
start = reihe + 2
Loop Until Range("A" & zeile + 1).Value = ""
End Sub


Voraussetzung: in der letzten Zeile muss in Spalte A eine 0 stehen, sonst wird der letzte Block nicht sortiert (wie in deiner Beispielmappe). Sortiert wird aufsteigend nach Spalte A
Gruß
Chaos

Anzeige
Danke
27.09.2007 13:35:26
serge
Hi Chaos
mit meiner Beispieldatei klappt es gut¨
Ich werden jetzt probieren das Ganze in die grosse Originaldatei zu integrieren.
Danke ich melde mich ( stelle dann die Frage wieder auf "Offen" ) wenn es nicht klappen sollte
Gruss
Serge

Hilfe...!Chaos
27.09.2007 16:50:14
egres
Hallo Chaos
ich bekomme es nicht hin!
Kannst Du mir weiterhelfen?
Meine Datei näher an der Realität:

Die Datei https://www.herber.de/bbs/user/46395.xls wurde aus Datenschutzgründen gelöscht


Danke
Serge

Anzeige
AW: Hilfe...!Chaos
27.09.2007 18:46:00
Chaos
Jetzt geht's.
Du hast zwar A durch B ersetzt, aber die Suche der 0 immer noch in A gemacht, statt in Spalte B (:-)) Cells(zeile, 1).
https://www.herber.de/bbs/user/46397.xls
Es wird nach Spalte B sortiert, oder willst du nach C sortieren?
Probier's aus. Die Daten sind momentan absteigend geordnet.
Gruß
Chaos

Anzeige
Der Chaos ist perfekt...!
28.09.2007 08:02:24
serge
Guten Morgen "Chaos "
Es klappt perfekt!
Ich war gestern Abend nach meinem Hilferuf ausser Haus, aber die Nacht bringt Wunder!
Neuer Tag, neue Einsicht, jetzt kann ich deiner Logik auch folgen.
Danke Dir für deine Hilfe, ich wünsche Dir ein schönes Wochenende!
Serge

Anzeige
AW: Bitteschön
28.09.2007 09:35:00
Chaos
.
;

Beliebteste Forumthreads (12 Monate)

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