Die Datei https://www.herber.de/bbs/user/71950.xls wurde aus Datenschutzgründen gelöscht
Sub Zeile_einfügen()
Dim lZeile As Long
Dim wks As Worksheet
lZeile = ActiveCell.Row
Set wks = ActiveSheet
If lZeile > 4 Then
With wks
'Leerzeile einfügen
.Rows(lZeile).Insert shift:=xlShiftDown
'Bereich A4:O4 in Leerzeile kopieren
.Range(.Cells(4, 1), .Cells(4, 15)).Copy Destination:=.Cells(lZeile, 1)
'Zeilen neu nummerieren
If IsNumeric(Cells(lZeile - 1, 1)) Then
.Cells(lZeile, 1) = .Cells(lZeile - 1, 1) + 1
End If
Do Until .Cells(lZeile, 1) = ""
.Cells(lZeile, 1) = .Cells(lZeile - 1, 1) + 1
lZeile = lZeile + 1
Loop
End With
Else
MsgBox "Makro funktioniert nur wenn aktive Zeile größer 4 ist!"
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen