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
