", " am Anfang einer Zelle entfernen?!?
04.05.2006 13:17:10
Björn
hoffe Ihr könnt mir helfen. Ich habe mit einem VBA Projekt
doppelte Zellen gesucht und diese Zusammengefasst. Das klappt
auch soweit, nur schmeisst mir das projekt vor den zusammen-
gefügten Zellen immer ein ", " mit raus. Das komma soll kommen
aber nicht am Anfang.
Hier ist der Code:
Private Sub CommandButton1_Click()
Dim lz&, efz&, gef As Range, z As Range
lz = Cells(Rows.Count, 1).End(xlUp).Row
For Each z In Range("d2:d15")
Set gef = Range("d2:d15").Find(z.Value, lookat:=xlWhole)
If gef Is Nothing Then
efz = Cells(Rows.Count, 4).End(xlUp).Row + 1
Cells(efz, 7).Value = z.Value
Cells(efz, 8).Value = z.Offset(0, 1).Value
Else
gef.Offset(0, 86).Value = gef.Offset(0, 86) & ", " & z.Offset(0, 2).Value
End If
Next z
End Sub
das wirft mir vor jedem zusammengefügten ein komma mit raus.
jetzt brauch ich entweder einen code der die kommas in jeder zelle, aber nur
am anfang entfernt, oder eine lösung für meinen code.
hoffe ihr versteht mein problem.
gruss
björn
Anzeige