Aufgezeichnetes Makro ergänzen
24.01.2004 15:44:15
Dieter
Das zwischen jeden Kopiervorgang jeweils 2 Leerzeilen um die ganze Sache
Übersichtlich zu halten.
Kann mir jemand dabei behilflich sein .Mein Dank im Vorraus.
MfG Dieter
Sub Makro1()
Range("A1:Z40").Select
Selection.Copy
Sheets("Sichern").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A2").Select
End Sub