Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

AW: Liste nach Alter sortieren

AW: Liste nach Alter sortieren
Christoph
Hi Fritz,
wenn du die Sortierung eh per VBA durchf?hrst, dann schneide nach der Sortierung die Zeilen aus, in denen kein Eintrag steht und h?ng sie unten wieder dran. Ich bin bestimmt kein Excel-Profi, aber offensichtlich l?sst sich dies ?ber die Sortier-Optionen nicht erschlagen.
Bsp:
Option Explicit

Sub LeereNachUnten()
Dim i As Integer, Zmax As Integer, Spalte As Byte
Spalte = 5        'Spaltennr. hier E=5 (entsprechend anpassen)
Zmax = 500        'deine letzte Zeile
For i = 2 To Zmax                   '(Annahme: Zeile1=?berschrift)
If Cells(i, Spalte) <> "" Then Exit For
Next i
Rows("2:" & i - 1).Cut
Rows(Zmax + 1).Insert Shift:=xlDown
End Sub

Gru?
Christoph
('ne R?ckmelung w?re nett)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Liste nach Alter sortieren
Fritz
Hi Christoph,
vielen Dank f?r Deine Hilfe.
Ich werd versuchen, Deine Anregung zu realisieren. Ich hoffe, ich schaffs.
Meine VBA-Kenntnisse tendieren (leider) gegen Null.
Bei Problemem melde ich mich noch einmal.
Gru?
Fritz
ok... o.T.
22.04.2004 22:49:34
Christoph
AW: Liste nach Alter sortieren
Christoph
Hi Fritz,
wenn du die Sortierung eh per VBA durchf?hrst, dann schneide nach der Sortierung die Zeilen aus, in denen kein Eintrag steht und h?ng sie unten wieder dran. Ich bin bestimmt kein Excel-Profi, aber offensichtlich l?sst sich dies ?ber die Sortier-Optionen nicht erschlagen.
Bsp:
Option Explicit

Sub LeereNachUnten()
Dim i As Integer, Zmax As Integer, Spalte As Byte
Spalte = 5        'Spaltennr. hier E=5 (entsprechend anpassen)
Zmax = 500        'deine letzte Zeile
For i = 2 To Zmax                   '(Annahme: Zeile1=?berschrift)
If Cells(i, Spalte) <> "" Then Exit For
Next i
Rows("2:" & i - 1).Cut
Rows(Zmax + 1).Insert Shift:=xlDown
End Sub

Gru?
Christoph
('ne R?ckmelung w?re nett)
Anzeige
AW: Liste nach Alter sortieren
Fritz
Hi Christoph,
vielen Dank f?r Deine Hilfe.
Ich werd versuchen, Deine Anregung zu realisieren. Ich hoffe, ich schaffs.
Meine VBA-Kenntnisse tendieren (leider) gegen Null.
Bei Problemem melde ich mich noch einmal.
Gru?
Fritz
ok... o.T.
22.04.2004 22:49:34
Christoph

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige