VisualBasic Laufzeitfehler '1004' Anwendungs- oder objektdefinierter Fehler

[Be Link]

Guten Tag,

Ich habe vor Kurzem mal wieder in VBA reingeguckt und bin auf einen Fehler gestoßen, bei dem ich nicht weiß, wie es zustande kommt.

Dim Zeile As Long
Dim Punktrechnung As String
Dim KDPunktrechnung As String


Range("B5").Select
Selection.Copy
Sheets("Lukas").Select
Zeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("H5").Select
Selection.Copy
Sheets("Lukas").Select
Range("B" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("F8").Select
Selection.Copy
Sheets("Lukas").Select
Range("C" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("H8").Select
Selection.Copy
Sheets("Lukas").Select
Range("D" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("D8").Select
Selection.Copy
Sheets("Lukas").Select
Range("F" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("D11").Select
Selection.Copy
Sheets("Lukas").Select
Range("G" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("F11").Select
Selection.Copy
Sheets("Lukas").Select
Range("H" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("H11").Select
Selection.Copy
Sheets("Lukas").Select
Range("I" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("D14").Select
Selection.Copy
Sheets("Lukas").Select
Range("J" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("F5").Select
Selection.Copy
Sheets("Lukas").Select
Range("K" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("F14").Select
Selection.Copy
Sheets("Lukas").Select
Range("L" & Zeile).Select
ActiveSheet.Paste

Sheets("Eingabefenster").Select
Range("H14").Select
Selection.Copy
Sheets("Lukas").Select
Range("M" & Zeile).Select
ActiveSheet.Paste

KDPunktrechnung = ("=C" & Zeile & "/D" & Zeile)

Punktrechnung = ("=J*" & Zeile & "+((K" & Zeile & "-(C" & Zeile & "*2)-F" & Zeile & "+(F" & Zeile & "*1,5))+(C" & Zeile & "-(G" & Zeile & "*3)-(H" & Zeile & "*4)-(I" & Zeile & "*5)+(G" & Zeile & "*3*1,1)+(H" & Zeile & "*4*1,3)+(I" & Zeile & "*5*1,5)*E" & Zeile & "*2)")

Range("E" & Zeile) = KDPunktrechnung

Range("N" & Zeile) = Punktrechnung

Sheets("Eingabefenster").Select
Range("D5").Select

Als Fehler wird mir

Range("N" & Zeile) = Punktrechnung

angezeigt.

Ich weiß nicht, was ich dagegen machen soll und bin schon seit gestern auf der Suche im Internet. Vielleicht, kann mich hier jemand helfen.

Danke im Voraus

MfG. Be Link

 

[ella_one]

In Zeile 2 hast Du die Variable Punktrechnung1 definiert und referenzierst diese als Punktrechnung. Das kann nicht funktionieren.

 

[Be Link]

Habe ich gerade geändert, geht immernoch nicht. Danke aber für deine Hilfe ^^

 

[Alchemist]

Die Formel, die du in der Zeile einfügen willst ist falsch. Nimm da mal das führende = raus, sodass es eben keine Formel ist und dann guck es dir in deinem Sheet an. Wenn du da wieder ein = vorsetzt, liefert dir Excel einen Fehler.

 

[ella_one]

Hallo Be Link,

Ich würde vermuten, dass die Formel fehlerhaft ist. Leider habe ich heute keine Zeit dies zu testen.

 

[Be Link]

Wenn ich das = Herausnehme, wird mir die richtige Formel in die Zelle geschrieben. D.h. wenn ich das = wieder einfüge, funktioniert alles. Wenn ich das = jedoch in den CODE eingebe, gibt es wieder den Fehler.

L.G. Be Link

 

[Alchemist]

Najaaaa, bei mir zeigt er schon einen Fehler an, wenn ich das = wieder einsetze.
Erstmal kannst du auch die äußeren Klammern wegnehmen von dem String, die brauchst du ohnehin nicht.
Gefunden:

("=J*" & Zeile & "+((K"

 

[Be Link]

Also wenn ich jetzt

 Punktrechnung = "=J" & Zeile & "+((K" & Zeile & "-(C" & Zeile & "*2)-F" & Zeile & "+(F" & Zeile & "*1,5))+(C" & Zeile & "-(G" & Zeile & "*3)-(H" & Zeile & "*4)-(I" & Zeile & "*5)+(G" & Zeile & "*3*1,1)+(H" & Zeile & "*4*1,3)+(I" & Zeile & "*5*1,5)*E" & Zeile & "*2)"

einsetzte, kommt bei mir immernoch der Fehler :/

 

[Alchemist]

 

[Be Link]

Okay, dann habe ich dort eine Klammer vergessen. Jedoch kommt beim Ausführen des Makros immernoch der Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler :/

 

[Alchemist]

Machs mal damit:

Range("N" & Zeile).FormulaLocal = Punktrechnung

 

[Be Link]

Funktioniert das bei dir? Bei mir zeigt es immernoch den gleichen Fehler an :/

 

[Alchemist]

ja bei mir geht es damit.
Office 365.
Meine Tabelle ist natürlich leer aber die Formel wird korrekt eingefügt und eben ein Div/0 Fehler in die Zelle geschrieben aber das makro läuft ohne Fehler durch.

Punktrechnung = "=J" & Zeile & "+((K" & Zeile & "-(C" & Zeile & "*2)-F" & Zeile & "+(F" & Zeile & "*1,5))+(C" & Zeile & "-(G" & Zeile & "*3)-(H" & Zeile & "*4)-(I" & Zeile & "*5)+(G" & Zeile & "*3*1,1)+(H" & Zeile & "*4*1)+(I" & Zeile & "*5*1)*E" & Zeile & "*2))"
 
Range("E" & Zeile) = KDPunktrechnung
 
Range("N" & Zeile).FormulaLocal = Punktrechnung

 

[Be Link]

Alles klar, ich habe jetzt mal die Formel etwas gekürzt und vereinfacht. Jetzt funktioniert es auch wieder.

Sieht jetzt so aus:

KDPunktrechnung = ("=C" & Zeile & "/D" & Zeile)

Punktrechnung = "=J" & Zeile & "+(K" & Zeile & "-(C" & Zeile & "*2)-F" & Zeile & "+(F" & Zeile & "*1,5))+(C" & Zeile & "-(G" & Zeile & "*3)-(H" & Zeile & "*4)-(I" & Zeile & "*5)+(G" & Zeile & "*3*1,1)+(H" & Zeile & "*4*1,3)+(I" & Zeile & "*5*1,5)*2)"

Range("E" & Zeile) = KDPunktrechnung

Range("N" & Zeile).FormulaLocal = Punktrechnung

Danke für die große Hilfe!

MfG. Be Link