[row]

Kann sich wer mal das folgende Makro anschauen?
Es soll in Spalte 8 die jeweilige Zellenlänge (von oben nach unten) bestimmen, die Differenz zu 15 Zeichen ermitteln und dann (wenn <15) mit Leerzeichen auf 15 Zeichen auffüllen:

Sub Auffuellen()
Dim Leerz As String
Dim i As Long, laR As Long
Dim aZ As Byte
    Leerz = "               "   '15 Leerzeichen
    laR = Cells(Rows.Count, 8).End(xlUp).Row
    MsgBox laR
    For i = 1 To laR
      aZ = Len(Cells(i, 8).Text)
      
      If aZ < 15 Then Cells(i, 8).Value = _
        Cells(i, 8).Value & Left(Leerz, 15 - aZ)
    MsgBox Cells(i, 8).Value
    Next i

End Sub