<strong>Ich kann leider nur den Code anzeigen.
Aber ich versuche es nochmal zu verdeutlichen:
In einer Tabelle stehen:
Artikelnr. Artikel Preise
In meiner Userform sind die Artikelnr. und Artikel per Combobox aufrufbar. Das funktioniert alles (Ich rufe eine Artikelnr. auf, wird automatisch der passende Artikel angezeigt).
Aber die Preise zu den Artikeln werden nicht angezeigt. Ich weiß absolut nicht, wie ich die verbinden kann. Die Comboboxen hab ich wie im Code gezeigt geschafft, aber es muss doch
auch möglich sein die Preise mit einzubinden?</strong>
Option Explicit
Dim x As Integer
Private Sub Artikel1Tbx_Change()
Artikelnummer1Tbx.ListIndex = Artikel1Tbx.ListIndex
End Sub
Private Sub Artikelnummer1Tbx_Change()
Artikel1Tbx.ListIndex = Artikelnummer1Tbx.ListIndex
End Sub
Private Sub Artikel2Tbx_Change()
Artikelnummer2Tbx.ListIndex = Artikel2Tbx.ListIndex
End Sub
Private Sub Artikelnummer2Tbx_Change()
Artikel2Tbx.ListIndex = Artikelnummer2Tbx.ListIndex
End Sub
Private Sub Artikel3Tbx_Change()
Artikelnummer3Tbx.ListIndex = Artikel3Tbx.ListIndex
End Sub
Private Sub Artikelnummer3Tbx_Change()
Artikel3Tbx.ListIndex = Artikelnummer3Tbx.ListIndex
End Sub
Private Sub Artikel4Tbx_Change()
Artikelnummer4Tbx.ListIndex = Artikel4Tbx.ListIndex
End Sub
Private Sub Artikelnummer4Tbx_Change()
Artikel4Tbx.ListIndex = Artikelnummer4Tbx.ListIndex
End Sub
Private Sub Artikel5Tbx_Change()
Artikelnummer5Tbx.ListIndex = Artikel5Tbx.ListIndex
End Sub
Private Sub Artikelnummer5Tbx_Change()
Artikel5Tbx.ListIndex = Artikelnummer5Tbx.ListIndex
End Sub
Private Sub Artikel6Tbx_Change()
Artikelnummer6Tbx.ListIndex = Artikel6Tbx.ListIndex
End Sub
Private Sub Artikelnummer6Tbx_Change()
Artikel6Tbx.ListIndex = Artikelnummer6Tbx.ListIndex
End Sub
Private Sub Artikel7Tbx_Change()
Artikelnummer7Tbx.ListIndex = Artikel7Tbx.ListIndex
End Sub
Private Sub Artikelnummer7Tbx_Change()
Artikel7Tbx.ListIndex = Artikelnummer7Tbx.ListIndex
End Sub
Private Sub Artikel8Tbx_Change()
Artikelnummer8Tbx.ListIndex = Artikel8Tbx.ListIndex
End Sub
Private Sub Artikelnummer8Tbx_Change()
Artikel8Tbx.ListIndex = Artikelnummer8Tbx.ListIndex
End Sub
Private Sub ProgrammBeendenCmb_Click()
x = MsgBox("Wollen Sie das Programm wirklich beenden?", 308, "Beenden")
If x = 6 Then
End
End If
End Sub
Private Sub Eingabel?schenCmb_Click()
Range("b10") = ""
Range("b11") = ""
Range("b12") = ""
Range("b13") = ""
Range("b14") = ""
VornameTbx = ""
NachnameTbx = ""
AdresseTbx = ""
KundennummerTbx = ""
Cells(18, 1) = ""
Cells(19, 1) = ""
Cells(20, 1) = ""
Cells(21, 1) = ""
Cells(22, 1) = ""
Cells(23, 1) = ""
Cells(24, 1) = ""
Cells(25, 1) = ""
Cells(26, 1) = ""
Cells(27, 1) = ""
Artikelnummer1Tbx = ""
Artikelnummer2Tbx = ""
Artikelnummer3Tbx = ""
Artikelnummer4Tbx = ""
Artikelnummer5Tbx = ""
Artikelnummer6Tbx = ""
Artikelnummer7Tbx = ""
Artikelnummer8Tbx = ""
Artikelnummer9Tbx = ""
Artikelnummer10Tbx = ""
Cells(18, 2) = ""
Cells(19, 2) = ""
Cells(20, 2) = ""
Cells(21, 2) = ""
Cells(22, 2) = ""
Cells(23, 2) = ""
Cells(24, 2) = ""
Cells(25, 2) = ""
Cells(26, 2) = ""
Cells(27, 2) = ""
Artikel1Tbx = ""
Artikel2Tbx = ""
Artikel3Tbx = ""
Artikel4Tbx = ""
Artikel5Tbx = ""
Artikel6Tbx = ""
Artikel7Tbx = ""
Artikel8Tbx = ""
Artikel9Tbx = ""
Artikel10Tbx = ""
Cells(18, 3) = ""
Cells(19, 3) = ""
Cells(20, 3) = ""
Cells(21, 3) = ""
Cells(22, 3) = ""
Cells(23, 3) = ""
Cells(24, 3) = ""
Cells(25, 3) = ""
Cells(26, 3) = ""
Cells(27, 3) = ""
Menge1Tbx = ""
Menge2Tbx = ""
Menge3Tbx = ""
Menge4Tbx = ""
Menge5Tbx = ""
Menge6Tbx = ""
Menge7Tbx = ""
Menge8Tbx = ""
Menge9Tbx = ""
Menge10Tbx = ""
Cells(18, 4) = ""
Cells(19, 4) = ""
Cells(20, 4) = ""
Cells(21, 4) = ""
Cells(22, 4) = ""
Cells(23, 4) = ""
Cells(24, 4) = ""
Cells(25, 4) = ""
Cells(26, 4) = ""
Cells(27, 4) = ""
Nettopreis1Tbx = ""
Nettopreis2Tbx = ""
Nettopreis3Tbx = ""
Nettopreis4Tbx = ""
Nettopreis5Tbx = ""
Nettopreis6Tbx = ""
Nettopreis7Tbx = ""
Nettopreis8Tbx = ""
Nettopreis9Tbx = ""
Nettopreis10Tbx = ""
End Sub
Private Sub Eingabe?bernehmenCmb_Click()
If FrauOpb = True Then
Range("b10") = "Frau"
ElseIf HerrOpb = True Then
Range("b10") = "Herr"
Else
MsgBox ("W?hlen Sie eine Anrede!")
End If
Range("b11") = VornameTbx
Range("b12") = NachnameTbx
Range("b13") = AdresseTbx
Range("b14") = KundennummerTbx
Cells(18, 1) = Artikelnummer1Tbx
Cells(19, 1) = Artikelnummer2Tbx
Cells(20, 1) = Artikelnummer3Tbx
Cells(21, 1) = Artikelnummer4Tbx
Cells(22, 1) = Artikelnummer5Tbx
Cells(23, 1) = Artikelnummer6Tbx
Cells(24, 1) = Artikelnummer7Tbx
Cells(25, 1) = Artikelnummer8Tbx
Cells(26, 1) = Artikelnummer9Tbx
Cells(27, 1) = Artikelnummer10Tbx
Cells(18, 2) = Artikel1Tbx
Cells(19, 2) = Artikel2Tbx
Cells(20, 2) = Artikel3Tbx
Cells(21, 2) = Artikel4Tbx
Cells(22, 2) = Artikel5Tbx
Cells(23, 2) = Artikel6Tbx
Cells(24, 2) = Artikel7Tbx
Cells(25, 2) = Artikel8Tbx
Cells(26, 2) = Artikel9Tbx
Cells(27, 2) = Artikel10Tbx
Cells(18, 3) = Menge1Tbx
Cells(19, 3) = Menge2Tbx
Cells(20, 3) = Menge3Tbx
Cells(21, 3) = Menge4Tbx
Cells(22, 3) = Menge5Tbx
Cells(23, 3) = Menge6Tbx
Cells(24, 3) = Menge7Tbx
Cells(25, 3) = Menge8Tbx
Cells(26, 3) = Menge9Tbx
Cells(27, 3) = Menge10Tbx
Cells(18, 4) = Nettopreis1Tbx
Cells(19, 4) = Nettopreis2Tbx
Cells(20, 4) = Nettopreis3Tbx
Cells(21, 4) = Nettopreis4Tbx
Cells(22, 4) = Nettopreis5Tbx
Cells(23, 4) = Nettopreis6Tbx
Cells(24, 4) = Nettopreis7Tbx
Cells(25, 4) = Nettopreis8Tbx
Cells(26, 4) = Nettopreis9Tbx
Cells(27, 4) = Nettopreis10Tbx
End Sub