Excel Makro

Question

Hallo Leute

Bräuchte ein kleine Hilfe im Excel
Meine Tabelle mit 30.000 Einträgen die sich wiederholen sieht so aus
Entry||0;False;P17
Entry||1;False;P31
Entry||2;False;P2
Entry||3;False;P24
Entry||4;False;P13
Jetzt müsste ich jeweils vor Entry 0 genau 3 Zeilen mit einem bestimmten Text eingeben.
Und nach Entry4 nur 1 Zeile mit Text.
Könnte mir vielleicht jemand mit einer Makroformel unter die Arme helfen.
Händisch die Zeilen einfügen würde ewig dauern.
vielen dank

Answer 1

Hallo,

steht der Text so in einer Zelle, oder sind das verschiedene Zellen? Und ich welcher Spalte(n) steht der Text?

Gruß

M.O.

Answer 2

Hi

erstmal Danke für eine Antwort
Text steht in Spalte A
Es sollte so ausehen;

Vielen
Dank
für
ihre
Hilfe
Entry||0;False;P17
Entry||1;False;P31
Entry||2;False;P2
Entry||3;False;P24
Entry||4;False;P13
Danke


Vor Entry0 -------------Textzeile in einer Zelle mit 5 Reihen(Blocksatz)
Nach Entry 4----------- Textzeile mit Danke

Würde das mit einem Makro funtionieren?

lg
Mark

Answer 3

Hallo,

ich gehe mal davon aus, dass der Text "Entry||0;False;P17" so in Spalte A deines Arbeitsblattes steht.
Kopiere den folgenden Code in ein Standard Modul der entsprechenden Arbeitsmappe:

Sub einfuegen()

Dim lngZeile As Long

With ActiveSheet

For lngZeile = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1

If Left(.Cells(lngZeile, 1), 8) = "Entry||0" Then
.Range(Cells(lngZeile, 1), Cells(lngZeile + 4, 1)).EntireRow.Insert
.Cells(lngZeile, 1).Value = "Vielen"
.Cells(lngZeile + 1, 1) = "Dank"
.Cells(lngZeile + 2, 1).Value = "für"
.Cells(lngZeile + 3, 1).Value = "Ihre"
.Cells(lngZeile + 4, 1).Value = "Hilfe"
End If

If Left(.Cells(lngZeile, 1), 8) = "Entry||4" Then
.Cells(lngZeile + 1, 1).EntireRow.Insert
.Cells(lngZeile + 1, 1).Value = "Danke"
End If

Next lngZeile

End With

End Sub

Schau mal, ob das so in Ordnung ist. Probiere das aber erst einmal in einer Testmappe aus.

Gruß

M.O.

Answer 4

Ja das klappt
bin begeistert

Vielen Dank

lg
mark