|
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.
|