Werte einfügen
05.02.2006 10:41:45
Heinz
Habe unteren Code mittels Rekorder aufgezeichnet.
Bekomme aber bei "Range("AF3").Select" Laufzeitfehler Nr.1004
Wüsste jemand wieso ?
Könnte mir Bitte jemand auch beim aufheben des Blattschutzes ohne PW helfen.
Also vor Transpose Blattschutz aus.
Werte eintragen - Blattschutz setzen.
Danke Heinz
Private Sub CommandButton1_Click()
Range("C9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("WoMat").Select
Range("AF3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Anzeige