Zelleninhalte aufteilen....

Forumthread: Zelleninhalte aufteilen....

18.05.2004 10:58:50

Selma

Hallo Leute,
ich habe ein Tabellenblatt "Eingang" und ein Tabllenblatt "Archiv".
Jetzt möchte ich gern in Tabellenblatt "Eingang" ab Zeile 6 die Zelleninhalte
in Tabellenblatt "Archiv" wie folgt splitten (aufteilen):
Tabellenblatt "Eingang" Beispiel:
B6 = LS-WP-00-D-5-ARC-FA-27-R-B-V1.DWG
D6 = 22.04.2004 12:26:00
E6 = Grundriss 1. Obergeschoss
Tabellenblatt "Archiv" hinterher:
A6 = LS
C6 = WP
E6 = 00
G6 = D
I6 = 5
K6 = ARC
M6 = FA
O6 = 27
Q6 = R
S6 = B
U6 = V1
Einfach übernehmen:
V6 = Grundriss 1. Obergeschoss
AE6 = 22.04.2004 Nur Datum (ohne Uhrzeit)
AF6 = LS-WP-00-D-5-ARC-FA-27-R-B-V1.DWG
Also, Bindestrich (Spalte B) aus Tabellenblatt "Eingang" wird in Tabellenblatt "Archiv" durch leere Zelle ersetzt und alles
was zwischen den Bindestrich "-" ist wird aufgeteilt in Zellen.
Ausnahme sind die letzten 4 Zeichen von rechts gesehen (Bsp. .DWG) die sollen NICHT in das Tabellenblatt "Archiv" aufgeteilt bzw. übernommen werden (siehe Beispieldatei).
Wie mache ich das per VBA (Makro)?
Das Makro sollte in beiden Tabellenblätter ab Zeile 6 anfangen (wegen Überschrift).
Siehe Beispieldatei:

Die Datei https://www.herber.de/bbs/user/6482.xls wurde aus Datenschutzgründen gelöscht

Dankeschön im Voraus...........
Liebe Grüße
Selma

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nachfrage

Martin
AW: Nachfrage

18.05.2004 14:04:27

Selma
Lösungsvorschlag

Martin
AW: Lösungsvorschlag

19.05.2004 23:38:04

Selma

Nachfrage

Martin

Hallo Selma,
ist die Zahl der Zeichen in LS-WP-00-D-5-ARC-FA-27-R-B-V1.DWG, die zwischen den Bindestrichen stehen immer gleich? M.a.W. hat der String immer den gleichen Aufbau?
Gruß
Martin Beck

AW: Nachfrage

18.05.2004 14:04:27

Selma

Hallo Martin,
Aufbau ist immer gleich....
Gruß
Selma

Lösungsvorschlag

Martin

Hallo Selma,


Sub Aufteilen()
'LS-WP-00-D-5-ARC-FA-27-R-B-V1.DWG
Set ein = Worksheets("Eingang")
z = ein.Range("A65536").End(xlUp).Row
For i = 6 To z
With Worksheets("Archiv")
.Cells(i, 1) = Mid(ein.Cells(i, 2), 1, 2)
.Cells(i, 3) = Mid(ein.Cells(i, 2), 4, 2)
.Cells(i, 5) = Mid(ein.Cells(i, 2), 7, 2)
.Cells(i, 7) = Mid(ein.Cells(i, 2), 10, 1)
.Cells(i, 9) = Mid(ein.Cells(i, 2), 12, 1)
.Cells(i, 11) = Mid(ein.Cells(i, 2), 14, 3)
.Cells(i, 13) = Mid(ein.Cells(i, 2), 18, 2)
.Cells(i, 15) = Mid(ein.Cells(i, 2), 21, 2)
.Cells(i, 17) = Mid(ein.Cells(i, 2), 24, 1)
.Cells(i, 19) = Mid(ein.Cells(i, 2), 26, 1)
.Cells(i, 21) = Mid(ein.Cells(i, 2), 28, 2)
.Cells(i, 24) = ein.Cells(i, 5)
.Cells(i, 31) = Mid(ein.Cells(i, 4), 1, 10)
.Cells(i, 32) = ein.Cells(i, 2)
End With
Next i
End Sub

Gruß
Martin Beck

AW: Lösungsvorschlag

19.05.2004 23:38:04

Selma

Hallo Martin,
großes DANKESCHÖN.............
Liebe Grüße
Selma

Beliebteste Forumthreads (12 Monate)

Forumthread: Zelleninhalte aufteilen....

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread