AW: Wert aus Textbox in mehrere Zellen eintragen.
06.09.2023 20:36:27
Piet
Hallo
mit diesem Code sollten beide Forderungen erfüllt sein. Freut mich wenn es damit klappt.
mfg Piet
Private Sub CommandButton1_Click()
Dim a As Integer, e As Integer, x As Integer
If IsNumeric(Parcel) Then
x = Parcel.Value + 1 'Karton Index ermitteln
Tabelle1.Cells(x, 1).Value = UserForm1.Parcel.Value
Tabelle1.Cells(x, 2).Value = UserForm1.Product.Value
Tabelle1.Cells(x, 7).Value = UserForm1.Contents.Value
ElseIf InStr(Parcel, "-") And IsNumeric(Left(Parcel, 1)) Then
'mehrfach ausfüllen in Felder 1-10
a = Left(Parcel, InStr(Parcel, "-") - 1) 'Anfangszahl
e = Mid(Parcel, InStr(Parcel, "-") + 1) 'Endzahl
For x = a + 1 To e + 1 'Schleife zum ausfüllen
Tabelle1.Cells(x, 1).Value = x - 1 'Karton- Nr.
Tabelle1.Cells(x, 2).Value = UserForm1.Product.Value
Tabelle1.Cells(x, 7).Value = UserForm1.Contents.Value
Next x
End If
End Sub