Office: Leerzeile einfügen

derhard · 18. Mai 2008

Hallo zusammen,
bitte um Hilfe!

Wie kann ich in meiner Datenbank-Tabelle, jeweils nach
10 Zeilen (Block) automatisch via VBA eine Leerzeile einfügen lassen?

Vielen Dank für Eure Hilfe
Gruß Derhard

:)

ZeC · 19. Mai 2008

Hi!

Probiers mit diesem Code:

Code:

Sub Zeilen_Verschieben()
Dim i As Integer
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row Step 10
Rows(i).Insert shifT:=xlDown
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

rastrans · 20. Mai 2008

Code:

Range("2:2").Rows.Insert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei Range trägst du die Zeile ein, bei der die Zeile eingefügt werden soll (hier Zeile 2). Diese Zeile dann einfach 10 mal wiederholen!

chris-kaiser · 20. Mai 2008

hiho

oder in einem Rutsch
*Smilie

Code:

Sub til()
Dim lastRow As Long
Dim zehnerSp As Range, steps as long
startrow = 1 'anpassen
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For steps = startrow To lastRow Step 10
If zehnerSp Is Nothing Then Set zehnerSp = Cells(steps, 1)
Set zehnerSp = Union(zehnerSp, Cells(steps, 1))
Next
zehnerSp.EntireRow.Insert
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

derhard · 20. Mai 2008

Vielen Dank für Eure schnelle Hilfe,
die makros funktionieren soweit schon, aber ich wollte eigentlich:
wenn die Datenbank erweitert wird und ein neuer 10er Block ist fertig sollte automatisch nach Eingabe des 11.Datensatzes vorher 1 Leezeile eingefügt werden!

Vielen Dank Derhard

ZeC · 20. Mai 2008

Hi!

Und wie ist es damit?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer

i = 1

If Cells(Rows.Count, 1).End(xlUp).Row > 10 Then
Do While Cells(Cells(Rows.Count, 1).End(xlUp).Row - i, 1) ""
i = i + 1
If i > 10 Then
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Insert shift:=xlDown
Exit Do
End If
Loop
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

derhard · 20. Mai 2008

Vielen Dank
Super...

Gruß Derhard

Office: Leerzeile einfügen

Leerzeile einfügen

Leerzeile einfügen

Leerzeile einfügen

Leerzeile einfügen - Similar Threads - Leerzeile einfügen

automatisch Leerzeilen und Summen einfügen

Excel Leerzeile einfügen nach zwei Kriterien

Einfügen MIT extra Leerzeilen (VBA)

Leerzeilen verbinden & Leerzeile einfügen

Makro für Sortierung eines Bereiches und Einfügen einer Leerzeile bei Gruppenwechsel

Leerzeile nach Datum einfügen

Zeilen kopieren und mit Leerzeilen einfügen