ich möchte in der eben verlassenen Zelle bestimmte Fehler (bezogen auf die Kommas) aut. verbessern.
Z.B.
Text1,Text2 , Text3,Text4
soll hinterher so aussehen:
Text1, Text2, Text3, Text4
Kann mir jemand VBA-mäßig weiterhelfen?
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
Gruß Gerd