Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1880to1884
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

Verketten aber dann mit Komma trennen

Verketten aber dann mit Komma trennen
19.04.2022 14:04:44
Martin
Habe hier eine Macro welches mir 2 Zellen Verkettet damit ich nur noch einen Text in der Zelle "D" finde
Bin nicht ganz glücklich damit, denn ich suche einen Weg das das Verketten mit einem Komma (,) getrennt in der Zelle dann steht.
Hier mein Macro welches aus der ZELLE "I" die Daten holt und dann in der Zelle "D" wo bereits ein Text steht dazufügt
Die Trennung sollte dann so aussehne Text1,Text2
Dim Zeile As Integer
Zeile = 2
While Not (IsEmpty(Cells(Zeile, 1)))
Cells(Zeile, 4) = Cells(Zeile, 4) & " " & Cells(Zeile, 9)
Cells(Zeile, 9).ClearContents
Zeile = Zeile + 1
Wend
Columns(1).AutoFit
Next

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verketten aber dann mit Komma trennen
19.04.2022 14:19:01
onur
Du brauchst doch nur das Leerzeichen durch Komma zu ersetzen:

Cells(Zeile, 4) = Cells(Zeile, 4) & "," & Cells(Zeile, 9)

AW: Verketten aber dann mit Komma trennen
19.04.2022 14:19:29
Oberschlumpf
Hallo, verwende das hier

Cells(Zeile, 4) = Cells(Zeile, 4) & ", " & Cells(Zeile, 9)

AW: Verketten aber dann mit Komma trennen
19.04.2022 16:13:56
snb
oder in VBA:

Sub M_snb()
for each it in usedrange.columns(1).specialcells(2)
if it.row>1 then it.offset(,3)=join(array(it.offset(,3),it.offset(,8)),", ")
next
End Sub

AW: Mach's doch gleich mit einer allgemeinen Lösun
20.04.2022 03:47:57
Sulprobil
Hallo Martin,
Ich schlage vor, Du programmierst (kopierst) nicht Deinen kleinen Spezialfall, sondern gleich eine allgemeine Lösung, die es in Excel 2019 noch nicht gibt, aber die in Excel 2021 und Excel 365 mit genau diesem Namen kommt:
http://www.bplumhoff.de/textverketten_de/
Viele Grüße,
Bernd
Anzeige
AW: Danke
20.04.2022 05:45:48
Sulprobil
Stimmt.
Wobei ich auch schon gelesen habe...
20.04.2022 10:36:56
{Boris}
Hi Ralf,
...dass es da innerhalb der 19er-Version auch noch Unterschiede geben kann und die Funktion manchmal (noch) nicht zur Verfügung steht.
VG, Boris
AW: Wobei ich auch schon gelesen habe...
20.04.2022 13:00:50
Martin
Danke sieht jetzt gut aus, alles gelöst !

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige