Anwendungs- Objektdefinierter Fehler

Hallo,
ein bisher reibungslos laufendes vba zeigt plötzlich Laufzeitfehler 1004, Anwendungs- und Objektdefinierter Fehler.
Ich habe zwischendurch nichts verändert am vba, die Meldung kommt wie der Blitz aus heitrem Himmel, nach x-fachem erfolgreichem vba-Start..... auch langes rumgoogleln hat nix genutzt.
Das vba soll Zeilen-Werte einer Spalte unbekannter Länge nacheinander in ein anderes Tabellenblatt kopieren.
Hier der Code:

Sub rechnen()
Dim von As Long
Dim bis As Long
Dim i As Long
Sheets("Isogonen").Activate
von = Range("C23").Value
bis = Range("E23").Value
For i = von To bis
Sheets("Geo-Magnetismus").Range("C3").Value = i - 25
Range("E" & i).Value = Sheets("Geo-Magnetismus").Range("C44").Value
Range("D" & i).Value = Sheets("Geo-Magnetismus").Range("C46").Value
Next
End Sub

Kann mir jemand helfen?
Grüsse,
Bernhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub rechnen() Dim von As Long Dim bis As Long Dim i As Long with Sheets("Isogonen") von = .Range("C23").Value bis = .Range("E23").Value For i = von To bis Sheets("Geo-Magnetismus").Range("C3").Value = i - 25 .Range("E" & i).Value = Sheets("Geo-Magnetismus").Range("C44").Value .Range("D" & i).Value = Sheets("Geo-Magnetismus").Range("C46").Value Next i End With End Sub

Sub rechnen() Dim von As Long Dim bis As Long Dim i As Long With Sheets("Isogonen") von = .Range("C23").Value bis = .Range("E23").Value Sheets("Geo-Magnetismus").Range("C3").Value = bis - 25 For i = von To bis .Range("E" & i).Value = Sheets("Geo-Magnetismus").Range("C44").Value .Range("D" & i).Value = Sheets("Geo-Magnetismus").Range("C46").Value Next i End With End Sub

Sub Mach() Dim WS1 As Worksheet, WS2 As Worksheet Dim von As Long Dim bis As Long Set WS1 = Worksheets("Isogonen") Set WS2 = Worksheets("Geo-Magnetismus") With WS1 von = .Range("C23").Value bis = .Range("E23").Value WS2.Range("C3").Value = bis - 25 .Cells(.Cells(von, 5), .Cells(bis, 5)).Value = WS2.Range("C44").Value .Cells(.Cells(von, 4), .Cells(bis, 4)).Value = WS2.Range("C46").Value End With End Sub

Beim googlen bin ich immer auf irgendwas von workbooks und workssheets Referenzierung vor .range gestossen. Vielleicht sagt dir das was....
In Isogonen C23 steht der Startwert, in E23 der Endwert... und zwar jeweils die Zeilen-Nummern, die er berechnen soll... min ist Zeile 26, max 260667... je nach Zeit, auf die ich auf den PC verzichten kann, gebe ich ihm so Intervall Pakete zum berechnen, da das stundenlang dauert.
Er nimmt je einen Breitengrad und Längengrad aus Spalte C und E, und trägt diese in "Geo-Magnetismus", F2 und F3 via Formel ein. Geo-Magnetismus liefert nach irrsinnigen physikalischen Formeln die magnetische Deklination in C46 und die Inklination in C44 pro Geokoordinate, die wiederum zur entsprechenden Länge und Breite in "Isogonen" zurück kopiert werden vom vba...

Beliebteste Forumthreads (12 Monate)

Anwendungs- Objektdefinierter Fehler

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anwendungs- Objektdefinierter Fehler

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread