Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige