Laufzeitfehler im Code: 1004
11.01.2019 11:28:26
Georg
folgende Fehlermeldung kommt:
Laufzeitfehler 1004. Die AutoFill Methode des Range-Objektes konnte nicht ausgeführt werden
und zwar exakt an dieser Stelle im Code:
.Range("C4").AutoFill Destination:=Range("C4:C" & lngLetzte)
Übergehe ich es, taucht der Fehler bei .range("D4") auch auf etc.
Der Bereich "A1:B2" ist leer.
A3:B3 sind PivotTable Überschriften
Ab A4:B4 die Daten der Pivot, wobei die Zeile 4 leer ist.
Ich habe keine Ahnung warum der Fehler kommt, ich will letztendlich in Spalte C, D , E bestimmte Dinge noch auswerten.
Wäre schön, wenn j-d eine Idee hat. Die Autofill Methode an anderer Stelle funktioniert!
Vielen Dank
Sub TeilE()
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Worksheets("Piv_Daten_Übersicht").Cells(3, 3).Value = "Verdienstgrenze" 'D3
ThisWorkbook.Worksheets("Piv_Daten_Übersicht").Cells(3, 4).Value = "Verdienst überschritten?" ' _
E3
ThisWorkbook.Worksheets("Piv_Daten_Übersicht").Cells(3, 5).Value = "Differenz