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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen