Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen nach Spalte A zusammenfassen

Zeilen nach Spalte A zusammenfassen
31.10.2012 15:12:32
Marc
Hallo,
ich habe ein Problem, dass ich alle Spalten ab Spalte B in einem weiteren Excelsheet ausgeben möchte, wenn Spalte den gleichen Wert hat.
Hier das Beispiel:
https://www.herber.de/bbs/user/82412.xlsx
In dem Sheet Ausgang sind die Daten drin. Ausgegeben werden sollen alle Spalten (also theoretisch Spalten B:ZZZ), die den gemeinsamen Wert in Spalte A haben. Und das in einem neuen Tabellenblatt (bei mir im Beispiel Ergebnis).
Kann mir jemand helfen, ich verzweifle gerade daran...
Danke und Gruß
Marc

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen nach Spalte A zusammenfassen
31.10.2012 15:42:43
Rudi
Hallo, 
Sub aaaaa()
Dim oDict As Object, rngC As Range, arrKeys, arrItems, sKey, i As Long
Set oDict = CreateObject("Scripting.dictionary")
For Each rngC In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
sKey = Range(rngC.Offset(, 1), rngC.Offset(, Columns.Count - 1).End(xlToLeft))
sKey = WorksheetFunction.Transpose(sKey)
sKey = WorksheetFunction.Transpose(sKey)
sKey = Join(sKey, "|")
If oDict.exists(rngC.Value) Then
oDict(rngC.Value) = oDict(rngC.Value) & "|" & sKey
Else
oDict(rngC.Value) = sKey
End If
Next
arrKeys = oDict.keys
arrItems = oDict.items
With Sheets("Ergebnis")
For i = 0 To UBound(arrKeys)
.Cells(i + 1, 1) = arrKeys(i)
sKey = Split(arrItems(i), "|")
.Cells(i + 1, 2).Resize(, UBound(sKey) + 1) = sKey
Next
End With
End Sub

Gruß
Rudi

Anzeige
Super, läuft! Wahnsinn!!
31.10.2012 15:47:44
Marc
Hallo Rudi,
Danke Dir vielmals!
Lieben Gruß
Marc

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige