Hallo,
im unteren Bereich stehen zwei Codes der erste funktioniert.
Dieser Funktioniert
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
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
Ach nochetwas..
Range("N2").FormulaLocal = "=WENN(M2=0;"";M2)"
In dieser Linie stoppt der Code...
Hi,
es liegt an den Gänsefüßchen innerhalb des Strings, versuche es mal damit sie zu verdoppeln.
Hallo Maggie,
ja das funktionierte!! Vielen Dank :)
Ganz einfach wenn man weiß wie :)
LG Albert