Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Leerzeilen automatisch mit VBA

Leerzeilen automatisch mit VBA
08.09.2004 14:42:00
Dennis
Hi,
Gibt es eine Möglichkeit, dass immer automatisch 2 Leerzeilen eingefügt werden, wenn eine andere Zahl (zB. C3 C4) in der Spalte steht?
Kann mir jemand helfen?
MFG Dennis
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen automatisch mit VBA
Manuel
Hi Dennis
Ich würde die das empfehelen:
if (Range("C3") Range("C4") Then
[Ziel] = Chr(10) & Chr(10)
end if
Das Chr(10) erstellt eine Leerzelle.
Gruß
Manuel
AW: Leerzeilen automatisch mit VBA
PeterW
Hallo Dennis,
sofern sich "immer automatisch" auf die Prüfung einer Spalte bezieht und die Spalte keine Lücken hat könnte das für Spalte C so gehen:

Sub LeereZeilen()
Dim lngCount As Long
For lngCount = Range("C65536").End(xlUp).Row To 2 Step -1
If Cells(lngCount, 3) <> Cells(lngCount - 1, 3) Then
Rows(lngCount & ":" & lngCount + 1).Insert
End If
Next
End Sub

Gruß
Peter
Anzeige
AW: Leerzeilen automatisch mit VBA
Dennis
Vielen Dank Peter. Genau das habe ich gesucht.
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige