Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Array aus Text von Textboxen Splitten
Textboxen
Ich habe folgendes Problem,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Array aus Text von Textboxen Splitten
05.08.2011 12:19:19
Textboxen
Hallo,
etwa so:
Sub xxxxxx()
Dim sText, arr
sText = Text_Aus_TxT_Box("TxtMenge")
arr = Application.Transpose(Split(sText, Chr(10)))
Sheets("Eingangsbeleg").Cells(19, 1).Resize(UBound(arr)) = arr
End Sub

Gruß
Rudi
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige