Hallo so also mal der code vom Befüllen der Kombinationsfelder->

Private Sub UserForm_Initialize()
                                                                 'Auswahl Lagermaschinene'
 'Lagermaschine.AddItem " "
 With AuswahlLM
 
 .AddItem "LM1"
 .AddItem "LM2"
 .AddItem "LM3"
 .AddItem "LM4"
 .AddItem "LM5"
 .AddItem "LM6"
 .AddItem "LM7"
 .AddItem "LM8"
 .AddItem "LM9"
 .AddItem "LM10"
 .AddItem "LM11"
 .AddItem "LM12"
 .AddItem "LM13"
 .AddItem "LM14"
 .AddItem "LM15"
 .AddItem "LM16"
 .AddItem "LM17"
 .AddItem "LM18"
 .AddItem "LM19"
 .AddItem "LM20"
 .AddItem "LM21"
 .AddItem "LM22"
 .AddItem "LM23"
 .AddItem "LM24"
 End With
 
 With KohlenwertX
    
  .AddItem "15/32mm"
 .AddItem "16/32mm"
 .AddItem "17/32mm"
 .AddItem "18mm"
 .AddItem "19mm"
 .AddItem "20mm"
 .AddItem "21mm"
 .AddItem "22mm"
 .AddItem "23mm"
 .AddItem "24mm"
 .AddItem "25mm"
 .AddItem "26mm"
 .AddItem "27mm"
 .AddItem "28mm"
 .AddItem "29mm"
 .AddItem "30mm"
 .AddItem "31mm"
 .AddItem "32mm"
 End With
 
 With KohlenwertY
 
 .AddItem "15/32mm"
 .AddItem "16/32mm"
 .AddItem "17/32mm"
 .AddItem "18mm"
 .AddItem "19mm"
 .AddItem "20mm"
 .AddItem "21mm"
 .AddItem "22mm"
 .AddItem "23mm"
 .AddItem "24mm"
 .AddItem "25mm"
 .AddItem "26mm"
 .AddItem "27mm"
 .AddItem "28mm"
 .AddItem "29mm"
 .AddItem "30mm"
 .AddItem "31mm"
 .AddItem "32mm"
 End With

End Sub

und um die Werte aus zusuchen und in die Tabelle einzutragen habe ich diesen code

Private Sub AuswahlLM_Change()
   'Werte in Liste LMKohlen  übertragen'
       Dim Zeile, Spalte As Integer
         
             
        Zeile = 4
        Spalte = 1
       
        
        Worksheets("2016").Cells(Zeile, Spalte).Value = AuswahlLM.Value

       
End Sub


Private Sub KohlenwertX_Change()

        'Werte in Liste LMKohlen  übertragen'
        Dim Zeile, Spalte As Integer
        
        Zeile = 5
        Spalte = 3
       
        
        Worksheets("2016").Cells(Zeile, Spalte).Value = KohlenwertX.Value

       

End Sub
Private Sub KohlenwertY_Change()

        'Werte in Liste LMKohlen übertragen'
        Dim Zeile, Spalte As Integer
             
        Zeile = 5
        Spalte = 4
       
        
        Worksheets("2016").Cells(Zeile, Spalte).Value = KohlenwertY.Value

       

End Sub

das geht auch alles schön und gut nur möchte ich jetzt noch schauen das wenn ich jetzt zum beispiel LM1 auswähle er mir dann gleich die werte X und Y in die richtige zeile schreibt.