Foren auf CAD.de - Antwort auf einen Beitrag

Forum:	Excel
Thema:	Liste sortieren mit Trennlinien

Möchten Sie sich registrieren?

Wer darf antworten?	Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung	Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:	Kennwort vergessen?
Anhang:	Datei(en) anhängen <?> Anhänge verwalten <?>
Grafik für den Beitrag:
Ihre Antwort: Fachbegriff URL Email Fett Kursiv ~~Durchgestr.~~ Liste * Bild Zitat Code HTML ist AUS UBB-Code ist AN Smilies Legende Netiquette	[QUOTE]Original erstellt von StefanBerlitz: [B]Hallo piston, das passiert bei schnellen, dreckigen Makros schon mal - in dem Fall liegt es daran, dass durch das Einfügen der Zeilen mit dem Strich die Anzahl der Zeilen nicht mehr bis zum Ende hin stimmt. In diesem Fall ist es besser von hinten nach vorne die Zeilen zu durchlaufen. Hier das angepasste Makro von skyzem: [code] Sub test() Const spalte As Integer = 1 '(Enspricht A) Const starzeile As Integer = 1 '(Enspricht 1) LCiR = Cells(Rows.Count, spalte).End(xlUp).Row [b]For i = LCiR To starzeile + 1 Step -1[/b] If Cells(i, spalte) <> Cells(i - 1, spalte) Then Cells(i, spalte).Insert Shift:=xlDown Cells(i, spalte).Value = "---" End If Next End Sub[/code] Ciao, Stefan [/B][/QUOTE] 10 20 40
Optionen	Smilies in diesem Beitrag deaktivieren. Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A A N S E H E N
StefanBerlitz
Beiträge: 8756 / 682
SunZu sagt:
Analysiere die Vorteile, die
du aus meinem Ratschlag ziehst.
Dann gliedere deine Kräfte
entsprechend und mache dir
außergewöhnliche Taktiken zunutze.
Hallo piston,
das passiert bei schnellen, dreckigen Makros schon mal - in dem Fall liegt es daran, dass durch das Einfügen der Zeilen mit dem Strich die Anzahl der Zeilen nicht mehr bis zum Ende hin stimmt. In diesem Fall ist es besser von hinten nach vorne die Zeilen zu durchlaufen. Hier das angepasste Makro von skyzem:
Code:

Sub test()
Const spalte As Integer = 1 '(Enspricht A)
Const starzeile As Integer = 1 '(Enspricht 1)

LCiR = Cells(Rows.Count, spalte).End(xlUp).Row

For i = LCiR To starzeile + 1 Step -1
If Cells(i, spalte) <> Cells(i - 1, spalte) Then
Cells(i, spalte).Insert Shift:=xlDown
Cells(i, spalte).Value = "---"
End If
Next
End Sub

Ciao,
Stefan
------------------
Inoffizielle deutsche SolidWorks Hilfeseite http://solidworks.cad.de