Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1380to1384
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
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten iterativ Zusammenfassen

Spalten iterativ Zusammenfassen
17.09.2014 15:51:51
Excel
Hallo Leute,
ich hänge nun schon einige Tage an einem Problem und finde nirgendwo eine passende Lösung.
Ich habe einen Datensatz der wie folgt vorliegt:
(jedes element in einer einzelnen Zelle)
1 A1 B1 C1 D1 E1 F1
2 A2 B2 C2 D2
3 A3 B3 C3 D3 E3 F3 G3 H3
4 A4 B4
und muss ihn in folgende Form bringen:
1 A1 B1
1 C1 D1
1 E1 F1
2 A2 B2
2 C2 D2
3 A3 B3
3 C3 D3
3 E3 F3
etc... also sortiert in der ersten Spalte in jeweils einer Zelle.
Das Problem ist das die Zeilen unterschiedlich lang sind und das Programm erkennen muss wie weit es jeweils gehen muss. In der anwendung haben die Datentabelle mehrere Tausend einträge was ein manuelles Bearbeiten umständlich macht und einen VBA code erforderlich macht.
Ich wäre sehr dankbar für eine schnelle Hilfe.

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten iterativ Zusammenfassen
17.09.2014 16:40:28
Excel
kleiner Fehler meinerseits,
Es muss folgende Form bekommen:
1+A1+B1
1+C1+D1
1+E1+F1
2+A2+B2
2+C2+D2
3+A3+B3
3+C3+D3
3+E3+F3
Ich danke im Vorraus

AW: Spalten iterativ Zusammenfassen
17.09.2014 16:45:23
Daniel
Hi
als Makro so, die Daten werden rechts von der ausgangstabelle eingefügt:
Sub test()
Dim arr1
Dim arr2
Dim z1 As Long, z2 As Long
Dim s1 As Long, s2 As Long
arr1 = Cells(1, 1).CurrentRegion.Value
ReDim arr2(1 To Int(UBound(arr1, 1) * UBound(arr1, 2 / 3) + 1), 1 To 3)
For z1 = 1 To UBound(arr1, 1)
For s1 = 2 To UBound(arr1, 2) Step 2
If arr1(z1, s1) = "" Then Exit For
z2 = z2 + 1
arr2(z2, 1) = arr1(z1, 1)
arr2(z2, 2) = arr1(z1, s1)
If s1
Gruß Daniel

Anzeige
AW: Spalten iterativ Zusammenfassen
17.09.2014 19:49:14
Excel
Hallo,
erst mal danke für die Hilfe. Er gibts keine Fehlermeldung an, jedoch tut sich leider auch nichts. Habe die zeit genutzt um ein wenig daran rumtricksen was leider zu nichts geführt hat. ^^
Vieleicht hab ich mein Problem auch undeutlich formuliert. Ich lad noch mal eine BSP datei hoch.
https://www.herber.de/bbs/user/92694.xlsx
Danke nochmals für die Hilfe!
(P.S. ich hab diese Frage in 3 Foren hochgestellt und wurde darauf hingewiesen das sowas nicht gern gesehen ist. Sollte das Problem gelöst sein werde ich es sofort hier melden.)

Anzeige
AW: Spalten iterativ Zusammenfassen
17.09.2014 20:24:18
Daniel
Hi
natürlich tut sich was du Blindschleiche!
Schau dir Datei doch mal genauer an.
Und lies auch mal was ich schreibe, es war nur ein Satz und den zumindest solltest du lesens:
"die Daten werden rechts von der ausgangstabelle eingefügt"
dann schau auch mal rechts von deiner Ausgangstabelle ("Original"), so in Spalte Y, Z und AA, nach dem du das Makro hast laufen lassen.
Das Ergebnis des Makros ist sogar noch in deiner Beispieldatei drin, du musst nur ein bisschen nach rechts scrollen.
Der Code ist halt so schnell, dass man bei der geringen Datenmenge der Beispieldei nicht merkt, dass er läuft, das Ergebnis ist sofot da.
Gruß Daniel

Anzeige
AW: Spalten iterativ Zusammenfassen
17.09.2014 21:39:56
Excel
Habs damit nun zum laufen bekommen. :) Vielen dank für deine Hilfe. Ohne deine hilfe hätte ich da noch lange dran gesessen.
Ich wünsche dir noch einen schönen Abend

AW: Spalten iterativ Zusammenfassen
17.09.2014 21:49:20
Daniel
was musstest du da noch gross ans laufen bringen?
Das Ergebnis meines Makros stand doch in deiner Beispieldatei schon drin, dh das Makro ist gelaufen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige