Bei Auswahl in Dropdown mehrere Zellen kopieren

Private Sub btn_eintragen_Click()



    'Var Anzahl der Kopfzeilen definieren

        Dim ZeilenBeginn

        ZeilenBeginn = 4 'letzte Kopfzeile, unter dieser Beginnt der Content



    'Auslesen der letzten Zeile

        Dim LetzteZeile

        LetzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row



        'PersNr

        Cells(LetzteZeile + 1, 1).Value = "Hier sollte der Wert aus Tabellenblatt Mitarbeiterliste Spalte A verwendet werden der zu combo_maname gehört"

        'MA Name

        Cells(LetzteZeile + 1, 2).Value = combo_maname.Value

        'Bestelltyp

        Cells(LetzteZeile + 1, 3).Value = combo_besttyp.Value

        'Eintragsdatum

        Cells(LetzteZeile + 1, 4).Value = Date

        'Zusatztext

        Cells(LetzteZeile + 1, 1).Value = txt_msg.Text



    Unload Me



End Sub