Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Makrorecorder - .select weglassen?

VBA Makrorecorder - .select weglassen?
26.07.2005 15:31:02
Klaus
Moin VBA User!
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


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Makrorecorder - .select weglassen?
26.07.2005 16:23:48
AS
Das mit dem Select war anders gemeint:
Statt
Range("A1").select
Selection.xlscolorscherz=1811
Kann man gleich dass hier nehmen:
Range("A1").xlscolorscherz = 18881
Es geht nur um´s Prinizip...
AS
AW: VBA Makrorecorder - .select weglassen?
26.07.2005 16:28:58
Hajo_Zi
Hallo Klaus,
bei mir läuft Deine Code ohne Fehler

Sub SuperSizeMe()
Dim LoI As Long
For LoI = 1 To 16001 Step 2000
Cells(LoI, 1).AutoFill Destination:=Range(Cells(LoI, 1), Cells(LoI + 1999, 1)), Type:=xlFillDefault
Next LoI
Columns("A:A").Copy
Columns("B:B").PasteSpecial Paste:=xlValues
Range("D6") = "Datenvergleich möglich"
End Sub
Sub rabbithole()
Dim LoI As Long
For LoI = 2 To 16002 Step 2000
Range(Cells(LoI, 1), Cells(LoI + 1998, 1)).ClearContents
Next LoI
Columns("B:B").ClearContents
Range("D6") = "verkleinert"
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: VBA Makrorecorder - .select weglassen?
27.07.2005 09:00:20
Das
.

48 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige