Zeile unterhalb einfügen
11.07.2020 07:40:39
Nicolai
ich möchte über ein Makro folgendes umsetzen:
- Finde die Zelle in Spalte G in der "Zeile einfügen" steht (diese Zeile ist ausgeblendet)
- Füge hier eine Zeile ein und übernehme Formatierung und Formeln
Ich habe folgenden Code der auch funktioniert. Allerdings fügt er die neue Zeile oberhalb der Zeile mit "Zeile einfügen" ein. Ich möchte jedoch dass die neue Zeile unterhalb eingefügt wird. Jemand eine Idee wie ich den Code anpassen muss?
Sub Schaltfläche1_Klicken()
Dim loZeile As Long
On Error GoTo Ausgang
loZeile = WorksheetFunction.Match("Zeile einfügen", Columns("B"), 0)
Rows(loZeile).Copy
Rows(loZeile).Insert
Cells(loZeile, "B").ClearContents
Rows(loZeile).RowHeight = 15
Application.CutCopyMode = False
Ausgang:
On Error GoTo 0
End Sub
Vielen Dank.
Gruss Nic