Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Trennen

Forumthread: Trennen

Trennen
09.01.2006 18:03:56
Ron
Hallo Leute
Folgendes Problem stellt sich mir, dass ich in VBA machen muss
Ich habe folgende Zelleninhalte
Hanspeter*meier*bern
Voerderkunz*Kaspar*Luzern
Nun möchte ich diesen Wert (in VBA)in seine drei Teile aufteilen .
string1 = Hanspeter
string2 = meier
string3 = bern
Irgenwie könnte mir der Stern (*)als Trennpunkt dienen?
Weiss jemand Rat? Danke.
Ron
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Trennen
09.01.2006 18:17:35
Peter
Hallo Ron,
so könnte es gehen:

Sub Trennen()
Dim lZeile  As Long
Dim sText   As String
Dim iPos    As Integer
For lZeile = 1 To Range("A65536").End(xlUp).Row
sText = Range("A" & lZeile).Value
iPos = InStr(sText, "*")
If iPos > 0 Then
Range("B" & lZeile).Value = Left(sText, iPos - 1)
sText = Mid(sText, iPos + 1, Len(sText))
Else
Range("B" & lZeile).Value = sText
End If
iPos = InStr(sText, "*")
If iPos > 0 Then
Range("C" & lZeile).Value = Left(sText, iPos - 1)
Range("D" & lZeile).Value = Mid(sText, iPos + 1, Len(sText))
Else
Range("C" & lZeile).Value = sText
End If
Next lZeile
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Trennen
09.01.2006 18:27:21
Ron
Peter
PERFEKT!!
Genau so habe ich mir das vorgestellt.
Der Abend ist gerettet.
Danke und viele Grüsse
Ron
;

Beliebteste Forumthreads (12 Monate)

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