Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text in Spalten und Zeilen auf

Forumthread: Text in Spalten und Zeilen auf

Text in Spalten und Zeilen auf
01.10.2002 13:41:45
Sven Johannsen
Hallo,

ich habe aus einer Datenbank eine komplette Tabelle als Text in ein Feld importiert (dies läßt sich auch nicht ändern). Das ganze sieht ungefähr folgendermaßen aus:

Wert1_Zeile1 Wert2_Zeile1 Wert3_Zeile1 Wert4_Zeile1 Wert1_Zeile2 Wert2_Zeile2 Wert3_Zeile2 Wert4_Zeile2

Die Werte sind durch Tabs und die Zeilen durch 2 Tabs getrennt.
Kann mir jemand auf die Sprünge helfen wie ich ein Makro prgrammiere, welches die Daten in Spalten und Zeilen sortiert.

Danke

Gruß Sven

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Text in Spalten und Zeilen auf
01.10.2002 15:58:42
GerdZ
Hallo Sven,

folgendes Makro funktioniert ab Excel 2000.
In Excel 97 brauchst Du noch einen Ersatz für die Split-Funktion.
z.B. von https://www.herber.de/forum/archiv/152to156/t152025.htm

Angenommen der Text steht in A1

    Dim a() As String
    Dim b() As String
    Dim x As Long, y As Long
    Text = Range("A1")
    a() = Split(Text, vbTab & vbTab)
    For x = 0 To UBound(a)
        b() = Split(a(x), vbTab)
        y = UBound(b)
        Range(Cells(x + 2, 1), Cells(x + 2, y + 1)) = b
    Next x
     Code eingefügt mit Syntaxhighlighter 1.13

Gruß
Gerd


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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