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

Zeilen einfügen

Zeilen einfügen
19.11.2004 11:48:18
Luke
hallo,
ich habe ein kleines prob mit meinem langen excel sheet..
..es besteht aus mehreren spalten und ziemlich vielen zeilen.
in spalte c sind teilweise!! durchgehend werte eingetragen,wobei einige werte in aufeinanderfolgenden zellen identisch sind. ich möchte nun ein kleines programm schreiben, das mir zwischen jene zellen in Spalte c, deren aufeinanderfolgende Werte NICHT identisch sind,eine leere Reihe einfügt. Folgenden Sourcecode habe ich bereits geschrieben:
....
Set c = Range("c8,c5000")
lastrow = Worksheets("Book1").Range("c65536").End(xlUp).Row
For i = 9 To lastrow
If c.cells(i, 3).Value c.cells(i + 1, 3).Value Then
Rows(i).Insert
End If
Next
...
das problem besteht nun darin, dass dieser sourcecode mir bis zum ende der datensätze komplett leere Reihen einfügt, und anschließend die ursprüngliche tabelle fortsetzt.
Kann mir jemand helfen? Wär korrekt
Greetz
LUKE;)

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen
19.11.2004 12:22:34
Roland
Hallo Luke,
versuchs mal so:

Sub Leerzeilen()
Dim i As Long
i = 9
Do Until Cells(i, 3).Value = ""
If Cells(i, 3).Value <> Cells(i + 1, 3).Value Then
Rows(i + 1).Insert
i = i + 2
Else
i = i + 1
End If
Loop
End Sub

Gruß Roland
AW: Zeilen einfügen
19.11.2004 12:42:45
Luke
THANX...HAT GEKLAPPT
GREETZ
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige