VBA - Laufzeitfehler in Selektionscode?
Walt
ich habe hier einen Code, den ich mit meinen bescheidenen VBA Kenntnissen einigermassen nachvollziehen kann, aufgezeichnet hab ich ihn mit dem Recorder.
Wie dem auch sei, bisher hat er "relativ gut" funktioniert, soweit man das von einem Selektionscode sagen kann. Ich habe in dem Worksheet heute einige Sachen verändert (hab einen Reiter hinzugefügt) und nun läuft der Code nicht mehr, er zeigt mir Laufzeitfehler 1004 an.
Was ich nicht verstehe ist die Tatsache, dass ich an Code doch gar nichts verändert habe, als müsste er doch zumindest die "alten" Worksheets abarbeiten.
Weiss jemand einen Rat?
Der Code ist:
Sub Daten_aktualisieren()
Dim raZelleStart As Range
Dim raZelleEnde As Range
Worksheets("Tabelle1").Activate
With Worksheets("Tabelle1")
Set raZelleStart = .Columns(4).Find(.Range("E2"))
Set raZelleEnde = .Columns(4).Find(.Range("F2"))
Range(Cells(raZelleStart.Row, 10), Cells(raZelleEnde.Row,100)).FormulaLocal = .Range(. _
_
_
Cells(raZelleStart.Row, 10), .Cells(raZelleEnde.Row, 100)).FormulaLocal
End With
Dim zStart As Long
Dim zEnde As Long
Dim sStart As Integer
Dim sEnde As Integer
Dim strFormula As String
zStart = raZelleStart.Row
zEnde = raZelleEnde.Row
sStart = Range("J7").Column
sEnde = Range("II7").Column
'gehe alle Zeilen durch
For i = zStart To zEnde
'gehe alle Spalten in aktueller Zeile durch
For j = sStart To sEnde
'lese Formel aus
strFormula = ActiveSheet.Cells(7, j).Formula
'tausche "7" gegen aktuelle zeilennummer
strFormula = Replace(strFormula, "7", CStr(i))
'schreibe die Formel in die Zelle rein.
ActiveSheet.Cells(i, j).Formula = strFormula
End Sub
Wenn ich auf debugge ist die fett markierte Stelle für den Fehler offensichtlich verantwortlich.
Kleinere Sachen hab ich schon mit googels Hilfe probiert, leider bisher erfolglos.
Ich hoffe sehr jemand kann mich supporten.
Vielen Dank im Voraus
Walt