|
Hallo,
ich habe ein "gewachsenes" Excel-Sheet mit Daten zu Zeitschriften, welche ich gerne per VBA in eine strukturierte Datenbank migrieren möchte.
Die erste Spalte enthält die Namen der Zeitschriften. Das Problem ist jedoch, dass es nicht eine Zelle pro Zeitschrift gibt, sondern immer mehrere, zusammengefassten Zellen. Das liegt daran, dass die zu einer Zeitschrift gehörenden Detailnformationen in den Zellen rechts daneben abgelegt sind:
+-----------|---------
| |--------
| |--------
| Z1 |--------
| |--------
| |--------
| |--------
+-----------+----------
| |--------
| |--------
| Z2 |--------
| |--------
| |--------
| |--------
+-----------+----------
Ich würde gerne in einer äußeren Schleife die Zeitschriften durchlaufen, also "Z1", "Z2", ... usw. In einer inneren Schleife würde ich dann die Details aus den Zellen rechts daneben herausziehen. Ich habe es so versucht:
i = 1
Do While (True)
zeitschrift = sheet.Cells(i, 1).Value
i = i + 1
Loop
Dabei erhalte ich zwischen den Namen der Zeitschriften auch viele leere Strings, weil offenbar nicht die "großen" Zellen durchlaufen werden, sondern die kleinen Zellen, aus denen die großen zusammengesetzt sind. Die leeren Strings könnte ich zwar weg filtern, aber das bringt mich später in Teufels Küche.
Gibt es einen Weg, die "großen" - also zusammengefassten - Zellen zu durchlaufen und dann von da aus sich weiter in das Chaos hineinzuarbeiten?
Danke
Knorpi
|