Tabellenproblem

Forumthread: Tabellenproblem
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Tabellenproblem

Tabellenproblem

02.07.2003 15:16:24

Dominik

Hallo!
Ich habe folgende Tabelle (ca.1000 Zeilen):
https://www.herber.de/bbs/user/83.xls
Nun hätte ich gerne, dass die Tabelle wie folgt aussieht:

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

Ist das per Makro machbar, und falls ja, wie würde das Makro aussehen? Ich habe es schon per Makrorekorder versucht, allerdings zeichnet er (logischerweise) das kopieren des Zellinhaltes nicht auf.
MfG
Dominik

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenproblem

02.07.2003 16:38:41

ChrisL
ChrisL for MVP...

03.07.2003 10:59:01

Dominik

AW: Tabellenproblem

02.07.2003 16:38:41

ChrisL

Hi Dominik
Option Explicit


Sub Konvertierung()
Dim iZeile As Long, iiZeile As Long
Dim strZelle As String
iiZeile = 0
For iZeile = 1 To Range("A65536").End(xlUp).Row
If Cells(iZeile, 1) <> "" Then
strZelle = Cells(iZeile, 1)
Do While InStr(strZelle, Chr(10)) > 0
iiZeile = iiZeile + 1
Cells(iiZeile, 3) = Left(strZelle, InStr(strZelle, Chr(10)) - 1)
Cells(iiZeile, 4) = Cells(iZeile, 2)
strZelle = Right(strZelle, Len(strZelle) - InStr(strZelle, Chr(10)))
Loop
iiZeile = iiZeile + 1
Cells(iiZeile, 3) = strZelle
Cells(iiZeile, 4) = Cells(iZeile, 2)
End If
Next iZeile
End Sub

Gruss
Chris

ChrisL for MVP...

03.07.2003 10:59:01

Dominik

..wenn Du das nicht schon bist ;-).
Sorry für die späte Antwort, hat super funktioniert, DANKE!
MfG
Dominik

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