Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
", " am Anfang einer Zelle entfernen?!?
04.05.2006 13:17:10
Björn
Hallo zusammen,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ", " am Anfang einer Zelle entfernen?!?
04.05.2006 14:09:23
Reinhard
Hi Björn,
setze
gef.Offset(0, 86)=mid(gef.Offset(0, 86),2)
vor "End Sub"
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: ", " am Anfang einer Zelle entfernen?!?
04.05.2006 14:15:15
Björn
Hat leider nicht geklappt. Aber ich habe es schließlich,
hiermit gelöst. klappt tadellos. trotzdem vielen dank
für die prompte hilfe.
gruß
björn
'Lästige Kommas entfernen (endlich!)
Dim myRng As Range, rng As Range
With Sheets("Tabelle3")
Set myRng = .Range("CL2:CL15")
End With
For Each rng In myRng
If Mid(rng.Text, 1, 1) = "," Then rng = Mid(rng.Text, 3, Len(rng.Text))
Next
End Sub
Anzeige
AW: ", " am Anfang einer Zelle entfernen?!?
04.05.2006 14:30:51
Reinhard
Hi Björn,
wieso die 3, solln da die ersten beden Zeichen entfernt werden?
Sub tt()
Dim myRng As Range
For Each myRng In Worksheets("Tabelle3").Range("CL2:CL15")
If Left(myRng, 1) = "," Then myRng = Mid(myRng, 2)
Next myRng
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: ", " am Anfang einer Zelle entfernen?!?
04.05.2006 15:11:09
haw
Hallo Björn,
ich meine am besten ist es so, dass das Komma beim ersten Eintrag gar nicht erstellt wird:

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
If gef.Offset(0, 86).Value = "" Then
gef.Offset(0, 86).Value = z.Offset(0, 2).Value
Else
gef.Offset(0, 86).Value = gef.Offset(0, 86) & ", " & z.Offset(0, 2).Value
End If
End If
Next z
End Sub

Gruß
Heinz
Anzeige

337 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige