AW: Zeile einfuegen und Inhalt nach dort kopieren
17.10.2010 00:09:05
fcs
Hallo Ralf,
hier mein Vorschlag. Du muss allerdings ggf. die Rahmenformatierung in deiner MusterZeile 4 noch anpassen. Das Makro gehört in ein allgemeines Modul. Dieses dann jeweils den Schaltflächen aus der Formularsmbolleiste zuweisen.
Gruß
Franz
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