|
UPDATE
habs gelöst
Aber wenn du es gerade schon offen hast.
Ich hab das Problem, dass er folgende Felder immer aus dem Sheets einliest welches beim Speichern zuletzt geöffnet war. Ich möchte dies aber fixieren. Er soll es immer aus Sheets 1 holen egal welches zuletzt offen war
With Kunde
.RowSource = "A4:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
.Style = fmStyleDropDownList
.ListIndex = 0
.ListRows = 5
End With
With Mitarbeiter
.RowSource = "D4:D" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
.Style = fmStyleDropDownList
.ListIndex = 0
.ListRows = 5
End With
With Wafergroesse
.RowSource = "B4:B" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
.ListIndex = 0
End With
With Fehler
.RowSource = "E4:E" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
.Style = fmStyleDropDownCombo
.ListIndex = 0
.ListRows = 10
End With
|