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
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige