Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA, Textteil, wenn beginnend mit ,

VBA, Textteil, wenn beginnend mit ,
Günter
Guten Morgen,
Frage: Habe in einer Spalte 212.000 Einträge.
T e i l w e i s e beginnen Einträge mit einem , (Komma).
Bräuchte was, das mir Einträge mit , (also Komma)
beginnend, das , (Komma) entfernt.
Da das Komma mehrfach in einer Zwelle vorkommen
kann, kann ich das Suchen/Ersetzen nicht anwenden.
Gruß
Günter
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA, Textteil, wenn beginnend mit ,
19.02.2010 07:33:31
welga
Hallo,
versuche doch mal folgenden Code:
Sub komma()
Dim zelle As Range
For Each zelle In ThisWorkbook.Sheets(1).UsedRange
If Left(zelle, 1) = "," Then zelle = Right(zelle, Len(zelle) - 1)
Next zelle
End Sub
Vielleicht klappt es ja damit.
Gruß
welga
Anzeige
AW: VBA, Textteil, wenn beginnend mit ,
19.02.2010 07:46:20
Tino
Hallo,
markiere den Bereich und lass dieses Makro laufen, müsste funktionieren.
Sub Loesche_Komma()
Dim meAr(), Bereich As Range
Dim A As Long, AA As Long

Set Bereich = Selection

meAr() = Bereich.Value2

For A = 1 To Ubound(meAr)
    For AA = 1 To Ubound(meAr, 2)
        If Left$(meAr(A, AA), 1) = "," Then
            meAr(A, AA) = Right$(meAr(A, AA), Len(meAr(A, AA)) - 1)
        End If
    Next AA
Next A

Bereich = meAr
End Sub
Gruß Tino
Anzeige
AW: VBA, Textteil, wenn beginnend mit ,
19.02.2010 07:49:26
Günter
Guten Morgen Welga und Tino,
danke erstmal.
Beim Makro von Welga passiert nichts beim Ablauf.
Bei Tino klappt es wunderbar.
Vielen Dank Euch Beiden....
Gruß
Günter
AW: VBA, Textteil, wenn beginnend mit ,
19.02.2010 07:53:58
Matthias
Hallo
Das klappt schon auch mit dem Code von Welga
Du hast sicher das Blatt nicht angepasst
For Each zelle In ThisWorkbook.Sheets(1).UsedRange
Gruß Matthias
Anzeige
AW: VBA, Textteil, wenn beginnend mit ,
19.02.2010 08:53:16
Günter
Hallo Matthias,
ja, genau - das war mein Fehler.
Sorry.
Gruß
Günter
AW: VBA, Textteil, wenn beginnend mit ,
19.02.2010 08:52:12
Günter
Guten Morgen Welga und Tino,
danke erstmal.
Beim Makro von Welga passiert nichts beim Ablauf.
Bei Tino klappt es wunderbar.
Vielen Dank Euch Beiden....
Gruß
Günter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige