VBA - Laufzeitfehler 1004
Golem
folgenden VBA Code verwende ich, um mehrere Zellbereiche neu zu berechnen.
Private Sub CommandButton1_Click()
CommandButton1.BackColor = RGB(255, 215, 0)
CommandButton1.Caption = "Manuelle" & Chr(10) & "Berechnung"
'Die Zahlen neu berechnen.
Range("B29:T29").Calculate
'Die Zahlen in den Spalten neu berechnen.
Range("B39:B53035").Calculate
Range("C39:C53035").Calculate
Range("L39:L53035").Calculate
Range("M39:M53035").Calculate
Range("V39:V53035").Calculate
Range("W39:W53035").Calculate
Range("AF39:AF45643").Calculate
Range("AG39:AG45643").Calculate
'Die Blocknummern neu berechnen.
Range("P37").Calculate
Range("Z37").Calculate
Range("AJ37").Calculate
_
'Die Werte in den Spalten neu berechnen.
Range("C2:C26").Calculate
Range("N2:N26").Calculate
Range("X2:X26").Calculate
Range("AH2:AH26").Calculate
'Die Summe der Werte neu berechnen.
Range("AS2:AS26").Calculate
'Die Anzahl der einzelnen Zahlen neu berechnen.
Range("Y29:AC29").Calculate
Range("AI29:AM29").Calculate
Range("O32:S32").Calculate
Range("Y32:AC32").Calculate
Range("AI32:AM32").Calculate
End Sub
Dieser Code funktioniert einwandfrei.Füge ich unter den Code eine neue Zeile ein,
Private Sub CommandButton1_Click()
CommandButton1.BackColor = RGB(255, 215, 0)
CommandButton1.Caption = "Manuelle" & Chr(10) & "Berechnung"
'Die Zahlen neu berechnen.
Range("B29:T29").Calculate
'Die Zahlen in den Spalten neu berechnen.
Range("B39:B53035").Calculate
Range("C39:C53035").Calculate
Range("L39:L53035").Calculate
Range("M39:M53035").Calculate
Range("V39:V53035").Calculate
Range("W39:W53035").Calculate
Range("AF39:AF45643").Calculate
Range("AG39:AG45643").Calculate
'Die Blocknummern neu berechnen.
Range("P37").Calculate
Range("Z37").Calculate
Range("AJ37").Calculate
_
'Die Werte in den Spalten neu berechnen.
Range("C2:C26").Calculate
Range("N2:N26").Calculate
Range("X2:X26").Calculate
Range("AH2:AH26").Calculate
'Die Summe der Werte neu berechnen.
Range("AS2:AS26").Calculate
'Die Anzahl der einzelnen Zahlen neu berechnen.
Range("Y29:AC29").Calculate
Range("AI29:AM29").Calculate
Range("O32:S32").Calculate
Range("Y32:AC32").Calculate
Range("AI32:AM32").Calculate
Range("AS41:AW41").Calculate
End Sub
dann kommt die Meldung,Laufzeitfehler 1004.
Was mache ich falsch und wie kann ich den Laufzeitfehler beseitigen?
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Golem