Re: Ergebniss aus Textbox in mehreren Zellen
06.02.2003 13:01:26
Harald Kapp
Hallo Jenny,
entschuldige, da habe ich mich von Deiner ersten Anfrage ins Bockshorn jagen lassen: Wenn Du für die textbox Multiline=True setzt, dann entstehen zwar Umbrüche innerhalb der Box, aber das ist nur anzeigetechnisch bedingt. Im String stehen tatsächlich keine Returns, sondern nur Leerzeichen. Ich habe es mit einer simmplen User Form ausprobiert: Sobald man Return drückt wandert der Fokus zum nächsten Steuerelement. Beispiel:
in der USerForm1 habe ich für den O.K. Button definiert:
Zum Test folgende Routine:
Option Explicit
Public User_Text As String
Sub test()
Dim str1 As String
Dim Umbruch As String
Dim i As Long
Umbruch = " " ' <- 1 Leerzeichen
UserForm1.Show
str1 = User_Text
i = 1
Do
If InStr(1, str1, Umbruch) = 0 Then 'kein Return
Cells(i, 2) = str1
Else
Cells(i, 2) = Left(str1, InStr(1, str1, Umbruch) - 1)
str1 = Right(str1, Len(str1) - InStr(1, str1, Umbruch))
End If
i = i + 1
Loop Until InStr(1, str1, Umbruch) = 0
Cells(i, 2) = str1
End Sub
Wichtig ist hier die Public-Deklaration am Anfang. Nach "unload Me" in der UserForm1 ist nämlich der Wert des Textfeldes nicht merh verfügbar, daher muss er vorher einer public-Variablen zugewiesen werden.
Also bei mir funktioniert das so.
Gruß Harald