AW: Kopieren auf Knopfdruck
30.11.2004 11:54:11
Heinz
Hallo Joerg,
versuchs mal mit:
Sub kopieren()
' kopieren Makro
' Makro am 30.11.2004 von Heinz aufgezeichnet
Range("A2:E32").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Das kopiert nur die Werte.
Sollen Formeln mitkopiert werden:
Sub KopierenMitFormeln()
' KopierenMitFormeln Makro
' Makro am 30.11.2004 von Heinz aufgezeichnet
Range("A2:E32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Gruß Heinz