Ich möchte eine Spalte umformatieren erhalte Laufzeitfehler und weiss nicht was ich falsch mache. Hoffe ihr könnt mir dabei helfen.
https://www.herber.de/bbs/user/138097.xlsm
Liebe Gruess
Richi
Option Explicit
Sub Format_0000000()
Dim lngPer As Long
Dim lngPerMax As Long
With Sheets("Personalnummer")
lngPerMax = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _
Rows.Count)
For lngPer = 2 To lngPerMax
.Cells(lngPer, 2) = "'" & Format(.Cells(lngPer, 1).Value, "00000000")
Next lngPer
End With
End Sub