zwei unabhängige Bereiche in leerre Zeile
28.01.2008 13:59:51
maruseru
Folgendes Problem steht an:
Von der letzten Zeile in der Tabelle soll aus dem Bereich A:C und dem Bereich U:V die Formenn in die zeile darunter (erste leere Zeile) eingefügt werden. Als zweiter Schritt soll dann noch für die gesamte neue Zeile die Formatierung übernommen werden. Wenn ich nur den Bereich A:C übernehme funktioniert es.
Sub FORMAT()
Sheets("Auswertung").Select
Cells(Rows.Count, 1).End(xlUp).Offset.Select
ActiveCell.Offset(0, 0).Range("A1:C1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(-1, 0).Range("A1:S1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Select
Application.CutCopyMode = False
End Sub
Danke und Gruss
Maruseru