Excel- oder VBA-Experten gesucht

_Anonymous_

24.10.2006, 18:02 0

In dieser Community findet man ja Experten für alles und jeden, und deshalb hier meine Frage:

Ich habe ein Macro geschrieben, welches in etwa so aussieht:

Sheets("Tabelle1").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "Hier steht ne Zufallszahl-Formel"
Sheets("Tabelle2").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = "Hier auch"
Selection.AutoFill Destination:=Range("B5:B11"), Type:=xlFillDefault
Range("B5:B11").Select

Dann wird alles ins richtige Format gebracht, ausgedruckt und die Zellen werden wieder gelöscht, das funktioniert in anderen Formeln auch, kein Problem. Soweit kommt die Formel aber gar nicht.

Er sagt mir nach Wechsel ins richtige Sheet: Laufzeitfehler 1004 Die Select-Methode des Range-Objektes ist fehlerhaft.

Da ich nie einen Kurs oder sowas gemacht habe sondern nur durch Rumprobieren und 'learning by doing' meine Exceldateien kreiere wäre ich für einen heissen Tip dankbar. Eventuell kennt auch jemand die ultimative Hilfs - oder Lern-CD/DVD für Excelmakros bzw. VBA.

6 Antworten

zomtec

Beigetreten: 03.02.2005

Beiträge: 1.553

24.10.2006, 18:46 0

Probiere es vielleictht hier: http://www.office-loesung.de/

Dieser Beitrag wurde 724 mal editiert, zum letzten Mal von zomtec: heute 6:38.

_Anonymous_

24.10.2006, 21:36 0

Ist schon nen bisschen her mit VBA aber Range kennzeichnet doch einen Bereich. Also A4 bis C9 beispielsweise. C4 alleine ist kein Bereich und vielleicht ist das der Fehler?

_Anonymous_

24.10.2006, 22:03 0

Das mit der range glaub ich nicht. Hab ein bisschen gegoogelt und es einfahc mal ausprobiert.
Also bei mir tut das Beispiel, dass du gepostet hast...
Scheint also nicht unbedingt ein Programmierfehler zu sein

Ich hab aber keine Ahnung von VBA.

Kreatief

Beigetreten: 28.01.2006

Beiträge: 13.579

24.10.2006, 22:03 0

Sieht eigentlich gut aus.

In welcher Zeile exakt kommt das Problem? (debuggen)

DKT

jedimaster82
...I just want to keep enjoying it and hopefully make some more cash to buy
unnecessary things like a retarded hippo and have it casually disturbing my neighbors (or maybe ride it in the streets of Gothenburg?)

_Anonymous_ Themenstarter

24.10.2006, 22:06 0

Gleich bei der ersten Zelle, die er füllen soll, "Range("A4").Select".

snowfire0

Beigetreten: 27.01.2006

Beiträge: 86

24.10.2006, 22:10 0

Autofill nicht auf die Selection der Range sondern auf die Range ausführen.

Probiere es mal so:

Sheets("Tabelle1").Select
Range("A4").Select
ActiveCell.FormulaR1C1 = "Hier steht ne Zufallszahl-Formel"
Sheets("Tabelle2").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = "Hier auch"
Set sourceRange = Range("B5")
Set fillRange = Range("B5:B11")
sourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
Range("B5:B11").Select

Bei dem Rest kanns eigentlich keinen Fehler geben. Wenn, dann muss es an etwas anderem legen.

Vielleicht ein Fehler in deiner Formel?

[Geschlossen] Excel- oder VBA-Experten gesucht