Werte einfügen per vba

        .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