Strings 'frisieren' auf gleiche Länge
26.06.2004 20:24:32
NE
heut' Abend nich mehr viel im Kopf ;-)
Abhängig von der Spaltenbreite möchte ich einen String basteln,
der immer [umgerechnet] genauso lang ist und der Inhalt der Zellen
dieser Spalte sollte im String zentriert werden, also immer mit x Leerzeichen
davor und danach, sodass aber jeder String gleichlang bleibt.
Hoffe es kommt irgendwie rüber was ich mein, zB
in A1 steht aa und in A2 bbbb, stringlänge sei mal 10
dann sowas [- sei mal ein space]
A1 ----aa----
A2 ---bbbb---
Ähm, ich weiss scho' ...,
hab ganz bewusst hier nur 'gerade' Werte genommen ;;-))
Gruss Nancy
--
Sub routine()
Dim i As Byte, x1 As Byte, x2 As Integer, s_space As String, s As String
For i = 1 To 10
x1 = Len(Cells(i, 1))
x2 = Fix(0.5 * (Columns("A:A").ColumnWidth) - x1)
'Dim s_space As String * x2
s_space = Space(Abs(x2))
s = s_space & Cells(i, 1).Value & s_space
Debug.Print s, Len(s)
Next
End Sub