Verkettung, Trennzeichen in Sammelspalte
28.10.2015 10:37:35
andrea
ich suche eine Lösung um folgen Code zu verändern und dadurch mein Problem zu lösen. Die Sub habe ich aus Spotlight-Wissen und wurde dort von Georg Hoffmann als Lösung veröffentlicht.
Sub Verketten()
Dim Zeilen As Long
Dim Spalten As Long
Dim Summenspalte As Long
Summenspalte = 16
Zeilen = [a65536].End(xlUp).Row
For i = 1 To Zeilen
For j = 1 To Summenspalte - 1
Text = Text & Cells(i, j)
Next
Cells(i, Summenspalte) = Text
Text = ""
Next
das funktioniert wunderbar. Jedoch die Werte die in der "Summenspalte" ankommen
haben dieses Format (12345BerlinKreuzbergTorstraße1) ich benötige jedoch (12345/Berlin/Kreuzberg/Torstraße1/). Leider bekomme ich das nicht hin. Wäre für jede Hilfe dankbar.
LG
Andrea