Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text in Zeilen mit Kopieren

Text in Zeilen mit Kopieren
05.03.2008 14:19:50
Marius
Hallo liebe Excelgemeinde,
da meine Kentnisse im VBA nur sehr beschränkt sind, kann ich folgendes Problem nicht lösen:
A.........B.........................C
1.........A1 A2 A3 A4........XY
Am Ende hätte ich gerne dastehen:
A........B.............C
1 .......A1...........XY
1 .......A2...........XY
1 .......A3...........XY
1 .......A4...........XY
Hat jemand eine Lösung? Geht das vllt sogar ohne VBA?
Da es sich um eine sehr große Datei handelt, ist es per Hand (praktisch) unmöglich.
Vielen Dank,
Marius

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Zeilen mit Kopieren
05.03.2008 18:08:13
Holger
Hallo Marius,
versuche

Sub Aufteilung()
altName = ActiveSheet.Name
Sheets.Add
a = ActiveSheet.Name
Worksheets(altName).Activate
lz = Range("a65336").End(xlUp).Row
z = 1
For i = 1 To lz
b = Split(Cells(i, 2))
For j = 0 To UBound(b)
Worksheets(a).Cells(z, 1) = Cells(i, 1)
Worksheets(a).Cells(z, 2) = b(j)
Worksheets(a).Cells(z, 3) = Cells(i, 3)
z = z + 1
Next j
Next i
Application.DisplayAlerts = False
Worksheets(altName).Delete
Worksheets(a).Name = altName
Worksheets(altName).Activate
Application.DisplayAlerts = True
End Sub


Viel Erfolg
Holger

Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige