gibt es eine möglichkeit die userform nach dem eintrag zu leeren?
folgenden code verwende ich:
'*** Werte einlesen ***
Private Sub ComboBox1_Change()
'Variablendeklaration
Dim shdaten As Worksheet
Dim arrOTeile As Variant
Dim arrETeile As Variant
Dim intCounter As Integer
'Objektvariable setzen
Set shdaten = Worksheets("Artikelliste")
With Worksheets("Artikelliste")
'Artikelbereich in Array einlesen
arrOTeile = .Range(.Cells(ComboBox1.ListIndex + 2, 3), _
.Cells(ComboBox1.ListIndex + 2, 6))
End With
With Worksheets("Artikelliste")
'Artikelbereich in Array einlesen
arrETeile = .Range(.Cells(ComboBox1.ListIndex + 2, 2), _
.Cells(ComboBox1.ListIndex + 2, 3))
End With
'Einzelpreis-ComboBox leeren, füllen und ersten Datensatz
'auswählen
With ComboBox2
.Clear
.Column = arrOTeile
.ListIndex = 0
End With
With ComboBox3
.Clear
.Column = arrETeile
.ListIndex = 0
End With
End Sub
'*** Werte eintragen ***
Private Sub CommandButton1_Click()
'Variablendeklaration
Dim ingRow As Long
'Wenn kein Datensatz ausgewählt wurd, Sub verlassen
If ComboBox2.ListIndex = -1 Then Exit Sub
'Werte in Zeile 23 bestimmen
ingRow = Cells(39, 1).End(xlUp).Row + 1
If ingRow < 23 Then ingRow = 23
'Artikel eintragen
Cells(ingRow, 1) = ComboBox1.Value
'Einzelpreis eintragen
Cells(ingRow, 6) = ComboBox2.Value
'Menge eintragen
Cells(ingRow, 7) = TextBox1.Value
'Einheit eintragen
Cells(ingRow, 5) = ComboBox3.Value
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Worksheets("Artikelliste").Range("A2:A200")
End Sub
ich möchte das die combobox1, combobox2, combobox3 und textbox1 nach dem eintrag leer sind, so dass ich einen weiteren eintrag vornehmen kann. geht das überhaupt?
für eine hilfe wäre ich euch dankbar.
gruß martin