Hallo Spezialisten,
benötige dringend ein Makro.
Spalte A soll durchlaufen werden. Wenn eine Zelle den Wert Ergebnis enthält, soll unter der Zelle eine Leerzeile eingefügt werden.
Vielen Dank für Eure Mühe
Stef@n (Anonym) „Excel-Makro Dringend !!!“
Moin,
Sub Makro3()
suche = Cells(2, 2) 'hier wird der gesuchte Wert angegeben
For rwindex = 1 To 23 'Max Zeile angeben
With Worksheets("Tabelle1").Cells(rwindex, 1) 'evtl. Tabellennamen ändern
If .Value = suche Then
Worksheets("Tabelle1").Cells(rwindex + 1, 1).Select
Selection.Insert Shift:=xlDown
End If
End With
Next rwindex
End Sub
