Excel - VBA Programm

Private Sub DatentransferAbbrechen_Click()

    'Eingabefenster schliesen

    Unload Bestellformular

End Sub

Private Sub DatentransferUebernehmen_Click()

    'Eingabe der Schaltflächen in die Arbeitsmappe übernehmen

    Dim last As Integer

    last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

        ActiveSheet.Cells(last, 1).Value = Bestellformular.Datum.Value

        ActiveSheet.Cells(last, 2).Value = Bestellformular.Artikel.Value

        ActiveSheet.Cells(last, 3).Value = Bestellformular.Menge.Value

        ActiveSheet.Cells(last, 6).Value = Bestellformular.Kommentar.Value

        ActiveSheet.Cells(last, 7).Value = Bestellformular.Namenskuerzel.Value

End Sub

Private Sub UserForm_Initialize()

    'Vorausgefülltes Datum für die Schaltfläche

    Bestellformular.Datum.Value = Date

    'Dropdown Menü befüllen (Mitarbeiterliste)

    With Bestellformular.Namenskuerzel

        .AddItem "R.R."

        .AddItem "O.S."

        .AddItem "M.G."

        .AddItem "R.S."

        .AddItem "O.D."

        .AddItem "R.H."

    End With

    'Dropdown Menü befüllen (Menueliste)

    Menueliste.RowSource = Range("Tabelle1[Artikel]").Address

End Sub