Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalte aufteilen....

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
Anzeige
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
Anzeige
AW: Lösungsvorschlag
19.05.2004 23:38:04
Selma
Hallo Martin,
großes DANKESCHÖN.............
Liebe Grüße
Selma

201 Forumthreads zu ähnlichen Themen

Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Inhalt einer Zelle aufteilen in Zellen untereinand
thorsten

Hallo,
bitte schaut Euch mal die Liste an
https://www.herber.de/bbs/user/56516.xls
Es geht darum, dass in einer Zelle mehrere email Adressen angegeben sind - getrennt durch ein Semikolon.
Gibt es eine Möglichkeit diese untereinander darzustellen - je eine Adresse in einer zelle...
05.11.2008 12:35:00
Thread-ID: 1021856
4 Beiträge
Anzeige
Zelleninhalt mit Makro auf Spalten aufteilen
Rene

Hallo Experten,
ich benötige bitte eure Hilfe und hoffe, dass meine erste Problemschilderung nicht zu unverständlich ist.
Hier mein Problem bzw. Wunsch-Makro:
Farblich markierte Zellen in Tabelle1: C1: =3453,63+235,64-23563,12
D5: =1234,43-234+234.... usw.
Aufteilung de...
15.02.2009 14:48:00
Thread-ID: 1050879
5 Beiträge
Zelleninhalt teilen
Sandro

hallo
wie kann ich den zelleninhalt teilen und die eine hälfte in die benachbarte zelle kopieren.
beispiel:
Zelle A1: 40900518/240900067
Die Nr. 40900518 soll in der Zelle bleiben
Die Nr. 240900067 soll in die Zelle B1 kopiert werden
Der / soll gelöscht werden.
Danke...
25.02.2009 16:57:21
Thread-ID: 1054069
6 Beiträge
Zellenwert teilen, in listenfeld, verlinken
Tobias

Hallo,
ich weiß nicht ob das möglich ist, aber ich versuche folgendes:
In B habe ich ordnernamen, kommagetrennt:
z.b. B10
"Ordner1, Ordner2, Ordner3"
Wenn B10 selektiert ist, und ich das Makro auslöse, möchte ich, dass ein Listenfeld auftaucht mit dem Namen der 3 Ordner unt...
17.03.2009 03:28:10
Thread-ID: 1060982
11 Beiträge
Zwei Zeilen in einer Zelle
Michael

Hallo,
ich habe folgendes Problem. In einer Zelle steht ein Ort allerdings steht dieser innerhalb der Zelle nach unten verrückt, so dass in der Zelle quasi eine Leerzeile ist. Gibt es eine Möglichkeit diese Leerzeilen innerhalb der Zellen zu löschen?
Ich habe hier mal eine Grafik eingef...
26.03.2009 13:12:43
Thread-ID: 1064220
5 Beiträge
Zwei Bezüge in eine Zelle
Willy

Hallo "Profis",
wer kann mir bitte bei folgendem Problem helfen:
In Zelle A 1 steht Datum (1.1.09), in Zelle A 2 steht das zweite Datum (7.1.09), also IMMER eine Laufzeit von 7 Tagen.
Nun soll bspw. in Zelle A 3 ausgegeben werden:
1.1.09 - 7.1.09
Danke im voraus.
Gruß
10.06.2009 12:10:04
Thread-ID: 1080409
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
14
1
3
3
4
4
5
10
4
3
2
3
3
4
6
2
6
7
4
3
3
6
3
5
2