VBA Makrorecorder - .select weglassen?
26.07.2005 15:31:02
Klaus
Bisher habe ich mich mangels eigener VBA Kentnisse blind auf den Rekorder verlassen. Nun lese ich hier wiederholt, man sollte .select öfters mal weglassen.
Frage:
Range("a1").AutoFill Destination:=Range("a1:a2000"), Type:=xlFillDefault
gibt mir die Fehlermeldung "Laufzeitfehler '1004': Die AutoFill-Methode des
Range-Objektes ist fehlerhaft."
Was mache ich falsch? Das vom Recorder vorgeschlagene
Range("a1").select
selection.AutoFill Destination:=Range("a1:a2000"), Type:=xlFillDefault
funktioniert,
aber kurioserweise funktioniert auch
Range("a6001").AutoFill Destination:=Range("a6001:a8000"), Type:=xlFillDefault
einwandfrei - was mache ich falsch?
Dank und Gruß,
Klaus M.
gesamter Code:
Sub SuperSizeMe()
Range("a1").AutoFill Destination:=Range("a1:a2000"), Type:=xlFillDefault
Range("a2001").AutoFill Destination:=Range("a2001:a4000"), Type:=xlFillDefault
Range("a4001").AutoFill Destination:=Range("a4001:a6000"), Type:=xlFillDefault
Range("a6001").AutoFill Destination:=Range("a6001:a8000"), Type:=xlFillDefault
Range("a8001").AutoFill Destination:=Range("a8001:a10000"), Type:=xlFillDefault
Range("a10001").AutoFill Destination:=Range("a10001:a12000"), Type:=xlFillDefault
Range("a12001").AutoFill Destination:=Range("a12001:a14000"), Type:=xlFillDefault
Range("a14001").AutoFill Destination:=Range("a14001:a16000"), Type:=xlFillDefault
Range("a16001").AutoFill Destination:=Range("a16001:a18000"), Type:=xlFillDefault
Columns("A:A").Copy
Columns("B:B").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D6").FormulaR1C1 = "Datenvergleich möglich"
End Sub
Sub rabbithole()
Range("a2:a2000").ClearContents
Range("a2002:a4000").ClearContents
Range("a4002:a6000").ClearContents
Range("a6002:a8000").ClearContents
Range("a8002:a10000").ClearContents
Range("a10002:a12000").ClearContents
Range("a12002:a14000").ClearContents
Range("a14002:a16000").ClearContents
Range("a16002:a18000").ClearContents
Columns("B:B").ClearContents
Range("D6").FormulaR1C1 = "verkleinert"
End Sub