Hallo Leute,
Folgende Problematik an der ich seit mehreren Tagen hänge..
Ich habe Spalte [A] bis [F] mit Werten und Texten gefüllt.
Spalte A = comboBox Kategorie
Spalte B = comboBox Bezeichung
Spalte C = comboBox Farbe
Spalte D = comboBox Eigenschaft
Spalte E = text Kunde
Spalte F = Seriennummer - anhand einer WENN-Funktion in den Zellen
Ich habe also mehrere gleiche Artikel allerdings unterschiedlicher Farben untereinader stehen.
Nehmen wir an Kunde "VBA Forum" möchte nun ein weißes und ein schwarzes Telefon haben soll dieses bei der Farbeingabe des Kollegen die nächsthöhrere Seriennummer in einer MsgBox angezeigt werden.
Beispiel:
Kategorie = Telefon
Bezeichnung = Telefon X
Farbe = Weiß
Eigenschaft = mit Antenne
Kunde = VBA Forum
hierbei soll aus einer angelegten Liste nach dem Klicken auf Übernehmen eine Messagebox erscheinen die mir automatisch die nächste Seriennummer sagt, welches der Telefone ich jetzt aus dem Regal nehmen muss..
Farben gibt es nur zwei:
Weiß
Schwarz
Private Sub cboKategorie_Change()
'Zum Verknüpfen der Comboboxen mit einzelnen Auswahlmöglichkeiten'
cboBezeichnung.Clear
Select Case cboKategorie.Value
Case "Lautsprecher"
cboBezeichnung.AddItem "Referenz4"
cboBezeichnung.AddItem "Referenz8"
cboBezeichnung.AddItem "Referenz8Sub"
cboBezeichnung.AddItem "Referenz12Sub"
cboBezeichnung.AddItem "Referenz15Sub"
cboBezeichnung.AddItem "Referenz100"
cboBezeichnung.AddItem "Referenz165"
cboBezeichnung.AddItem "Referent200"
cboFarbe.AddItem "Weiß"
cboFarbe.AddItem "Schwarz"
Case "Verstärker"
cboBezeichnung.AddItem "HLV1025"
cboBezeichnung.AddItem "HLV1120"
cboBezeichnung.AddItem "HLV2190"
cboBezeichnung.AddItem "HLV4120"
Case "Blenden"
cboBezeichnung.AddItem "N-Anschluss"
cboBezeichnung.AddItem "N-Schalter"
cboBezeichnung.AddItem "N-Key"
cboBezeichnung.AddItem "N-Fernpegel"
cboBezeichnung.AddItem "N-Quelle"
Case "Bügel"
cboBezeichnung.AddItem "Ref4 UBügel"
cboBezeichnung.AddItem "Ref8 UBügel"
cboBezeichnung.AddItem "Ref8 LBügel"
cboBezeichnung.AddItem "Ref12+15Sub UBügel"
cboBezeichnung.AddItem "Ref8 Schiebehalter"
cboFarbe.AddItem "Schwarz"
cboFarbe.AddItem "Weiß"
cboFarbe.AddItem "Sonstige"
End Select
End Sub
Private Sub cmdAbbruch_Click()
'schließt das aktuelle Fenster'
Unload frmAusgang
End Sub
Private Sub cmdEingabeausgang_Click()
'IN BEARBEITUNG' Übernimmt die Eingetragenen Werte ins Taballenblatt'
Dim intErsteLeereZeile As Long
If Me.cboBezeichnung.Value = "Referenz4" Then
intErsteLeereZeile = Sheets("Ref4").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Ref4").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
msgbox "Seriennummer: " & Sheets("Ref4").Cells(intErsteLeereZeile, 6).Value
If Me.cboBezeichnung.Value = "Referenz8" Then
intErsteLeereZeile = Sheets("Ref8").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Ref8").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "Referenz8Sub" Then
intErsteLeereZeile = Sheets("Ref8Sub").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Ref8Sub").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "Referenz12Sub" Then
intErsteLeereZeile = Sheets("Ref12Sub").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Ref12Sub").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "Referenz15Sub" Then
intErsteLeereZeile = Sheets("Ref15Sub").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Ref15Sub").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "Referenz100" Then
intErsteLeereZeile = Sheets("Ref100").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Ref100").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "Referenz165" Then
intErsteLeereZeile = Sheets("Ref165").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Ref165").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "Referenz200" Then
intErsteLeereZeile = Sheets("Ref200").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Ref200").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "HLV1025" Then
intErsteLeereZeile = Sheets("Verstärker").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Verstärker").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "HLV1120" Then
intErsteLeereZeile = Sheets("Verstärker").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Verstärker").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "HLV2190" Then
intErsteLeereZeile = Sheets("Verstärker").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Verstärker").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
If Me.cboBezeichnung.Value = "HLV4120" Then
intErsteLeereZeile = Sheets("Verstärker").Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets("Verstärker").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
End If
'schließt das Formular'
Unload frmAusgang
End Sub
Private Sub UserForm_Initialize()
'stellt manuell-eingetragene Kategorien dar'
With Me
With .cboKategorie
.AddItem "Verstärker"
.AddItem "Lautsprecher"
.AddItem "Bügel"
.AddItem "Blenden"
.AddItem "Sonstiges"
End With
End With
End Sub
|