Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1136to1140
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

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

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
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
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
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige