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

Gleiche Spalteninhalte zusammenführen

Forumthread: Gleiche Spalteninhalte zusammenführen

Gleiche Spalteninhalte zusammenführen
22.04.2015 15:26:22
Yasar
Hallo,
ich habe mehrere Tabellenblätter (ca. 20 an der Zahl) mit gleichen Spaltenbezeichnungen. Diese Spaltenbezeichnung sind aber in den einzelnen Tabellenblättern in verschiedenen Spalten zu finden. Die Inhalte aus den Spalten sollen in eine Haupttabelle zusammengeführt werden.
Also, nach gleicher Spaltenbezeichnung (Überschrift) suchen und die Inhalte der Spalten mit gleicher Bezeichnung untereinander auflisten.
Danke für die Hilfe.
Gruß,
Yasar

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Gleiche Spalteninhalte zusammenführen
22.04.2015 16:23:51
Nepumuk
Hallo,
kannst du eine Mustermappe mit 2 oder 3 Tabellen ein Paar Überschriften und ein paar Zeilen Daten hochladen? Soll das Ganze in eine neue Tabelle oder in eine der vorhandenen?
Gruß
Nepumuk

AW: Gleiche Spalteninhalte zusammenführen
22.04.2015 16:46:22
Nepumuk
Hallo,
und in welcher Tabelle sollen die 3 Tabellen zusammengefasst werden?
Gruß
Nepumuk

AW: Gleiche Spalteninhalte zusammenführen
22.04.2015 16:50:50
Yasar
Darf gerne eine neue Tabelle sein.

AW: Gleiche Spalteninhalte zusammenführen
22.04.2015 17:30:05
Nepumuk
Hallo,
teste mal:
Option Explicit

Public Sub CollectTables()
    Const COLLECTIONSHEET_NAME As String = "Zusammenfassung" 'Name der neuen Tabelle
    Dim objWorksheet As Worksheet, objCollection As Worksheet
    Dim objCell As Range
    Dim lngColumn As Long, lngInsertColumn As Long, lngInsertRow As Long
    For Each objWorksheet In Worksheets
        If objWorksheet.Name = COLLECTIONSHEET_NAME Then
            Application.DisplayAlerts = False
            objWorksheet.Delete
            Application.DisplayAlerts = True
            Exit For
        End If
    Next
    Set objCollection = Worksheets.Add(Before:=Worksheets(1))
    objCollection.Name = COLLECTIONSHEET_NAME
    For Each objWorksheet In Worksheets
        If Not objWorksheet Is objCollection Then
            With objWorksheet
                For lngColumn = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
                    Set objCell = objCollection.Rows(1).Find( _
                        What:=.Cells(1, lngColumn).Value, LookIn:=xlValues, LookAt:=xlWhole)
                    If objCell Is Nothing Then
                        lngInsertColumn = lngInsertColumn + 1
                        Call .Range(.Cells(1, lngColumn), .Cells(.Rows.Count, lngColumn).End(xlUp)).Copy( _
                            Destination:=objCollection.Cells(1, lngInsertColumn))
                    Else
                        With objCollection
                            lngInsertRow = .Cells(.Rows.Count, objCell.Column).End(xlUp).Row + 1
                        End With
                        Call .Range(.Cells(2, lngColumn), .Cells(.Rows.Count, lngColumn).End(xlUp)).Copy( _
                            Destination:=objCollection.Cells(lngInsertRow, objCell.Column))
                    End If
                Next
            End With
        End If
    Next
    objCollection.Columns.AutoFit
    Set objCollection = Nothing
    Set objCell = Nothing
End Sub

Gruß
Nepumuk

Anzeige
AW: Gleiche Spalteninhalte zusammenführen
23.04.2015 10:50:36
Yasar
Hallo Nepumuk,
SUPER!!!
Es funktioniert. :-)
Du hast mir unendlich viel Zeit eingespart.
DANKE, DANKE, DANKE!!!!
Gruß,
Yasar

Forumthreads zu verwandten Themen

wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
zwei Spalten in einem zusammenfassen
Yuki

Morgen Leute,
Könnt Ihr mir bitte erklären, wie man zwei Spalten in Excel-Datei mit Marko in einem Spalt zusammenfassen kann?
Beispiel:
vorher
Spalt A: hello Spalt B: kitty
nachher
Spalt A: hello kitty
Danke schön!
07.11.2008 09:54:43
Thread-ID: 1022541
6 Beiträge
Wie führt man mehrere Spalten zu einer Zusammen?
Schmidt

Wer kann mir mal auf die Sprünge helfen. Ich wollte (siehe Mustertabelle Anlage) die Werte aus 3 Spalten zu einer Spalte zusammenführen. Ich hatte gedacht mit dem Befehl Verketten ginge es, aber irgendwie mache ich da etwas falsch.
22.03.2009 15:35:55
Thread-ID: 1062649
5 Beiträge
Diagramm mit gestapelten und einzel Spalten
TOM

Hallo zusammen
Ich möchte gerne eine einzelne Spalte neben einer gestapelten Spalte erstellen aber ich weiss nicht wie!?

Die im Bild grün ersichtliche Linie möchte ich jetzt ändern und als Spalte neben der gestapelten Spalte anzeigen lassen.
Ich habs ausprobiert.......beim ände...
31.03.2009 14:10:34
Thread-ID: 1065633
4 Beiträge
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge
Pixel Position in einem Diagramm
Andreas

Hallo,
kann mir jemand erklären, wie man die X/Y Position eines Punktes in einem Diagramm rausfinden kann.
also soetwas wie
Sheets("Daten").ChartObjects("Diagramm 1").Chart.SeriesCollection(1).Points(10).X
es hat den hintergrund dass dieses diagramm als Bild in eine Userform lad...
02.01.2010 16:32:28
Thread-ID: 1126734
11 Beiträge
unterschiedliche Spaltenbreite in Liniendiagramm
anke

Hallo,
ich habe ein Diagramm mit einer X- und 2 Y-Achsen erstellt. In der X-Achse werden Daten angezeigt.
Lieder ist der Abstand zwischen den Daten nicht immer gleich. Kann ich in einem Diagramm die Spaltenbreite bestimmen?
Vielen Dank schonmal
Anke
13.04.2010 13:05:58
Thread-ID: 1151417
2 Beiträge
Anzeige
Summen in Spalten
Berni

Schönen Abend Excellenzen!
Ich habe zwar schon einige Varianten probiert, aber die Non-plus-Ultra-Formel habe ich noch nicht gefunden.
Zuletzt hab ich das Problem doch in der althergebrachten Möglichkeit, aber umständlich gelöst.
Also folgendes Problemchen:
In den Spalten habe i...
12.10.2010 19:09:59
Thread-ID: 1182077
4 Beiträge
2 Spalten in eine zusammenfügen
Bernhard

Hallo,
ich habe folgendes Problem. Ich habe nebeneinander zwei Spalten, jeweils mit der Ausprägung 0 oder -1 in Spalte A bzw. 0 oder 1 in Spalte B.
1 und -1 stehen für ein Signal können nicht nebeneinander auftreten. 0 und 0 jedoch schon. Für mich wäre es jetzt wichtig eine Spalte zu be...
07.06.2011 16:45:06
Thread-ID: 1217600
4 Beiträge
VB Auswertung 2er Spalten in 2 neue zusammenfassen
udo

Hallo Excel VB Profis ;
bräuchte bitte Hilfe bei einer Auswertung 2er Spalten die ohne doppelte Werte in 2 neuen Spalten zusammengefasst werden sollen ...
habe dazu eine Beispieltab. hochgeladen ... Die Datei https://www.herber.de/bbs/user/79906.xlsx wurde aus Datenschutzgründen gelös...
23.04.2012 01:34:20
Thread-ID: 1260566
8 Beiträge
Anzeige
Spalteninhalt auf bestimmte Werte überprüfen
PIT55

Hallo ans Forum,
seit einiger Zeit versuche ich mich in der VBA Programmierung, habe aber noch viele Lücken.
Ich bekomme wöchentlich eine Excel Tabelle mit ca. 50000 Zeilen und 35 Spalten. Diese muß ich
vor der Weiterverarbeitung auf Formatierungsfehler überprüfen. Das habe ich per...
21.06.2012 10:13:03
Thread-ID: 1268242
7 Beiträge
Spaltennamen in Summenprodukt mit Teilergebnis
Christian

Guten Morgen,
folgenden Beitrag aus dem Archiv habe ich gefunden. Habe aber das Problem, dass ich beide Formeln nicht miteinander verknüpft bekomme.
Meine Formel lautet =SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT("g"&ZEILE(6:69)))*(I6:I69="Verfügbar"))
diese muss ich in andere Zellen...
21.12.2012 08:22:40
Thread-ID: 1291758
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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