Option Explicit
Private Sub cboArtikel_Change()
Dim WSF As Object
Set WSF = WorksheetFunction
With Worksheets("Tabelle1")
cboBezeichnung.Value = WSF.Index(.Columns("B:B"), WSF.Match(cboArtikel.Text, .Columns("A:A"), 0))
End With
Set WSF = Nothing
End Sub
Private Sub cboBezeichnung_Change()
Dim WSF As Object
Set WSF = WorksheetFunction
With Worksheets("Tabelle1")
cboArtikel.Value = WSF.Index(.Columns("A:A"), WSF.Match(cboBezeichnung.Text, .Columns("B:B"), 0))
cboPreis.Value = WSF.Index(.Columns("C:C"), WSF.Match(cboBezeichnung.Text, .Columns("B:B"), 0))
End With
Set WSF = Nothing
End Sub
Private Sub cmdCancel_Click()
Worksheets("Tabelle1").Activate
Unload Me
End Sub
Private Sub UserForm_Initialize()
End Sub
Private Sub cmdWeiter_Click()
Dim bLetzte As Byte
With Worksheets("Tabelle2")
bLetzte = .Range("B1").End(xlUp).Row + 1
If bLetzte = 36 Then
MsgBox "Keine weitere Position auf dieser Rechnung mehr möglich", _
vbCritical, "Hinweis"
Exit Sub
End If
.Range("A" & bLetzte).Value = cboArtikel.Value
.Range("B" & bLetzte) = cboBezeichnung.Text
.Range("C" & bLetzte) = CDbl(txtAnzahl.Value)
.Range("D" & bLetzte) = CCur(cboPreis)
End With
End Sub