Array aus Text von Textboxen Splitten
Textboxen
ich lese mit folgender Funktion den Text aus jeweils 15 Textboxen aus wenn diese gefüllt sind und gebe den entstandenen String in eine Zeile eines Tabellenblatts aus.
In einem anderem Tabellenblatt möchte ich die Array's wieder splitten und den Text der Textboxen 1-15 in
die Zellen A1 bis A33 ausgeben. Ich habe jedoch keine Ahnung ob das funktioniert. Für Hilfe wäre ich sehr dankbar.
Klar könnte ich es so machen, aber ist gibt doch bestimmt eine bessere Lösung:
With Sheets("Eingangsbeleg")
.Cells(19, 1) = txtMenge1.Text
.Cells(20, 1) = txtMenge2.Text
usw.....
Grüße
Matthias
Private Function Text_Aus_TxT_Box(strTextBoxName$)
Dim ArrayWerte(), n%, nCount&
ReDim Preserve ArrayWerte(14)
For n = 1 To 15 'Anzahl TextBoxen 1 bis 15
If Me(strTextBoxName & n) "" Then
ArrayWerte(nCount) = Me(strTextBoxName & n)
nCount = nCount + 1
End If
Next n
If nCount > 0 Then
ReDim Preserve ArrayWerte(nCount - 1)
Text_Aus_TxT_Box = _
Join(ArrayWerte, Chr(10))
End If
End Function
Anzeige