Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

352 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige