Private Enum ProductValue
  pdvfmk = 1
  pdvfc0k
  pdvE0Mean
  pdvE005
  pdvGMean
  pdvG05
  pdvkfi
  pdvBetaN
  pdvBetaC
End Enum
 
Private Sub MaterialAuswahl()
If ComboBox1.ListIndex < 0 Then Exit Sub
  
  With ComboBox1
    Cells(65, "V").Value = .List(.ListIndex, pdvfmk)
    Cells(66, "V").Value = .List(.ListIndex, pdvfc0k)
    Cells(67, "V").Value = .List(.ListIndex, pdvE0Mean)
    Cells(68, "V").Value = .List(.ListIndex, pdvE005)
    Cells(69, "V").Value = .List(.ListIndex, pdvGMean)
    Cells(70, "V").Value = .List(.ListIndex, pdvG05)
    Cells(75, "V").Value = .List(.ListIndex, pdvkfi)
    Cells(51, "V").Value = .List(.ListIndex, pdvBetaN)
    Cells(92, "O").Value = .List(.ListIndex, pdvBetaC)
    
  End With
  
End Sub
 
Private Sub Init() 'einmal ausführen
   
  Application.EnableEvents = False
   
  With ComboBox1
    
    .ColumnCount = 1
     
    .Clear
     
    .AddItem "NH C 24"
    .List(.ListCount - 1, pdvfmk) = "24"
    .List(.ListCount - 1, pdvfc0k) = "21"
    .List(.ListCount - 1, pdvE0Mean) = "11000"
    .List(.ListCount - 1, pdvE005) = "7333"
    .List(.ListCount - 1, pdvGMean) = "690"
    .List(.ListCount - 1, pdvG05) = "460"
    .List(.ListCount - 1, pdvkfi) = "1,25"
    .List(.ListCount - 1, pdvBetaN) = "0,8"
    .List(.ListCount - 1, pdvBetaC) = "0,1"
    
     
    .AddItem "NH C 30"
    .List(.ListCount - 1, pdvfmk) = "30"
    .List(.ListCount - 1, pdvfc0k) = "23"
    .List(.ListCount - 1, pdvE0Mean) = "12000"
    .List(.ListCount - 1, pdvE005) = "8000"
    .List(.ListCount - 1, pdvGMean) = "750"
    .List(.ListCount - 1, pdvG05) = "500"
    .List(.ListCount - 1, pdvkfi) = "1,25"
    .List(.ListCount - 1, pdvBetaC) = "0,1"
    
    
    
    .AddItem "BSH Gl24h"
    .List(.ListCount - 1, pdvfmk) = "24"
    .List(.ListCount - 1, pdvfc0k) = "24"
    .List(.ListCount - 1, pdvE0Mean) = "11600"
    .List(.ListCount - 1, pdvE005) = "9167"
    .List(.ListCount - 1, pdvGMean) = "720"
    .List(.ListCount - 1, pdvG05) = "600"
    .List(.ListCount - 1, pdvkfi) = "1,15"
    .List(.ListCount - 1, pdvBetaN) = "0,7"
    .List(.ListCount - 1, pdvBetaC) = "0.2"
    
    

    .AddItem "BSH Gl24c"
    .List(.ListCount - 1, pdvfmk) = "24"
    .List(.ListCount - 1, pdvfc0k) = "21"
    .List(.ListCount - 1, pdvE0Mean) = "11600"
    .List(.ListCount - 1, pdvE005) = "9167"
    .List(.ListCount - 1, pdvGMean) = "590"
    .List(.ListCount - 1, pdvG05) = "492"
    .List(.ListCount - 1, pdvkfi) = "1,15"
    .List(.ListCount - 1, pdvBetaN) = "0,7"
    .List(.ListCount - 1, pdvBetaC) = "0.2"
    
  End With
   

  Application.EnableEvents = True
   
End Sub

Was ist daran falsch? Ich komme nicht dahinter. Bin schon total verzweifelt....

Gruß Alexander