Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2008to2012
2008to2012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Zellen per Makro zusammenführen

Forumthread: Zellen per Makro zusammenführen

Zellen per Makro zusammenführen
12.03.2025 11:22:56
Chris
Hallo Forum,

ich möchte aus einer mehrspaltigen Tabelle per VBA (die Länge ist variabel) mehrere Spalten zusammenführen und diese untereinander auflisten.
Ich habe dazu eine Beispieltabelle erstellt. Evtl. hat jmd Kenntnisse wie man dies in VBA umsetzt, per Transpose?

Gruß
Chris

https://www.herber.de/bbs/user/176218.xlsx
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen per Makro zusammenführen
12.03.2025 11:47:58
Alwin Weisangler
Hallo Chris,

ich habe mal aus den Tabellen Listobjekte gemacht und die Lösung wäre dann so: 


Option Explicit



Sub NeueTabelle()

    Dim i&, j&, arrTabQ(), arrZ(): arrTabQ = Tabelle1.ListObjects(1).DataBodyRange.Value

    ReDim arrZ(1 To UBound(arrTabQ), 1 To 5)

    For i = LBound(arrZ) To UBound(arrZ)

        arrZ(i, 1) = arrTabQ(i, 1)

        arrZ(i, 2) = arrTabQ(i, 2) & " " & arrTabQ(i, 3) & " " & arrTabQ(i, 6)

        arrZ(i, 3) = arrTabQ(i, 4)

        arrZ(i, 4) = arrTabQ(i, 5)

        arrZ(i, 5) = arrTabQ(i, 6)

    Next i

    With Tabelle2.ListObjects(1)

        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete

        .ListRows.Add.Range.Resize(UBound(arrZ), 5) = arrZ

    End With

End Sub

https://www.herber.de/bbs/user/176219.xlsm

Gruß Uwe
Anzeige
AW: Zellen per Makro zusammenführen
12.03.2025 12:24:31
Chris
Hallo Uwe,

das funktioniert wunderbar. Danke!
Wie mache ich aus meinen normalen Tabellen "Listobjekte", so dass ich das Makro nutzen kann?

Chris
AW: Zellen per Makro zusammenführen
12.03.2025 13:33:12
Alwin Weisangler
Hallo Chris,

auch das ist ganz einfach.
Weg1: Klicke in irgend eine Zelle der Tabelle auf dem Tabellenblatt --> drücke Strg./T und den Rest sieht man dann.
Weg2: Markiere die Tabelle nebst Überschriften und dann Strg./T drücken.

Mal ein paar Sätze zu arbeiten mit Arrays:

Der Tempogewinn ist eine angenehme Begleiterscheinung, wenn man ´s richtig macht.
Der eigentlich große Zugewinn bei Umgang mit Array ist, dass man sauber zu programmieren lernt.

Aber das ist, wenn ich deine Frage zu Listobjekten sehe eher für spätere Zeiten, wenn man die offensichtlichen Möglichkeiten von Excel mal ein bisschen durchleuchtet hat, eine der nachfolgenden Schritte sich damit zu beschäftigen.

Gruß Uwe
Anzeige
AW: Zellen per Makro zusammenführen
12.03.2025 12:19:09
daniel
Hi
da brauchst du kein Transpose.

in die erste freie Spalte am Tabellenende kommt die Formel: =B1&" "&C1&" "&F1
diese Spalte kopierst du und fügst sie als Wert in die Spalte B ein
dann löschst du Spalte C und F.
eigentlich ganz einfach.
bekommst du das mit deinen bescheidenen VBA-Kenntnissen hin?
Gruß Daniel
Anzeige
AW: Zellen per Makro zusammenführen
12.03.2025 12:27:21
Chris
Hi Daniel,

klar, das bekomme ich mit bescheidenen VBA Kenntnissen hin, auch das Löschen von Spalten kann ich programmieren.
Um meine VBA Kenntnisse zu erweitern, versuche ich mit etwas komplizierteren Makros zu arbeiten, manchmal gelingt es,
manchmal nicht, insbesondere Arrays sind für mich wirklich kompliziert zu verstehen.
Chris
Anzeige
AW: Zellen per Makro zusammenführen
12.03.2025 17:01:41
daniel
Array geht natürlich auch, ist hier auch nicht sonderlich kompliziert: 
Sub test()

Dim arr, erg

Dim z As Long



arr = Sheets("Quelle").Cells(1, 1).CurrentRegion.Value

ReDim erg(1 To UBound(arr, 1), 1 To 5)



For z = 1 To UBound(arr, 1)

    erg(z, 1) = arr(z, 1)

    erg(z, 2) = arr(z, 2) & " " & arr(z, 3) & arr(z, 6)

    erg(z, 3) = arr(z, 4)

    erg(z, 4) = arr(z, 5)

    erg(z, 5) = arr(z, 6)

Next



Sheets("Quelle").Cells(1, 8).Resize(UBound(erg, 1), UBound(erg, 2)).Value = erg

    

End Sub


prinzipiell bevorzuge ich den Weg über Formeln und Menüaktionen, denn da kann ich besser die Einzelschritte mitverfolgen, und ich habe keine Schleifen, die dich durchklicken muss, wenn ich auf Fehlersuche das Makro im Einzelstepmodus durchgehe.
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Ebay erste Suchseite auslesen - @Hirtenanna
Zwenn

Hallo Hirtenanna,
ich hoffe Du schaust hier noch rein. Jetzt hat es ja doch etwas gedauert, bis ich meine Zusage umgesetzt habe.
Dafür bekommst Du aber eine Out-of-the-box-Lösung, weil ich die Gelegenheit, die Suchseite genau unter die Lupe zu nehmen einerseits für eigene Zwecke genutzt...
28.02.2019 16:53:58
Thread-ID: 1678466
8 Beiträge
Abfrage in Tabelle nach zwei Werten
Marco
Hallo zusammen,
Ich komme nicht mehr weiter, bzw stehe auf dem Schlauch und sehe vor lauter Formeln keinen geraden Weg mehr.
Projekt Ausleihliste:
Um es vereinfacht zu schreiben, möchte ich eine Art Liste führen, über Gegenstände, die ich ausleihen kann.
Ich habe ein Deckblatt wo ic...
14.07.2021 19:06:57
Thread-ID: 1839113
8 Beiträge
Mehrere Zelleninhalte in einer Zelle anzeigen
JAT

Hallo liebes Forum,
ein "Detailproblem", wo ich zwar die Hälfte des Problems gelöst habe, aber einfach nicht weiterkomme :-(.
Beschreibung (unten mit Excel-Beispiel):
Es gibt zwei Spalten, deren Inhalte mit der Und(&)-Funktion verbunden und in einer Zelle dargestellt werden soll...
13.04.2012 23:47:56
Thread-ID: 1259201
4 Beiträge
SVERWEIS über eine Matrix mit mehreren Ergebnisspa
Markus
Hallo,

ich bräuchte einen Tip. :-)

Ich versuche Werte aus einer Arbeismappe in eine zweite zu übenehmen.
Erstere ist eine von SAP erzeugte Tabelle die die Ausgangsbasis bildet. Von hier aus sollen die Werte in eine zweite Tabelle übernommen werden.
Es handelt sich dabei um Kost...
26.09.2003 15:04:51
Thread-ID: 315673
2 Beiträge
Zwischenergebnisse, Startzeilen, -spalten variabel
Dip

Guten Tag Allerseits,
Gerne würde ich eine Problemstellung im Forum einbringen, in der Hoffnung, jemand kennt die Lösung :-)
Im angehängten Excel File sieht man zwei Projekte.
Die von Hand eingegebenen Werte auf Stufe "Task" sollen auf Stufe "AP" summiert werden. Wiederum sollen dan...
29.10.2013 11:47:36
Thread-ID: 1336297
2 Beiträge
Anzeige
Zahlenfolgen in verschiedene Spalten aufteilen?
Jeremiah
Hallo erstmal,
Ich habe da ne Exceldatei in der verschiedene Dateinamen in zwei Tabellen(Tabelle1 und 2) verteilt stehen. Die Dateinamen stehen jeweils komplett in Spalte A untereinander, und sehen z.B. so aus:
12-03-01-1-0900
12-03-01-2-0900
12-03-01-3-0900
Jetzt würde ich gerne d...
16.03.2004 09:18:28
Thread-ID: 398344
1 Beitrag
Spalten kopieren
Steve


Moin,
ich komme nicht weiter. Vielleicht kann mir da jemand Bitte helfen?
Ich möchte ab einem bestimmten Bereich einer dynamischen Tabelle (Sheet Eingabe) jede Beschriebene Spalte kopieren.
- Die erste Zeile der Tabelle ist die Überschrift.
- Die Menge der Spalten ändert s...
02.07.2019 15:54:26
Thread-ID: 1700525
16 Beiträge
Suchfunktion via VBA
Tim

Guten Tag
Ich habe folgenden Code:
Sub Suchen_und_anzeigen() Dim Meldung As Byte, Pos As Byte Dim Schleife As Byte, y As Byte Dim Begriff, Suchen() As Variant Dim Bereich As Range Dim n%, x%, xZelle%, yZelle% D...
24.10.2013 13:03:47
Thread-ID: 1335694
6 Beiträge
Anzeige
Werte per VBA ermitteln
Haustein
Hallo Gemeinschaft,
ich habe folgende tabelle
nun möchte ich gerne per vba einen variable Attributgesamt
sie soll so aussehen Attributgesamt = ohne, Kragen, KragenBrust
Attribut Name 3 ...... hier kommen noch weitere Spalten
ohne
ohne
ohne
ohne
ohne
ohne
...
29.01.2022 17:24:04
Thread-ID: 1867911
10 Beiträge
VBA-Spalten ohne Leerzeilen
Carola559

Hallo liebes Forum,
ich bin VBA-Anfänger und bräuchte deshalb dringend eure Hilfe.
Ich habe zwei Tabellenblätter "Ansicht_1" und "Ansicht_2". In dem Tabellenblatt "Ansicht_1" Spalten B-G befindet sich meine Datenbasis, bestehend aus Zahlen und Namen. Die Spalte B weist Zahlen zwischen 1...
02.02.2018 22:40:47
Thread-ID: 1606654
3 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum