Zeile einfügen und Teile hineinkopieren
31.01.2008 13:18:19
Herbert
Warscheinlich denke ich wie immer um die Ecke . . .
Ich möchte unter der aktuellen Zeile eine neue Zeile einfügen
in der Spalte A das Wort Neu eintragen,
nur die Formatierungen der kopierten Zeile übernehmen
die Werte der kopierten Zellen Spalte B bis O kopieren
aber mit meinem Level . . . .
Sub aatest()
Dim iRow As Integer, lRow As Integer
Dim Quell As String, Dim Ziel As String
iRow = ActiveCell.Row
Rows(iRow + 1).Insert
lRow = (iRow + 1)
Cells(lRow, 1).Value = "Neu"
Rows(iRow).Copy
Rows(lRow).PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Quell = ("B" & iRow) & ":" & ("O" & iRow)
Ziel = ("B" & lRow) & ":" & ("O" & lRow)
Range(Quell).AutoFill Destination:=Range(Ziel), Type:=xlFillCopy
End Sub
Wie macht man das richtig?
Danke für die Hilfe im voraus
Gruß Herbert