Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
08.10.2025 06:24:29
VBA - Zeichenkette von rechts kürzen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten mit Makro zusammenführen

Forumthread: Spalten mit Makro zusammenführen

Spalten mit Makro zusammenführen
27.01.2022 09:04:21
Andi
Guten Morgen liebe Excel-Community,
bräuchte bitte Eure Hilfe. Hab zwar unterschiedliche Codes schon dazu gefunden, aber irgendwie passen die dann doch nicht zu meinem Problem.
Hintergrund: In der beiliegenden Datei gibt es insg. 3 Tabellenblätter. In 2 davon (Tabelle 1 und 2) stehen sowohl die P-Nummer als auch die Namen.
Im 3. Tabellenblatt (Zusammenführen) möchte ich nun mit dem Button "zusammenführen" die beiden Tabellen 1 und 2 miteinander verschmelzen, sodaß dann die P-Nummern und die Namen der beiden Tabellen in diesem Tabellenblatt untereinander stehen.
Die Tabellen 1 und 2 sollen erhalten bleiben und können sich täglich ändern.
https://www.herber.de/bbs/user/150707.xlsm
Könnt Ihr mir bitte helfen?
Vielen Dank
Schöne Grüße
Andi
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten mit Makro zusammenführen
27.01.2022 10:04:25
Oli
Hallo Andi,
ich würde das über das Daten-Menü und PowerQuery zusammenführen. Damit löst man auch das Problem der variablen Tabellenlänge.
Grüße
Oliver
AW: Spalten mit Makro zusammenführen
27.01.2022 10:14:36
UweD
Hallo
so?

Sub Tabellenblätter_zusammenführen()
Dim LR As Long, LRZ As Long, TBZ As Worksheet, TB As Worksheet
Dim TMP As Integer
Set TBZ = Sheets("Zusammenführen")
'Reset
TBZ.UsedRange.Clear
For Each TB In ThisWorkbook.Worksheets
If TB.Name  TBZ.Name Then
LR = TB.Cells(TB.Rows.Count, "A").End(xlUp).Row
If TMP  1 Then 'Überschrift beim ersten Durchlauf
TB.Rows(1).Copy TBZ.Rows(1)
End If
LRZ = TBZ.Cells(TBZ.Rows.Count, "A").End(xlUp).Row + 1 ' Einfügezeile
TB.Rows(2).Resize(LR).Copy TBZ.Rows(LRZ)
TMP = 1
End If
Next
End Sub
LG UweD
Anzeige
AW: Spalten mit Makro zusammenführen
27.01.2022 17:39:36
Andi
Hallo UweD,
jetzt war ich doch etwas zu schnell. Hab Deinen Code getestet und auf meiner privaten Datei funktioniert er perfekt.
Jetzt wollte ich diesen in die Datei in meiner Arbeit einbauen und bekomm nun den Laufzeitfehler 9 (Index außerhalb des gültigen Bereichs)
Hinweis: In der "Arbeits-Datei" befinden sich mehrere Tabellenblätter und auch noch welche, die ausgeblendet sind.
Nun aber zu meiner konkreten Frage: Wäre es möglich, Deinen Code so umzuschreiben, daß ich die Arbeitsblätter (die verschmolzen werden sollen) direkt anspreche? In meinem Bespiel wären es Tabelle 1 und 2.
Schon mal Danke für Deine Hilfe und sorry, aber ich bin noch neu auf dem Gebiet.
Schöne Grüße
Andi
Anzeige
AW: Spalten mit Makro zusammenführen
27.01.2022 18:22:09
GerdL
Moin Andi!
Es spricht viel dafür, dass du kein Zusammenführen-Tabellenblatt in der Datei auf Arbeit hast, oder dieses ggf. nur leicht abweichend benannt hast.
Gruß Gerd
AW: Spalten mit Makro zusammenführen
27.01.2022 18:46:16
Andi
Oh Mann, da hast du natürlich recht.
Aber nun passiert eins, daß der Code auch andere Tabellenblätter einfügt und sich nicht auf bestimmte Seiten beschränkt.
Hast du eine Idee, wie ich nur bestimmte Seiten anspreche?
Danke dir
Anzeige
AW: Spalten mit Makro zusammenführen
27.01.2022 18:53:54
GerdL
Eine Möglichkeit:

Sub Tabellenblätter_zusammenführen()
Dim LR As Long, LRZ As Long, TBZ As Worksheet, TB As Worksheet
Dim TMP As Integer
Set TBZ = Sheets("Zusammenführen")
'Reset
TBZ.UsedRange.Clear
For Each TB In ThisWorkbook.Worksheets
Select Case TB.Name
Case "EIN", "Tabelle5", "Sieben"
LR = TB.Cells(TB.Rows.Count, "A").End(xlUp).Row
If TMP  1 Then 'Überschrift beim ersten Durchlauf
TB.Rows(1).Copy TBZ.Rows(1)
End If
LRZ = TBZ.Cells(TBZ.Rows.Count, "A").End(xlUp).Row + 1 ' Einfügezeile
TB.Rows(2).Resize(LR).Copy TBZ.Rows(LRZ)
TMP = 1
End Select
Next
End Sub
Gruß Gerd
Anzeige
AW: Spalten mit Makro zusammenführen
27.01.2022 19:03:08
Andi
Vielen Dank, werde es morgen gleich ausprobieren. Nur eine "Lernfrage" für mich noch:
Was bedeutet: Case "Ein", "Tabelle 5", "Sieben"?
Danke
Schönen Abend
AW: Spalten mit Makro zusammenführen
27.01.2022 20:59:41
ralf_b 

Select Case TB.Name
Case "EIN", "Tabelle5", "Sieben"
Case prüft den Ausduck TB.Nname auf die drei Werte. Wenn einer der drei Werte zutrifft, wird der Code in dem Caseblock abgearbeitet.
Anzeige
AW: Spalten mit Makro zusammenführen
27.01.2022 21:14:15
Andi
Super... vielen Dank. Wieder was gelernt :-)
Singen Abend
;

Forumthreads zu verwandten Themen

Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 Beiträge
Inhalte von Zellen runterkopieren
Zellen

Hallo,
ich habe folgendes Problem.
in C1: =B2;in C2: = B10; in C3: =B18
Ich will also, dass in der Spalte C der Inhalt von B2 steht und zwar in 8er Schritten B2, B10 etc.
Nun will ich die drei Zellen markieren und runterziehen, so dass ich in C4=B24, C5=B32,... ; etc bekomme.<...
30.04.2009 17:11:31
Thread-ID: 1072244
4 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Mahlzeit @ all
ich will gerne einen Verweis wieder in einer Tabelle aufteilen
also das habe ich bisher als Formel:
=VERWEIS(G10;{0;10;12;14};{"D";"C";"B";"A"})
in G10 würde zum Bsp. 11 stehen, dann würde C rauskommen.
Nun würde ich aber gerne diese Daten woanders ändern könn...
25.06.2009 13:50:05
Thread-ID: 1084334
4 Beiträge
Verteilung des Inhalts einer Zelle auf zwei Zellen
Jeanette

Hallo, gegeben eine Tabelle mit einer Spalte, die Informationen in folgender Form enthält:
1. Ein Wort oder mehrere Wörter, die durch Blank getrennt sind.
2. Unmittelbar auf das letzte dieser Wörter folgt ein Komma, gefolgt von einem Blank.
3. Danach öffnet sich eine Klammer „(„.
20.08.2009 16:33:59
Thread-ID: 1097466
5 Beiträge
Drei Spalten vergleichen und auch Zellen mit Text
belanglos

Hallo,
mir hat im Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1112845.htm#1112845 "WF" mit der Formel: "=WENN(ANZAHL(A1:C1)=0;"";WENN(ANZAHL(A1:C1)=1;MAX(A1:C1);WENN(UND(A1=B1;A1=C1);A1;"x")))" weitergeholfen.
Da ich dort irgednwie nichts schreiben kann, habe ich mal einen n...
10.11.2009 12:01:55
Thread-ID: 1115729
5 Beiträge
Drei Spalten vergleichen und auch Zellen mit Text
belanglos

Hallo,
mir hat im Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1112845.htm#1112845 "WF" mit der Formel: "=WENN(ANZAHL(A1:C1)=0;"";WENN(ANZAHL(A1:C1)=1;MAX(A1:C1);WENN(UND(A1=B1;A1=C1);A1;"x")))" weitergeholfen.
Da ich dort irgednwie nichts schreiben kann, habe ich mal einen n...
10.11.2009 10:40:06
Thread-ID: 1115733
2 Beiträge
Text wiedergabe aus mehreren Zellen
Alex

Hallo zusammen,
habe mal wieder keine Idee wie ich das Problem lösen kann.
Habe in drei Zellen verschiedene Einträge.
Jetzt möchte ich gerne, dass in der Zelle D1 aus allen drei Zellen ein Wiedergabe erfolgt.
Aus A1 soll die 1 eben wiedergegeben werden und dann noch ein M davor...
11.12.2009 08:34:29
Thread-ID: 1123110
6 Beiträge
Zellen als Text - formatieren
Uwe

Hallo NG,
brauch mal wieder Eure Hilfe zu folgendem Problem.
Ich bekomme eine Produkt-Datenbank aus Access nach Excel eingefügt. In dieser Datenbank befinden sich Produkt - Nr. die im Format Standard angezeigt werden. Um nun diese Datenbank nach bestimmten einzelnen Zahlenwerten in in den...
11.04.2002 20:37:09
Thread-ID: 112600
4 Beiträge
Textbox8 aus Zellen "beschicken"
Wolfgang

Hallo,
ich würde gerne erreichen, dass bei Schaltflächendruck auf dem UserformImport und aktiviertem OptionButton1 der Text aus Tabelle "Start" Zelle B34 & B35 in Textbox8 vom UserformEingabemaske eingefügt wird. Habe das mit untenstehendem Code versucht - es klappt aber irgenwie nicht....
23.02.2010 20:03:47
Thread-ID: 1140855
7 Beiträge
Anzeige
Zellinhalt in zwei Zellen
Fritz_W

Hallo Forumsbesucher,
ich habe in einer Tabelle in der Spalte A Fußballbegegnungen nach folgendem Schema aufgeführt:
Mannschaft Heim - Mannschaft Gast
(die Teambezeichnung jeweils verbunden durch " - ").
Ich möchte nun in der Spalte B jeweils die Heimmannschaft und in der Spalt...
11.05.2010 16:18:40
Thread-ID: 1156663
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige