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

Text trennen per VBA mittels definiertem Trennz.

Text trennen per VBA mittels definiertem Trennz.
17.12.2003 13:12:07
Mike E.
Hallo zusammen,

ich grüble derzeit erfolglos über folgendem Problem:

ich möchte einen Text, der in einer Zelle steht, jedoch verschiedene Begriffe/ Namen enthält, jeweils nach einem Semikolon trennen und die Extrakte in einer freien Zelle ausgeben.

Bsp.: In Zelle A1 steht folgender Text:

Max Müller; Hans Hansen; Werner Matthies; Klaus Clausen; Herbert Wehner

Nach Ausführung des Makros soll in Zelle A2 dann "Max Müller", in A3 "Hans Hansen", in A4 "Werber Matthies" usf.

Habe bereits in der Recherche geschaut, bisher jedoch nichts gefunden.

Vielleicht hat jemand eine gute Idee. Wichtig: ich weiß, dass man so etwas mit der Import-Funktion regeln kann - ich wüßte nur gern, wie man es mittels VBA anstellt..

Mit besten Grüßen und bereits vorab vielen Dank für eure Bemühungen
Mike

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text trennen per VBA mittels definiertem Trennz.
17.12.2003 13:14:43
xXx
Hallo,
bemüh' mal den Rekorder.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!
AW: Text trennen per VBA mittels definiertem Trennz.
17.12.2003 13:43:09
RAnton
Hallo Mike,
obwohl Udo dir was anderes empfiehlt habe ich einen kleinen Code gebastelt, der dir vielleicht weiterhilft.

Du musst dafür einen Command_Button auf dem Excel-Sheet plazieren.

hier der Code


Private Sub CommandButton1_Click()
Dim r As Range
Dim s As String
Set r = Sheets("Texte").Range("A1")
s = r.Value
spalte = 1
k = 1
Do
i = InStr(k, s, ";")
If i <> 0 Then
r.Offset(, spalte).Value = Mid(s, k, i - k)
k = i + 1
spalte = spalte + 1
Else
Exit Do
End If
Loop
End Sub

Anzeige
AW: Text trennen per VBA mittels definiertem Trennz.
17.12.2003 15:10:10
Mike E.
Hallo RAnton,

ja, danke! so in etwa habe ich es mir vorgestellt.

@Udo:
ich hatte wohl vergessen, meine Antwort auf dein Posting bzusenden...
Der Rekorder ist für diese Aufgabe leider gänzlich ungeeignet; ansonsten ist er auch mein erster Lösungsansatz....Trotzdem: danke!

Vielen Dank und nette Grüße
Mike

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige