VBA Verketten

Hallo,
ich möchte zeilenweise Zellen verketten und habe dafür einen Code im Internet gefunden.
Allerdings kann ich ihn nicht so abändern wie ich ihn haben sollte. Im Beispiel sollen die Spalten A bis E verkettet werden.
Hier ein Tabellenausschnitt:

Tabelle1

	A	B	C	D	E	F	G
1	Ü1	Ü2	Ü3	Ü4	Ü5	Das kommt jetzt heraus	So sollte es aussehen
2
3	b		a			b, , a, , ,	b, , a, , ,
4	3	4	5	6	7	b, , a, , , 3, 4, 5, 6, 7,	3, 4, 5, 6, 7,
5	h	d	j			b, , a, , , 3, 4, 5, 6, 7, h, d, j, , ,	h, d, j, , ,
6	d	4	5	g		b, , a, , , 3, 4, 5, 6, 7, h, d, j, , , d, 4, 5, g, ,	d, 4, 5, g, ,
7	g		5	34	3	b, , a, , , 3, 4, 5, 6, 7, h, d, j, , , d, 4, 5, g, , g, , 5, 34, 3,	g, , 5, 34, 3,

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.15 einschl 64 Bit

Und hier noch der Code: Option Explicit Sub ZeilenweiseVerketten() Dim str As String Dim i As Long Dim z As Long With ActiveSheet For z = 3 To .Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To 5 str = str & .Cells(z, i).Value & ", " Next i .Cells(z, 6).Value = str Next z End With End Sub Besten Dank für die Hilfe und Servus, Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ZeilenweiseVerketten() Dim str As String Dim i As Long With ActiveSheet For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row str = Cells(i, 1) & ", " & Cells(i, 2) & ", " _ & Cells(i, 3) & ", " & Cells(i, 4) & ", " & Cells(i, 5) & ", " .Cells(i, 6).Value = str Next i End With End Sub

Option Explicit Sub ZeilenweiseVerketten() Dim lngA As Long, strE As String, zz As Long, cc As Long With ActiveSheet lngA = .Cells(1, .Columns.Count).End(xlToLeft).Column For zz = 2 To LZWeRng(Columns(1).Resize(, lngA)) strE = Cells(zz, 1) For cc = 2 To lngA strE = strE & ", " & Cells(zz, cc) Next cc .Cells(zz, lngA + 1) = strE & ", " Next zz End With End Sub Function LZWeRng(rngB As Range) As Long Dim rng As Range Set rng = rngB.Find("*", rngB.Cells(1, 1), xlValues, , xlByRows, xlPrevious) If rng Is Nothing Then LZWeRng = rngB.Row Else LZWeRng = rng.Row End Function

…wird leider immer größer und sie damit unübersichtlicher, Luschi;
also ich möchte ja nicht ein geordnetes Wissensarchiv führen müssen, da würde ich ja irre wdn!
HWH hatte mal mit den Xl-vbAtoms vor Jahren so etwas angefangen/-boten, aber leider aus Zeitmangel wieder einstellen müssen, was ich irgendwie auch verstehen kann, wenn es auch sehr schade ist. OL und Ol-Xl haben vglbare Tutorien (auf herber „nur“ von einem Autor), und Spotlight ist ja bekanntlich schon seit Jahren in dem von dir angeregten Zustand… ;-]
Nun ja, man muss natürlich auch dem Nachwuchs eine Chance geben, aber wie gesagt, bereits Vorhandenes ist mitunter universeller; also „Prüfe, wer sich …!“ ;-)
Gruß Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread