Microsoft Excel

Herbers Excel/VBA-Archiv

Leerzeilen automatisch mit VBA

Betrifft: Leerzeilen automatisch mit VBA von: Dennis
Geschrieben am: 08.09.2004 14:42:00

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

  


Betrifft: AW: Leerzeilen automatisch mit VBA von: Manuel Marhold
Geschrieben am: 08.09.2004 14:48:19

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


  


Betrifft: AW: Leerzeilen automatisch mit VBA von: PeterW
Geschrieben am: 08.09.2004 15:07:20

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


  


Betrifft: AW: Leerzeilen automatisch mit VBA von: Dennis
Geschrieben am: 08.09.2004 15:45:14

Vielen Dank Peter. Genau das habe ich gesucht.


 

Beiträge aus den Excel-Beispielen zum Thema "Leerzeilen automatisch mit VBA"