Office: Zellinhalt aus mehreren Spalten in eine Zelle kopieren

Moin, moin
Dachte eigentlich das die Sache ganz simpel ist, wohl getäuscht. Möcht wenn in Zelle4, Spalte2, ein Text steht, diesen mit den Zellen aus Spalte3 und Spalte4 in die Zelle In Spalte 216 kopieren. Trennzeichen ", ".Wie üblich von der ersten bis zur letzten Zeile. Zeigt mir aber nur jeweils "12, 12, 12" in der Zelle an, sollten aber eigentlich Name, Straße und PLZ mit Ort sein. Wenn mir wieder jemand Helfen könnte wäre ich sehr dankbar.

Private Sub CommandButton28_Click()

Dim i As Long
For i = 4 To Worksheets("Daten").Cells(Rows.Count, 2).End(xlUp).Row
'ab der 4 Zelle'
'in der 2 Spalte steht der name'
If Not IsEmpty(Cells(i, 2)) Then
'Inhalt der Zellen kopieren nach Spalte 216'
Worksheets("Daten").Cells(i, 216) = Worksheets("Daten").Cells(Rows.Count, 2).End(xlUp).Row & ", " & _
Worksheets("Daten").Cells(Rows.Count, 3).End(xlUp).Row & ", " & _
Worksheets("Daten").Cells(Rows.Count, 4).End(xlUp).Row
ElseIf Cells(i, 2) = "" Then
Exit Sub
End If
Next
End Sub

:)

 

Moin Leute,
vielen Dank für Euer Forum. Heute Problem selbst gelöst, Grins.

Dim i As Long
For i = 4 To Worksheets("Daten").Cells(Rows.Count, 2).End(xlUp).Row
'ab der 4 Zelle'
'in der 2 Spalte steht der name'
If Not IsEmpty(Cells(i, 2)) Then
'Inhalt der Zellen kopieren nach Spalte 216'
Worksheets("Daten").Cells(i, 216).Value = Worksheets("Daten").Cells(i, 2) & ", " & _
Worksheets("Daten").Cells(i, 3) & ", " & _
Worksheets("Daten").Cells(i, 4)
ElseIf Cells(i, 2) = "" Then
Exit Sub
End If
Next
End Sub

 

Hallo akshara,

wenn ich nicht irre, steigt Dein Code vorzeitig aus, nämlich schon dann, wenn in Spalte B eine Leerzelle vorkommt.
Probier's mal damit.

Code:

 

Hallo Rainer,
vielen Dank für Deinen Hinweis. Du hast vollkommen Recht, sollte jemand keinen Namen eintragen, läuft mein Code nicht weiter.
Und dann habe ich mir gleich den nächsten Bock geschossen, weil weder Dein noch mein Code zumindest die Spalte3 oder Spalte4 als Eintrag berücksichtigt.
Mit Deinem Code muß ich mich erstmal richtig auseinandersetzen, auf jeden Fall Spitzenmäßig, wenn Du auch noch einen Ansatz für das folgende Problem hast wäre ich Dir sehr dankbar.
Schöne Grüße aus dem Süden

 

Moin, akshara,

Du schreibst in Deinem Code zumindest dreimal die Zeilennummer des Eintrags, während Rainer durch Verwendung von Offset den Inhalt der Spalten zusammenfasst. Der dargestellte Code könnte teilweise auf das Setzen von Objekten verzichten, macht aber ansonsten genau das, was im ersten Post gesucht wurde (von einer Automatik beim Ergänzen der Liste bei Änderung bzw. Neueintrag lese ich dort jedenfalls nichts).

 

Moin Jinx,

schon korrekt was Du sagst. Rainer hat die Sache wesentlich besser gelöst wie ich, leider ist mir nach seinem Code ja erst der Fehler bewusst geworden, daß jemand keinen Namen eingeben könnte, was dann zu einer Leerzelle führt. Mein Code hört bei der Leerzelle auf zu kopieren, der Code von Rainer setzt die Nachfolgenden Zellen zwar zusammen, aber in der Gesamtauflistung würde dieser Prüfbericht nicht auftauchen, obwohl vorhanden, weil die Zellen aus Spalte 3 und 4 nicht zusammengefügt wurden.
Die Beiträge nach der Antwort von Rainer haben nichts mit der ersten Frage zutun, diese wurde absolut korrekt gelöst.

Vielen Dank Euch allen

 

Hallo akshara,

ich war der Meinung, wenn kein Name vorhanden, dann ganze Zeile leer und somit erfolgt keine Verkettung.

Wenn dem nicht so ist müsste folgender Code funktionieren.

Code:

oder besser so, um einer weiteren Kritik von Jinx zu entgehen :-))

Code:

 

Hallo Rainer,

vielen, vielen Dank. Im nachhinein ist es genau das was ich brauche.
Super Code.

Wünsche Dir noch einen schönen Sonntag

 

Moin, Rainer,

es war von mir nicht als Kritik beabsichtigt, zumal für das Feststellen der letzten genutzten sichtbaren Zeile der Bezug zur Tabelle hergestellt werden sollte (wie war das noch mit den unliebsamen Überraschungen?). Daher hätte ich für den ersten Ansatz vielleicht den folgenden Code verwendet

Code:

bzw. beim zweiten Beispiel

Code: