Hallo Atomictunes,
meinst Du das eventuell so wie das nachfolgende Makro das erledigt?
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Fuellen()
Dim lngRow As Long
Dim intStellen As Integer
For lngRow = 3 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).Row
If Len(Cells(lngRow, 30)) < 13 Then
For intStellen = 1 To 13 - Len(Cells(lngRow, 30))
Cells(lngRow, 30) = Cells(lngRow, 30) & 0
Cells(lngRow, 30).NumberFormat = "0"
Next
End If
Next
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
