Zelleninhalt trennen per VBA
12.02.2014 09:18:48
Tobias
ich komme bei einem Problem leider nicht weiter und hoffe, dass mir jemand VBA erfahrenes dabei weiterhelfen kann.
Ich habe eine Tabelle, wo in einer Spalte mehrere IDs hintereinander in einer Zelle stehen. In der ersten Spalte steht immer die Leit-ID und in der 13ten Spalten stehen die dazu zugeordneten IDs.
Ich würde die zugeordneten IDs gerne am ende der Tabelle in der 1. Spalte gertrennt auflisten. Das heißt, wenn in der Zelle 3 oder auch mehr IDs stehen soll jede ID in einer neuen Zeile am ende der Tabelle stehen. Und in Spalte 2 soll die Leit-ID aufgelistet werden. Jede ID hat immer 14 Stellen und beginnt mit dem Buchstabe O.
Beispiel:
Zelle A1 (Leit-ID): O-123456789012
Zelle A13 (Zugeordnete IDs): O-123456789999O-111111111111 usw.
Ende der Tabelle z.B. in Zelle A2000.
A2000: O-123456789999 B2000: O-123456789012
A2001: O-111111111111 B2001: O-123456789012
Das Zeilenende der Tabelle habe ich immer mit folgendem Befehl ermittelt:
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
Ich hoffe ihr versteht mein Problem und könnt mir da weiterhelfen.
Danke schonmal im voraus für alle Bemühungen.
Viele Grüße
Tobias