Hallo,
ich habe folgendes Problem mit dem ich mich schon länger beschäftige. Ich möchte mithilfe eines Makros eine beliebige Anzahl an Spalteninhalten miteinander verbinden. Hierbei sollen die jeweils nebeneinander liegenden Zellen in einer Zeile miteinander verbunden werden und in einer Zielspalte ausgegeben werden.
Die verbundenen Zelleninhalte sollen durch ein Komma getrennt werden.
Es soll immer Spalte A mit Spalte C - Spalte XYZ(Anzahl an Spalten wird über Abfrage eingelesen)verbunden werden.
Die gesuchte Schleife soll also konkret folgendes können:
Verkette A1 mit C1,d1,e1,f1 usw (Hierbei ist A1 immer ein Teil der Verknüpfung; C1 - XYZ1 wird über eine Abfrage des Verwenders eingelesen.)
Bisher konnte habe ich folgenden code gebaut:
'Zusammenfügen der Werte
Dim Rng As Range
Dim OutStr As String
Dim WorkRng As Range
Dim p As Long
For p = 1 To l
'l entspricht der Anzahl der vorhandenen Zeilen. Dieser Wert wird durch eine Abfrage eingelesen
Set WorkRng = Range(Chr(67) & p, Chr(67 + i) & p)
'i entspricht Anzahl Spalten c-xyz
For Each Rng In WorkRng
If Rng.Text "" Then
OutStr = OutStr & Rng.Text & ","
End If
Next
'Letzes Komma Löschen
OutStr = Left(OutStr, Len(OutStr) - 1)
'Ausgabe
Range(Chr(67 + i) & p).Value = OutStr
Next i
Jedoch funktioniert er nur für die erste Zeile und er berücksichtigt leider nicht die Spalte A.
Könntet Ihr mir helfen den Code so anzupassen, dass er die gewünschte Funktion erfüllt?
Schonmal vielen Dank für eure Hilfe,
Thomas