ich verstehe nicht weswegen ich einen Laufzeitfehler bekomme, wenn ich die Formeln als Werte einfügen möchte. Wo liegt mein Fehler?
Beste Grüße
Christian
.Range("I2:I" & lngLZeileZPOM).PasteSpecial Paste:=xlValues
With wsZPOM
lngLZeileZPOM = .Cells.Find("*", .Range("A1"), xlFormulas, xlWhole, xlByRows, _
xlPrevious).Row
.Range("B2:B" & lngLZeileZPOM).NumberFormat = "0"
For lngAktZeile = 2 To lngLZeileZPOM
.Range("B" & lngAktZeile).Value = .Range("B" & lngAktZeile).Value * 1
Next lngAktZeile
.Range("I2").Formula = "=A2&B2" 'Fehler
' .Range("I2:I" & lngLZeileZPOM).FillDown
.Range("I2").AutoFill Destination:=.Range("I2:I" & lngLZeileZPOM)
.Range("I2:I" & lngLZeileZPOM).PasteSpecial Paste:=xlValues
.Range("A2:A" & lngLZeileZPOM).TextToColumns Destination:=.Range("A2"), DataType:= _
xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End With