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