Excel Makro: Zeilen einfügen

[napecs]

Hallo ihr,

ich habe eine Frage, die für manche von euch sicherlich easy zu lösen ist. Datei hat mehrere Tausend Einträge, deshalb wäre ein Makro wohl super.

Und zwar wäre es toll wenn das Makro eine leere Zeile einfügt, wenn in der Spalte "B" eine "4" steht.

Danke euch vielmals!!

Beispiel
aus:

ABC	3
DEF	4
GHI	3
JKL	3

soll werden:

ABC	3
DEF	4
GHI	3
JKL	3

 

[Gameforce]

Ergänzung (6. September 2019)

Hier eine bessere Lösung:

Sub Zeile_Einfuegen()
On Error Resume Next

Dim Tabelle As String
Dim Startzeile As Long
Dim Endzeile As Long
Dim Suchspalte As Long
Dim Inhalt As String
Dim Vergleicher As String


'* INIT ****
Tabelle = "Tabelle1"
Startzeile = 0
Endzeile = 11
Suchspalte = 2
Vergleicher = "4"
'****

Do While (Startzeile < Endzeile)
Startzeile = Startzeile + 1
Inhalt = Trim(Worksheets(Tabelle).Cells(Startzeile, Suchspalte).Value)
If (CStr(Inhalt) = Vergleicher) Then
Worksheets(Tabelle).Rows(Startzeile + 1).Insert Shift:=xlDown
Startzeile = Startzeile + 1
Endzeile = Endzeile + 1
End If
Loop

End Sub

Ergänzung (6. September 2019)

Bei einer For next Schleife kann man wohl den Schleifen-Maximalwert nicht während der Laufzeit abändern. Deshalb musste ich das ganze mit einer Do-While-Loop Schleife abändern.

 

[napecs]

Wow, Hammer, ich Danke Dir vielmals, total nett von Dir! Funktioniert wunderbar! :-)

 

[Gameforce]

Bitte schön! :-)