Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

zeichen ersetzen

zeichen ersetzen
Günter
Guten Tag,
habe ein teuflisches Problem.
In Spalte C gibt es Einträge, welche durch ein Komma getrennt sind.
Nun gibt es jedemenge Einträge, welche zu Beginn ein Komma stehen
haben. Dieses müßte entfernt werden.
z.B. steht in Spalte C (in einer Zelle):
www.neu.de,www.pfannkuchen.de,www.alt.de
dann hier die Verkehrten:
,www.arlt.de,www.berlin.de, usw.
Bei den Verkehrten müßte das erste Komma (steht immer als erstes in der Zelle)
gelöscht werden.
Gruß
Günter

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

Betreff
Benutzer
Anzeige
AW: zeichen ersetzen
05.10.2009 12:52:51
David
hallo Günter
=WENN(LINKS(A1;1)=",";TEIL(A1;2;999);A1)
runterkopieren und ggf. anschließend per 'Kopieren - Inhalte einfügen' auf die Originaldaten kopieren.
Gruß
David
AW: zeichen ersetzen
05.10.2009 12:59:20
Günter
Hallo David,
genial!!!!
Danke...............vielmals.............
AW: zeichen ersetzen
05.10.2009 12:56:33
Tino
Hallo,
kannst ja mal testen.
Sub LoescheKomma()
Dim myAr, L As Long

With Sheets("Tabelle1") 'Tabelle anpassen 
    myAr = .Range("C1", .Cells(.Rows.Count, 3).End(xlUp)).Value2


    For L = 1 To Ubound(myAr)
     If Mid$(myAr(L, 1), 1, 1) = "," Then myAr(L, 1) = Right$(myAr(L, 1), Len(myAr(L, 1)) - 1)
    Next L

    .Range("C1").Resize(Ubound(myAr)) = myAr

End With
End Sub
Gruß Tino
Anzeige
AW: zeichen ersetzen
05.10.2009 13:16:40
Günter
Danke Tino,
teste....
gruß
günter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige