Kommas am Ende entfernen

[snb]

Woher stammt diese letzte Komma ?

Code:

Sub M_snb()
   [a1:A2000] = [if(A1:A2000="","",if(right(A1:A2000,1)=",",left(A1:A2000,len(A1:A2000)-1),A1:A2000))]
End Sub

[GMG-CC]

Ich denke mal, da war ein wahrer Könner am Werk. Beispielsweise:

Code:

Function NewValue(rng As Range)
  Dim c As Range
  For Each c In rng
     NewValue = NewValue & ","
  Next c
End Function

... und Left() sowie Len() sind vielleicht unbekannte Funktionen  :05:
Kann natürlich auch so ein "wilder" Export irgend eines Fremdprogramms sein.

[Klaus]

*anglatzeklatsch*

ich denke nun hab ichs aber... 

Code:

Sub ersetzen()
Dim i As Long, lngZ As Long
Dim SuchenNach

SuchenNach = ","
lngZ = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To lngZ
   If Right(Cells(i, 2), 1) = SuchenNach Then Cells(i, 2) = Left(Cells(i, 2), Len(Cells(i, 2)) - 1)
Next i

End Sub

Hihi... snb nun wieder mit nem Einzeiler dazu...  herrlich...  :23: 

Das letzte Komma ist ein Überbleibsel von der Datenübernahme einer Webseite (Firmenintranet).
Dort stehen die relevanten Informationen in einer Zeile und müssen zum sortieren getrennt werden.
Vielleicht könnte man aber tatsächlich an der Stelle nochmal was verfeinern.
Muss ich mal überschlafen das Ganze...

Besten Dank an Euch  :100:
Liebe Grüße
Klaus

[Klaus]

...kurz nochmal was zum Code von snb...

der ist nicht nur kurz - der ist auch schnell. so schnell kann ich garnicht schnippen wie der alle Zellen geändert hat.
 
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Viele Grüße
Klaus