Makro oder ähnliches zum Zeileneinfügen?

Computer: Software & Programmierung Office Software
1

Hallo,

ich bin ganz verzweifelt, ich muss hier jedes zweite mal, alle 12 Zeilen immer 10 Zeilen einfügen und das dauert lange.

Ich suche eigentlich ein Makro was das macht, hab aber nichts gefunden. Weiß jemand wo es das gibt?

Beistpiel:
1 text
2 text
…
12 text

2

ich bin ganz verzweifelt, ich muss hier jedes zweite mal, alle
12 Zeilen immer 10 Zeilen einfügen und das dauert lange.

Hi Trew,

mal als Ansatz:

Sub tt()
Dim N As Long
N = 1
While Cells(N + 1, 1) ""
 N = N + 12
 Rows(N & ":" & N + 9).Insert
 N = N + 10
Wend
End Sub

Das mit „jedes zweite Mal“ muß ich mir noch mal durchlesen:smile:
Ggfs. kannst du das ja selbst einbauen.

Gruß
Reinhard

3

Hallo Reinhard,

danke dir erstmal ich werde es testen.
Jedenfalls sollte eigentlich folgendes passieren aber da ich nicht weiß ob das machbar ist habe ich das vereinfacht.

Passieren solte:
1.) 12 Zeilen zählen.
2.) 10 Zeilen einfügen (eigentlich 11 hab mich verschrieben).
3.) 12 Zeilen zählen dann Seitenumbruch.

Jetzt wieder von Vorne.
Den Seitenumbruch habe ich weg gelassen da ich nicht weiß ob das geht oO

MfG

trew

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

So geht´s.

Sub BloeckeTeilen()
Dim y As Integer

Const ySprg As Integer = 10 _'Zeilen, die abgezählt werden sollen_
Const yEinf As Integer = 11 _'Zeilen, die eingefügt werden sollen_
Const yMax As Integer = 100 _'Abbruchkriterium (z.B.)_
 
 y = 0
 While y 'Unter das 10. Textelement des ersten Blocks springen:
 ActiveCell.Offset(ySprg, 0).Select

_'11 Zeilen einfügen:_
 For i = 1 To yEinf
 ActiveCell.EntireRow.Insert
 Next i

_'Unter das 10. Textelement des zweiten Blocks springen:_
 ActiveCell.Offset(yEinf + ySprg, 0).Select

_'Manuellen Seitenumbruch einfügen:_
 ActiveCell.EntireRow.PageBreak = xlPageBreakManual

_'Nun ist die erste Zelle des dritten 10er-Blocks ausgewählt,_
_'und es kann von vorne losgehen. Abgebrochen wird, wenn eine_
_'bestimmte Zeile erreicht wurde. Das habe ich so gemacht, weil_
_'ich das tatsächliche Kriterium bei Dir nicht kenne._
 y = ActiveCell.Row
 Wend _'y   
End Sub 'BloeckeTeilen_

Am besten mal den Code mit F8 schrittweise ausführen und dabei das Tabellenblatt und den Cursor beobachten (Excelfenster und VBA-Fenster nebeneinander positionieren, damit man beide gleichzeitig sieht).

Kristian