Liebe Community...
Ich möchte per Autofill Methode mit der Typ: xlFillCopy
Zeilen runterkopieren.
Das Proble ist:
Ich bekomme einen Laufzeitfehler!!
und ich weiß nicht woran es liegen könnte....
Fehler:
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
Verstehe noch nicht warum eigentlich! Denn es sollte eigentlich funktionieren....
Hier mein Code:
Kann mir jemand weiterhelfen??
Bis zum Autofill hauts mal hin!! irgendwas geht da mit dem Autofill noch nicht ganz fürchte ich!!
Vielen Dank!
LG Tim
Ich möchte per Autofill Methode mit der Typ: xlFillCopy
Zeilen runterkopieren.
Das Proble ist:
Ich bekomme einen Laufzeitfehler!!
und ich weiß nicht woran es liegen könnte....
Fehler:
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
Verstehe noch nicht warum eigentlich! Denn es sollte eigentlich funktionieren....
Hier mein Code:
Visual Basic-Quellcode
- Option Explicit
- Sub ErzeugenVonNullBeträgen()
- Dim a As Long 'Variable in der RowCount 3 - Delta Spalte E gespeichert werden (Auftragsnummern-Anzahl)
- Dim srcRange As Range 'Legt den Bereich des Daten fest an dem "runter-kopiert" werden soll
- Dim destRange As Range 'Legt den Bereich fest, bis wohin kopiert werden muss
- Tabelle5.Range("A2:AO1048576").ClearContents 'Löscht alle Einträge von A2 bis AO1048576
- a = Tabelle4.Cells(Rows.Count, 5).End(xlUp).Row 'Einträge von Spalte E in 3 - Delta werden gezählt
- Range("A2").FormulaR1C1 = "='3 - Delta'!RC5" 'Verweis auf die "Delta"-Auftragsnummer in "3 - Delta"
- Range(Cells(2, 1), Cells(a, 1)).FillDown 'FillDown bis letzter Eintrag (vor leerer Zelle) erreicht wurde
- Range("B2").FormulaR1C1 = "=INDEX('1 - Alle Aufträge zu Equipments'!C8,MATCH(RC1,'1 - Alle Aufträge zu Equipments'!C10,0))" 'Über INDEX und VERGLEICH, werden die Informationen ergänzt
- Range("C2").FormulaR1C1 = "='2 - Kosten EXKL. Null-Beträge'!RC3" 'Verweis des Werttyps (eigentlich immer IST-Kosten --> 4 )
- Range("B2:C" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown 'FillDown für B2&C2 bis letzte befüllte Zeile von Spalte A (Auftragsnummern)
- 'Befüllung der Zellen mit 0 Euro Beträgen etc.:
- Range("D2").FormulaR1C1 = "Keine KORE Buchung!"
- Range("E2").FormulaR1C1 = "Keine KORE Buchung!"
- Range("F2").FormulaR1C1 = "0"
- Range("G2").FormulaR1C1 = "EUR"
- Range("H2").FormulaR1C1 = "0"
- Range("I2").FormulaR1C1 = "EUR"
- Range("J2").FormulaR1C1 = "0"
- Range("K2").FormulaR1C1 = "EUR"
- Range("L2").FormulaR1C1 = "0"
- Range("M2").FormulaR1C1 = "EUR"
- Range("N2").FormulaR1C1 = "0"
- Range("O2").FormulaR1C1 = "EUR"
- Range("P2").FormulaR1C1 = "0"
- Range("Q2").FormulaR1C1 = "EUR"
- Range("R2").FormulaR1C1 = "0"
- Range("S2").FormulaR1C1 = "EUR"
- Range("T2").FormulaR1C1 = "0"
- Range("U2").FormulaR1C1 = "EUR"
- Range("V2").FormulaR1C1 = "0"
- Range("W2").FormulaR1C1 = "EUR"
- Range("X2").FormulaR1C1 = "0"
- Range("Y2").FormulaR1C1 = "EUR"
- Range("Z2").FormulaR1C1 = "0"
- Range("AA2").FormulaR1C1 = "EUR"
- Range("AB2").FormulaR1C1 = "0"
- Range("AC2").FormulaR1C1 = "EUR"
- Range("AD2").FormulaR1C1 = "0"
- Range("AE2").FormulaR1C1 = "EUR"
- Range("AF2").FormulaR1C1 = "0"
- Range("AG2").FormulaR1C1 = "EUR"
- Range("AH2").FormulaR1C1 = "0"
- Range("AI2").FormulaR1C1 = "EUR"
- Range("AJ2").FormulaR1C1 = "0"
- Range("AK2").FormulaR1C1 = "EUR"
- Range("AL2").FormulaR1C1 = "0"
- Range("AM2").FormulaR1C1 = "EUR"
- Range("AN2").FormulaR1C1 = "0"
- Range("AO2").FormulaR1C1 = "EUR"
- Set srcRange = Tabelle5.Range("D2:AO2") 'Befüllter Bereich von D2 bis A02
- Set destRange = Tabelle5.Range(Cells(2, 3), Cells(a, 41)) 'Ziel-Bereich bis wohin der Autofill gehen soll!
- srcRange.AutoFill destRange, xlFillCopy 'Autofill-Befehl mit Option: KOPIEREN
- End Sub
Kann mir jemand weiterhelfen??
Bis zum Autofill hauts mal hin!! irgendwas geht da mit dem Autofill noch nicht ganz fürchte ich!!
Vielen Dank!
LG Tim