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

Tabellenproblem

Tabellenproblem
02.07.2003 13: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
Anzeige
AW: Tabellenproblem
02.07.2003 14: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

Anzeige
ChrisL for MVP...
03.07.2003 08:59:01
Dominik
..wenn Du das nicht schon bist ;-).
Sorry für die späte Antwort, hat super funktioniert, DANKE!
MfG
Dominik

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige