Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellen auf Zeilen aufteilen

Forumthread: zellen auf Zeilen aufteilen

zellen auf Zeilen aufteilen
10.05.2007 13:40:44
Fab
Ich brauche ein Makro für folgende Operation:
siehe Datei
https://www.herber.de/bbs/user/42398.xls

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellen auf Zeilen aufteilen
10.05.2007 13:45:13
Holger
keine Anrede, kein bitte, keine Name?

AW: zellen auf Zeilen aufteilen
10.05.2007 13:49:57
Fab
Liebes Forum,
sorry. Ich bin kein versierter Nutzer von Foren und daher auch mit den Höflichkeitsformen hier nicht vertraut. Ich entschuldige mich.
Ich würde mich freuen, wenn mir jemand bei diesem Problem weiterhelfen könnte.
Bin in VBA äußerst unversiert.
https://www.herber.de/bbs/user/42398.xls
Danke
Fab

Anzeige
AW: zellen auf Zeilen aufteilen
10.05.2007 14:50:13
Holger
Hallo Fab,
da hilft dir evtl. folgendes Makro.
Das Makro will von Dir die 1. Spalte des Quellbereichs wissen, also markiere in der Demotabelle A2:A3
Das Makro will von Dir die 1. Zelle des Zielbereichs wissen, also klicke in der Demotabelle auf A5.
Das Makro geht davon aus, dass alle Zellen gleich aufgebaut sind. Sollten Zellen mahl mehr/weniger Inhalte haben, müssen wir das Makro anpassen.
Holger

Sub aufteilen()
Set quelle = Application.InputBox(prompt:="welche Zellen sollen aufgeteilte werden (bitte nur 1. _
Spalte markieren)", Type:=8)
Set ziel = Application.InputBox(prompt:="markiere bitte die 1. Zelle, in die aufgeteilt werden  _
soll", Type:=8)
zeile = ziel.Row
spalte = ziel.Column
For Each zelle In quelle
Cells(zeile, spalte) = Mid(zelle.Value, 1, 1)
Cells(zeile + 1, spalte) = Mid(zelle.Value, 3, 1)
Cells(zeile + 2, spalte) = Mid(zelle.Value, 5, 1)
Cells(zeile + 3, spalte) = Mid(zelle.Value, 7, 1)
zelle = Cells(zelle.Row, zelle.Column + 1)
Cells(zeile, spalte + 1) = Mid(zelle, 1, 1)
Cells(zeile + 1, spalte + 1) = Mid(zelle, 3, 1)
Cells(zeile + 2, spalte + 1) = Mid(zelle, 5, 1)
Cells(zeile + 3, spalte + 1) = Mid(zelle, 7, 1)
zeile = zeile + 4
Next
End Sub


Anzeige
AW: zellen auf Zeilen aufteilen
10.05.2007 14:58:00
FR
Cool.
Vielen Dank erstmal.
Es ist in der Tat so, daß die Zellen unterschiedlich groß sind. Was kann man da machen?

AW: zellen auf Zeilen aufteilen
10.05.2007 15:03:00
FR
es sind nicht nur die Zellen unterschiedlich groß, sondern die einzelnen "Zeilen" innerhalb der Zellen haben unterschiedliche lange Inhalte.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige