Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Komma setzen

Forumthread: Komma setzen

Komma setzen
21.02.2004 23:56:23
DieterG
Hallo Forum,
in SpalteA befinden sich ca.200 Familiennamen und Vornamen durch ein Leerzeichen getrennt.
Frage: Gibt es per VBA eine Möglichkeit SpalteA zu durchsuchen un hinter den Familiennamen ein Komma zu setzen?
Danke Gruß DieterG
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Komma setzen
22.02.2004 00:07:42
Bert
Option Explicit

Sub Komma()
Dim k As Integer, c As Range
For Each c In [a1:a500]
If c <> "" Then
k = InStr(c.Text, " ")
c = Left(c, k - 1) & "," & Mid(c, k, Len(c) - k + 1)
End If
Next
End Sub

Bert
AW: Komma setzen
22.02.2004 00:17:59
DieterG
Hallo Bert,
klappt super!
Danke
AW: Komma setzen - 1000 Zeilen in 0,3 Sekunden
22.02.2004 00:39:17
FP
Hallo Dieter,
noch eine Möglichkeit:

Sub SetKomma()
Dim rngCell   As Range
With Application
.ScreenUpdating = False
For Each rngCell In Columns(1).SpecialCells(xlCellTypeConstants).Cells
rngCell = WorksheetFunction.Substitute(rngCell, " ", ", ")
Next
.ScreenUpdating = True
End With
End Sub

Servus aus dem Salzkammergut
Franz
Anzeige
AW: Komma setzen
22.02.2004 01:16:55
Ulf

Sub Komma()
Columns(1).Replace " ", ", "
End Sub

Ulf
AW: Komma setzen
22.02.2004 01:30:02
FP
Hallo Ulf,
das kann man ja gar nicht mehr messen :D:D:D
unschlagbar schnell!!!
Servus aus dem Salzkammergut
Franz
AW: Komma setzen
22.02.2004 01:49:28
Ulf
Ist ja quasi C pur! Hat nur den Nachteil, dass es alle Leerzeichen,
nicht nur das erste, putzt.
Ulf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige