Hallo Gast,

dies ist meine tabelle

 die mein userfrom

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

Private Sub SpeichernLM_Click()                                 'Formular auf Laufwerk zwischenspeichern
'
        ActiveWorkbook.Save
        LMKohlenwert.Hide
'
End Sub

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

 

Private Sub ZurückLM_Click()

' Schließt Maske LMKohenwerte'
 '
  LMKohlenwert.Hide
 '
 
End Sub


und die ein kleiner ausschnitt aus dem programm, wenn ich ehrlich bin oder besser ich steh auf dem schlauch mit dem vorschlag von dir wie ich ihn anwenden kann, da ich mich vielleicht auch falsch ausgedrückt habe einfach mal die bilder damit es leichter zu verstehen ist, natürlich würd ich gerne noch das datum einfügen später und dies dann auf ein halbes jahr eintragen wie auch in der liste nur hatte ich jetzt die tage keine zeit.

lg ivan