Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren

Sortieren
15.12.2006 10:39:39
Walter
Guten Morgen,
ich möchte gern die Spalte "K" sortieren, darin stehen Datumswerte.
Ich möchte gern das die Zellen ohne Datumswerte als 1. stehen also angefangen
bei K6 bis K15 stehen keine, etc.mit dem Makro klappt es nicht, stehen nur sortiert.
Vielleicht hat jemand schnell eine Idee ?

Private Sub CommandButton12_Click()
Dim z As Long
Range("A5").Select
z = Range("A5").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 12)).Select
'--------- sortieren nach Standtage Aufsteigend ----------------
' Order1:=xlAscending,  = Aufsteigend
' Order1:=xlDescending, = Absteigend
Selection.Sort Key1:=Range("K6"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

mfg Walter MB

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Habe Makro aber...
15.12.2006 12:10:53
Walter
Hallo,
habe in der Recherche das Makro von Erich gefunden, meine Tabelle muß
von A6 ende offen bis L6 sortiert werden, in der Spalte ab K6 sollen die Leerzellen
oben stehen (also als 1.) .
kann man das Makro von Erich irgenwie ändern?
Option Explicit

Sub sortieren3()                                   ' besser ohne Select und Selection
Dim s As Integer, lngZ As Long
lngZ = Cells.CurrentRegion.Rows.Count
For s = 1 To 13 Step 2
Range(Cells(3, s), Cells(lngZ, s + 1)).Sort _
Key1:=Cells(lngZ, s + 1), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next s
End Sub



Sub sortieren2()
Dim s As Integer, lngZ As Long
lngZ = Cells.CurrentRegion.Rows.Count
For s = 1 To 13 Step 2
Range(Cells(3, s), Cells(lngZ, s + 1)).Select
Selection.Sort Key1:=Cells(lngZ, s + 1), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next s
End Sub



Sub sortieren1()
Dim s As Integer, lngZ As Long
lngZ = Cells.CurrentRegion.Rows.Count
For s = 1 To 13 Step 2
Range(Cells(3, s), Cells(lngZ, s + 1)).Select
Selection.Sort Key1:=Selection.Cells(1, 2), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next s
End Sub

'Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
mfg Walter MB
Anzeige
AW: Sortieren
15.12.2006 14:46:10
Peter
Hallo Walter,
füge in die Leerzeilen eine Null ein, sortiere dann (die Null-Zeilen sollten vorne stehen) und lösche die Nullen wieder.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Hallo geht doch nicht
15.12.2006 14:56:23
Walter
Hallo Peter,
dann muß ich ja per Makro feststellen lassen, wo 0 fehlen etc.,
ist das nicht umständlich ?
mfg Walter
AW: Hallo geht doch nicht
15.12.2006 15:04:13
Peter
Hallo Walter,
sicher, einmal über die Daten laufen und Nullen einfügen, dann sortieren und dann wieder über die Daten laufen bis keine Null, sondern ein Datum gefunden wird.
Umständlich vielleicht, bringt aber ein Ergebnis.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
Ja BITTE
15.12.2006 15:26:18
Walter
Hallo Peter,
bitte einen Vorschlag,
Danke im voraus,
mfg Walter
AW: Sortieren
15.12.2006 15:06:41
Walter
Hallo Peter,
geht das nicht mit einer Abfrage, wenn Zelle im Bereich:
Dim z As Long
Range("A5").Select
z = Range("A5").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 12)).Select
Spalte K Leer, dann die Zeile nach oben setzen, ab Zeile 6 ?
Die Menge der Zeilen feststellen wieviel Leer sind , stehen ja am Ende und dann
entsprechende Anzahl ab Zeile 6 einfügen und dann die entsprechenden Zeilen wo in K nicht drin steht nach oben schieben ?
gruß Walter
War nur so eine Iddee
Anzeige
Danke -)
15.12.2006 19:12:05
Walter
Hallo Peter, Danke !!!

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige