Kommas ausrichten
13.09.2013 21:49:25
Sven
Gert hat mir zum ausrichten der Kommas u.st.Code geschrieben. Nun merke ich, dass er mir aber auch die Formatierungen platt macht. Kennt jemand evt. eine andere Variante?
Danke, Gruß Sven
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range, X As Variant, i As Integer
On Error GoTo errExit
For Each objCell In Target
X = Split(objCell.Text, ",")
If UBound(X) > 0 Then
For i = 0 To UBound(X)
X(i) = Trim$(X(i))
Next
objCell.Value = Join(X, ", ")
End If
Next
errExit:
End Sub