Einbettung von TextBox-Eingaben in eine Schleife
19.01.2004 14:17:50
UnitedArtist
ich habe eine UserForm erstellt. In dieser befindet sich ein MULTIPAGE mit sechs TEXTBOXES. Nachdem der benutzer in den TextBoxes Werte eingeragen hat, soll der Benutzer einen CommandButton clicken und der Datensatz (bestehend aus den Inhalten der sechs TextBoxes) wird gespeichert und in ein Excel-Arbeitsblatt übertragen. Dieses Procedere soll sich solange wiederholen bis der Benutzer einen zweiten CommandButton clickt.
Ich habe einen Teil meines ProgrammCodes aufgeführt. Dieser funktioniert jedoch nur für einen Datensatz. Die Inhalte der Textboxes sollen bei erneutem Schleifendurchlauf gelöscht werden.
' Variablendeklaration
Dim QUANTITY, ITEM, ZAEHLER, ZAEHLER2 As Integer
Dim PN As Long
Dim UNITPRICE As Variant
Dim DESCRIPTION, LOTID, BESCHREIBUNG, BESCHREIBUNGC As String
ZAEHLER = 0
ITEM = 1
ZAHELER2 = 1
' Eigentliche Schleife
Label27 = ZAEHLER2
' Löschen der Eingabefelder
Dim Tb As Integer
On Error Resume Next
For Tb = 5 To 12
Me.Controls("TextBox" & Tb) = ""
Next Tb
' Inhalte der TextBoxes werden den Variablen zugeordnet
PN = TextBox11
LOTID = TextBox10
BESCHREIBUNG = TextBox12
QUANTITY = TextBox6
UNITPRICE = TextBox7
BESCHREIBUNGC = TextBox5
' Positionierung in EXCEL
Cells(42 + ZAEHLER, 2) = ITEM
Cells(42 + ZAEHLER, 4) = PN
Cells(42 + ZAEHLER, 6) = LOTID
Cells(42 + ZAEHLER, 8) = BESCHREIBUNGSMI
Cells(42 + ZAEHLER, 12) = QUANTITY
Cells(42 + ZAEHLER, 14) = UNITPRICE
Cells(43 + ZAEHLER, 6) = BESCHREIBUNGC
ITEM = ITEM + 1
ZAEHLER = ZAEHLER + 3
ZAEHLER2 = ZAEHLER2 + 1
End Sub
Vielen Dank...