Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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.
AW: Spalten mit Makro zusammenführen
27.01.2022 21:14:15
Andi
Super... vielen Dank. Wieder was gelernt :-)
Singen Abend

225 Forumthreads zu ähnlichen 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
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
3
3
3
4
4
1
5
3
6
4
2
6
13
2
3
3
2
2
3
1
3
9
9