Leerzeichen anhängen
13.06.2006 15:31:30
Andre´
Ich habe folgendes Makro, dass in der Spalte A in die Zelle wo nur z.B. 12 Zeichen enthalten sind noch 6 Leerzeichen anhängt. Somit sind immer 18 Stelle in der Zelle. Wenn ich einen Wert z.B.250 eingebe werden keine Leerzeichen angehängt. Was muss ich in dem Makro verändern, dass in einer Zelle der Spalte A wo Werte enthalten sind immer auf 18 Stellen mit Leerzeichen aufgefüllt wird. Bei der Eingabe von 250 6 funktioniert es wiederum.
Ich hoffe mir kann jemand helfen
Danke im voraus!
Andre
Sub Zeichen18_inB()
'18 Zeichen in Spalte A
For j = 1 To [A65536].End(xlUp).Row
For i = Len(Cells(j, 1)) + 1 To 18
Cells(j, 1) = Cells(j, 1) & " "
Next i
Next j
End Sub