Hallo ihr,

ich habe folgendes Problem:

Aus einem Textfeld, in dem eine Adresse mit Name, Vorname, Straße, PLZ und Ort steht, sollen die Daten in einzelne Textfelder extrahiert werden. Die Zeichenlänge varriert immer. Einziges, durchgehendes Merkmal ist ein Zeilenumbruch bzw. ein Leerzeichen.

Aus Textfeld 1:

----------------------

| Peter Mustermann |

| Musterstraße 16 |

| 12345 Musterstadt |

----------------------

soll

Textfeld 2:

---------------------

| Peter Mustermann |

---------------------

Textfeld 3:

---------------------

| Musterstraße 16 |

---------------------

usw.

Weiß jemand von euch hier weiter???

Vielen Dank im Vorraus,

Gruß Addi

Zeilenumbruch ist doch etwas sehr schönes Den kannst du sehr gut nutzen und zwar:

Benutze die InStr-Funktion und als letzten Parameter (=String2) gibst du 'Chr(13)' oder 'vbCrLf' an. Die stehen jeweils für den Zeilenumbruch.

Hallo dBaj,

vielen Dank für deinen Tipp erstmal!

Könntest du den Vorschlag vielleicht noch ein kleines bisschen näher erklären? Meine VBA-Kenntnisse sind (milde gesagt) recht schlecht...

Vielen Dank

Gruß Addi

Für ein genaues Beispiel habe ich jetzt leider keine Zeit.

Dim Hilfsvariable as String

Dim Name, Strasse, Ort as String


Hilfsvariable = Textfeld1.Value

Name = Left (Hilfsvariable,Instr (1, Hilfsvariable, vbCrLf) - 1)

Hilfsvariable = Right (Hilfsvariable, Len (Hilfsvariable) - Instr(1, Hilfsvariable, vbCrLf))

Strasse = Left (Hilfsvariable,Instr (1, Hilfsvariable, vbCrLf) - 1)

Hilfsvariable = Right (Hilfsvariable, Len (Hilfsvariable) - Instr(1, Hilfsvariable, vbCrLf))

Ort = Hilfsvariable


Textfeld2.Value = Name

Textfeld3.Value = Strasse

Textfeld4.Value = Ort

Hoffe es klappt...

Gruß

JayN

hi

Dim arr() as String            // string array

Dim sValue as String        // ausgangsstring

Dim i as Integer               //schleifenzähler


sValue = wo_auch_immer_der_string_herkommt

arr = Split(sValue, vbCrLf) // [SIZE=1] teilt den string sValue an allen vorkommnissen von vbCrLf auf[/SIZE] 

// über das Array iterieren

For i = LBound(arr) to UBound(arr)

    //hier die werte auslesen und verarbeiten

    Debug.Print arr(i)          // ausgabe der werte

Next 'i

ist allerding ungetestet...

hth...