Zeichen auffüllen für SAP nach links
11.10.2006 09:35:25
Jutta
ich habe folgendes Makro gefunden, dass mir die Zeichen nach rechts auf eine bestimmte Zeichenlänge auffüllt. Benötigt wird das für SAP.
Jetzt brauche ich diese Lösung für das Auffüllen nach Links.
Beispiel: "14" soll auf insgesamt 16 Zeichen aufgefüllt werden.(die Zeichen können vorher eine unterschiedliche Länge haben)
Ergebnis: ("X" steht für Blank) XXXXXXXXXXXXXX14
Sub ZellenAuffüllen()
Dim Stellen As Byte, Zeichen As String, i As Byte, a As Range
Application.ScreenUpdating = False
MsgBox " Bitte vorher den Bereich markieren ", vbOKCancel
Stellen = Val(InputBox("Anzahl Stellen?"))
If Stellen = 0 Then Exit Sub
Zeichen = InputBox("Auffüllzeichen?")
For i = 1 To Stellen
Folge = Folge & Zeichen
Next i
For Each a In Selection.Cells
a.NumberFormat = "@"
a.Value = Left(a.Value & Folge, Stellen)
Next a
Application.ScreenUpdating = True
End Sub
Gruß
Jutta