Hallo Kollegen,
ich verzweifle gerade ein wenig an meinen (eher überschaubaren) Excel VBA FÄhigkeiten und wäre sehr dankbar, wenn ihr mir helfen könntet. Es geht um folgendes. Folgendes Makro habe ich zur Zeit im Einsatz:
Sub NeueZeile4()
Dim Zeile As Long
Zeile = Range("D:D").Find(what:="Row4").Row - 1 '1 Zeilen über Row4
Rows(Zeile + 1).Insert 'Zeile einfügen
Rows(Zeile).Copy Cells(Zeile + 1, 1) 'Zeile kopieren
Rows(Zeile).EntireRow.Hidden = False
End Sub
Das Marko funktioniert sehr gut, um eine Zeile an einer bestimmten Stelle einzufügen. Nun würde ich allerdings gerne 3 Zeilen einfügen und eben 3 statt 1 Zeile kopieren (Anordnung bleibt die gleiche).
Ich verzweifle etwas daran. Kann einer mal drüber schauen, was ich hier verändern muss?
Vielen Dank.
Mit den besten Grüße,
Martin
Ich würde gerne in einem File eine bestimmte Zeile suchen lassen, darüber 3 Zeilen einfügen und 3 mal den Inhalt |