Code Fehler...Warum?

[silentwolf]

Hallo,
im unteren Bereich stehen zwei Codes der erste funktioniert.
Dieser Funktioniert

Code [Auswählen] Erweitern



Public Sub Spalte_M_Fuellen()
Dim lngLetzteZeile As Long

With Tabelle1
lngLetzteZeile = Range("A65536").End(xlUp).Row '<- Unterste belegte Zeile in Spalte A

Range("M2").FormulaLocal = "=WENN(L2=0;H2;L2)"
Range("M2").AutoFill Destination:=Range("M2:M" & lngLetzteZeile)

End With

End Sub


Code [Auswählen] Erweitern

Public Sub Spalte_N_Fuellen()
Dim lngLetzteZeile As Long

With Tabelle1
lngLetzteZeile = Range("A65536").End(xlUp).Row '<- Unterste belegte Zeile in Spalte A

Range("N2").FormulaLocal = "=WENN(M2=0;"";M2)"
Range("N2").AutoFill Destination:=Range("N2:N" & lngLetzteZeile)

End With

End Sub

Bei dem unteren bzw. Zweiten Code bekomme ich den Laufzeitfehler "1004"
Anwendungs - oder objektdefinierter Fehler..

Kann mir bitte jemand sagen warum dieser Fehler auftritt oder was muss ich ändern.?

Lg
Albert

[silentwolf]

Ach nochetwas..

Range("N2").FormulaLocal = "=WENN(M2=0;"";M2)"
In dieser Linie stoppt der Code...

[MaggieMay]

Hi,

es liegt an den Gänsefüßchen innerhalb des Strings, versuche es mal damit sie zu verdoppeln.

[silentwolf]

Hallo Maggie,

ja das funktionierte!! Vielen Dank
Ganz einfach wenn man weiß wie 

LG Albert