Private Sub Button_Take_Click()
ThisWorkbook.Sheets(MAE_Nummer.Text).Select
Dim last As Variant
last = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1
ActiveSheet.Cells(last, 10).Value = meinFormular.Bemerkung.Value
ActiveSheet.Cells(last, 11).Value = meinFormular.Wiederanlauf.Value
ActiveSheet.Cells(last, 5).Value = meinFormular.Text_Minuten.Value
ActiveSheet.Cells(last, 6).Formula = "=IF(E" & last & "="""","""",E" & last & "/1440)"
ActiveSheet.Cells(last, 7).Value = Date
ActiveSheet.Cells(last, 1).Value = meinFormular.MAE_Nummer.Value
ActiveSheet.Cells(last, 8).Value = meinFormular.Auswahl_Ursache
ActiveSheet.Cells(6, 2).Value = meinFormular.Zustand_MAE
ActiveSheet.Cells(last, 2).Formula = _
"=VLOOKUP(A" & last & " , Arbeitsplätze!A:G,2,0)"
ActiveSheet.Cells(last, 3).Formula = _
"=VLOOKUP(A" & last & " , Arbeitsplätze!A:G,3,0)"
ActiveSheet.Cells(last, 4).Formula = _
"=VLOOKUP(A" & last & " , Arbeitsplätze!A:G,4,0)"
ActiveSheet.Cells(last, 9).Formula = _
"=VLOOKUP(H" & last & " , Katalog!A:C,2,0)"
End Sub
Private Sub UserForm_Initialize()
Dim sh As Worksheet
Dim i As Integer
Dim objSheet As Object
For Each objSheet In ThisWorkbook.Worksheets
MAE_Nummer.AddItem objSheet.Name
Next
MAE_Nummer.Text = ActiveSheet.Name
Set sh = ThisWorkbook.Sheets("Katalog")
Me.Auswahl_Ursache.Clear
For i = 6 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row
Me.Auswahl_Ursache.AddItem sh.Range("A" & i).Value
Next i
Set sh = ThisWorkbook.Sheets("Katalog")
Me.Zustand_MAE.Clear
For i = 5 To sh.Range("G" & Application.Rows.Count).End(xlUp).Row
Me.Zustand_MAE.AddItem sh.Range("G" & i).Value
Next i
End Sub