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
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige