Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

daten sortieren

daten sortieren
29.10.2007 09:52:00
pilgrim
Hallo zusammen,
ich möchte eine Liste wie folgt sortieren.
a
a
a
(leerzeile per vba eingefügt)
b
b
b
(leerzeile per vba eingefügt)
c
c
c
Kann mir jemand helfen.
Danke und Gruss
Pilgrim

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: daten sortieren
29.10.2007 10:23:07
Gromminger
Probier mal:

Sub test()
Dim wbk As Workbook
Dim wsh As Worksheet
Set wbk = ThisWorkbook
Set wsh = wbk.Worksheets("Sheet1")
zeile = 1
Do Until Cells(zeile, 1).Value = ""
If Cells(zeile, 1)  Cells(zeile + 1, 1) Then
Rows(zeile + 1).Select
Selection.Insert Shift:=xlDown
zeile = zeile + 1
End If
zeile = zeile + 1
Loop
End Sub


Zeilen alphabetisch sortierne und Leerzeile
29.10.2007 10:27:23
NoNet
Hallo Pilgrim,
teste doch mal folgendes Makro an einer KOPIE Deiner Tabelle :

Sub SortierenUndLeerzeile()
Dim Zeile As Long
Range("A1").Sort Key1:=Range("A1")
For Zeile = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(Zeile, "A")  Cells(Zeile + 1, "A") Then Rows(Zeile + 1).EntireRow.Insert
Next
End Sub


Das Makro bezieht sich auf Werte in Spalte A ab A1 !!
Gruß, NoNet

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige