sehe dass du sehr bewandert in Sachen Excel Vba bist und nicht nur in diesem Forum.
vielleicht hast du ja noch Zeit übrig und mir meine Letzte Frage zu beantworten.
Ich weis habe geschrieben hätte noch Zeit aber du weist bestimmt wie das ist, mann will halt wieder ein Stück weiterkommen.
hier für die erste Zeile (die restlichen darfst Du selber ergänzen):
Private Sub TextBox101_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox101) Then
TextBox101 = ""
Else
If IsNumeric(TextBox201) Then
Textbox16 = TextBox101 * TextBox201
TextBox16_BeforeUpdate Cancel
End If
End If
End Sub
Private Sub TextBox201_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox201) Then
TextBox201 = ""
Else
TextBox201 = EingabeCheck(TextBox201)
If IsNumeric(TextBox101) Then
Textbox16 = TextBox101 * TextBox201
TextBox16_BeforeUpdate Cancel
End If
End If
End Sub
Die ComboBox1 habe ich noch etwas "verfeinert":
Private Sub UserForm_Activate()
'...
With Worksheets("Artikelstamm")
ComboBox1.List = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
'...
End Sub
Private Sub ComboBox1_Change()
Dim i As Long
Static blnAus As Boolean
If Not blnAus Then
For i = 1 To 5
With Me.Controls("Textbox" & i)
If .Value = "" Then
.Value = ComboBox1.Value
Exit For
End If
End With
Next i
blnAus = True
i = ComboBox1.ListIndex
ComboBox1.ListIndex = -1
ComboBox1.RemoveItem i
blnAus = False
End If
End Sub
