Textboxinhalt in nächste freie Zelle schreiben
01.09.2016 09:43:14
Stefan
ich hab da ein kleines Problem. Ich habe ein UserForm in dem mehrere Textboxen enthalten sind. Immer 10 in einer Reihe. Hier soll der User Werte eintragen und mit Knopfdruck werden diese in die Exceltabelle gesendet. Insgesamt sind es 12 Reihen a 10 Textboxen. im Idealfall werden alle mit Werten Gefüllt und Pro Reihe Textboxen in eine Zeile der Tabelle geschrieben.Das hab ich auch soweit hin bekommen. Jetzt soll er aber, wenn in der Tabelle die Zeile schon voll ist einfach die nächste Zeile nehmen und alle Textboxinhalte in die nächsten Freien Zeilen schreiben.Für jede Reihe Textboxen (10Stk.) eine Zeile in der Tabelle. Das Problem ist, dass es auch sein kann, das nicht ale Reihen an Textboxen gefüllt sind dann soll er Trotzdem Untereinander schreiben und die leeren Textboxen ignorieren. Die Erste Reihe Textboxen wird immer ausgefüllt sein. Vielleicht hilft das.
Folgend den Code, wie er bisher ist. Hier wird nur die Erste Reihe von insgesamt 12 berücksichtigt.
Private Sub CommandButton1_Click()
Dim lZeile As Long
If Trim(CStr(TextBox1.Text)) = "" Then
MsgBox "Vorn anfangen zu schreiben!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
lZeile = 4
Do While Trim(CStr(Tabelle1.Cells(3, 1).Value)) ""
On Error Resume Next
Tabelle1.Cells(lZeile, 2).Value = Trim(CStr(TextBox501.Value))
Tabelle1.Cells(lZeile, 3).Value = TextBox601.Value
Tabelle1.Cells(lZeile, 4).Value = TextBox11.Value
Tabelle1.Cells(lZeile, 5).Value = TextBox12.Value
Tabelle1.Cells(lZeile, 6).Value = TextBox13.Value
Tabelle1.Cells(lZeile, 7).Value = TextBox14.Value
Tabelle1.Cells(lZeile, 8).Value = TextBox15.Value
Tabelle1.Cells(lZeile, 9).Value = TextBox16.Value
Tabelle1.Cells(lZeile, 10).Value = TextBox17.Value
Tabelle1.Cells(lZeile, 11).Value = TextBox18.Value
Tabelle1.Cells(lZeile, 12).Value = TextBox19.Value
Tabelle1.Cells(lZeile, 13).Value = TextBox20.Value
Exit Do
lZeile = lZeile + 1
ActiveWorkbook.Save
Unload Me
End Sub
Viele Grüße
Stefan