Korrektur für Kommakorrektur
16.01.2014 10:36:42
Sven
u.st. Befehl (ist von Gerd L) richtet mir die Kommas aus. Von z.B.: Text,Text in Text, Text.
Das funktioniert auch wunderbar, allerdings wird auch aus: 5,50 5, 50 .
Kann mir jemand die entsprechende Ausnahme codieren?
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
Allerbesten Dank
Sven