Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrzeilige Textbox

Mehrzeilige Textbox
30.10.2007 14:57:00
Richard
Hallo VBA-Experten,
ich brauche ziemlich dringend für ein VBA-Script folgende Sache:
Grundsazt:
Habe eine Mehrzeilige Textbox die mit folgenden Informationen beim initilisieren der Userform geladen wird.
With TextBox1
.Enabled = False
.Locked = True
.BackColor = &H8000000F
.Text = "Text1" & Chr(13) & _
"Text2" & Chr(13) & _
"Text3" & Chr(13) & _
"Text4" & Chr(13) & _
"Text5"
End With
Ziel:
So nun möchte ich für die einzelnen Zeilen der Textbox Variablen setzten, um die Informationen ggf. zu trennen. Anhand folgendem Beispiel stelle ich mir das also vor:
Variable(1) = Textbox1.Value (Zeile1)
Variable(2) = Textbox1.Value (Zeile2)
...
usw.
Vielen Dank jetzt schon mal für euer Bemühen.
Mit freundlichen Grüßen
Richard

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrzeilige Textbox
30.10.2007 15:07:00
Rudi
Hallo,
MeinArray=Split(Textbox1, chr(13))
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Mehrzeilige Textbox
30.10.2007 15:42:46
Richard
Hallo Rudi,
MeinArray=Split(Textbox1, chr(13))
hmm... Array-Programmierung oder wie auch immer, ein Terrain, wo ich mich noch nicht so wirklich rangetraut habe... Habe schon die VBA-Hilfe nach Split durchsucht. Aber ich stehe immer noch auf dem Schlauch. Wäre nett, wenn du mir einen komplett funktionierenden Code mitteilen könntest. Ach ja und eine Sache, die ich noch vergessen hatte zu erwähnen; die einzelnen Variablen sollen alle ohne Zeilenumbruchs-symbol sein.
Vielen Dank!
MfG
Richard

Anzeige
AW: Mehrzeilige Textbox
30.10.2007 16:28:00
Rudi
Hallo,

die einzelnen Variablen sollen alle ohne Zeilenumbruchs-symbol sein.


das ist der Fall.
MeinArray=Split(Textbox1, chr(13))
ergibt ein Array mit
MeinArray(0)=Text1
MeinArray(1)=Text2
etc.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Mehrzeilige Textbox
31.10.2007 08:06:38
Richard
Hallo Peter,
vielen vielen Dank für die beigefügte Mappe. Das ist genau das was ich suche!
Mit freundlichen Grüßen
Richard
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige