Private Sub cmdcreate_Click()
Dim ExcelWorksheet As Object
Dim boolschreibmerker As Boolean
Dim rngusedrange As Range
Dim wksworksheet As Worksheet
Dim lngrows As Long
Dim strpfad As String 'z.B: C:\
Dim strdokumentname As String 'z.B.: Bestellnummern.xls
Dim strpseudomerker As String


	' ExcelWorksheet ist eine zweite Tabelle, auf die zugegriffen wird, um dort die letzte nummer zu lesen und die nächste zu generieren

                    strpfad = CStr(Worksheets(4).Range("A2"))
                    strdokumentname = CStr(Worksheets(4).Range("A1"))
                    boolschreibmerker = False
                    Set ExcelWorksheet = GetObject(strpfad & strdokumentname)
                        
                    ' ermitteln des letzten Eintrags zur Bestimmung der neuen bestellnummer im anderen Dokument 
                    Set wksworksheet = ExcelWorksheet.Worksheets(1)
                    Set rngusedrange = wksworksheet.UsedRange
                    lngrows = rngusedrange.Rows.Count
                    
                    ExcelWorksheet.Worksheets(1).Range("A" & lngrows + 1) = ExcelWorksheet.Worksheets(1).Range("A" & lngrows)
                    ExcelWorksheet.Worksheets(1).Range("B" & lngrows + 1) = CStr(CInt(ExcelWorksheet.Worksheets(1).Range("B" & lngrows)) + 1)
                    txtbestellnummer = CStr("B-" & ExcelWorksheet.Worksheets(1).Range("B" & lngrows + 1))
                    ExcelWorksheet.Worksheets(1).Range("C" & lngrows + 1) = txtdatum
                    ExcelWorksheet.Worksheets(1).Range("D" & lngrows + 1) = txtzeit
                    ExcelWorksheet.Worksheets(1).Range("E" & lngrows + 1) = txtfirmagesamt
                    ExcelWorksheet.Worksheets(1).Range("F" & lngrows + 1) = CStr(cbolieferantendaten.Value)
                    ExcelWorksheet.Worksheets(1).Range("G" & lngrows + 1) = cboautor.Value
                    ExcelWorksheet.Worksheets(1).Range("H" & lngrows + 1) = txtautorvorname
                    ExcelWorksheet.Worksheets(1).Range("I" & lngrows + 1) = txtautorname
                    ExcelWorksheet.Worksheets(1).Range("J" & lngrows + 1) = txtkommission
                    ExcelWorksheet.Worksheets(1).Range("K" & lngrows + 1) = txtangebotlieferwerk
                    ExcelWorksheet.Worksheets(1).Range("L" & lngrows + 1) = txtartikel
                    ExcelWorksheet.Worksheets(1).Range("M" & lngrows + 1) = txtmenge
                    ExcelWorksheet.Worksheets(1).Range("N" & lngrows + 1) = txtpreis
                    ExcelWorksheet.Worksheets(1).Range("O" & lngrows + 1) = cbowährung.Value
                    ExcelWorksheet.Worksheets(1).Range("P" & lngrows + 1) = txtliefertermin
                    ExcelWorksheet.Worksheets(1).Range("Q" & lngrows + 1) = txtdatumconfirm
                    
                    'MsgBox (ExcelWorksheet.Worksheets(1).Range("A" & lngrows + 1) & ExcelWorksheet.Worksheets(1).Range("B" & lngrows + 1))
                    
                    ExcelWorksheet.Windows(strdokumentname).Visible = True
                    ExcelWorksheet.Save
                    ExcelWorksheet.Close
                    ThisWorkbook.Save
                    
                    
                    Call erstellenwordangebot
                    
                    Set ExcelWorksheet = Nothing
                    
                    frmerstellenbestellung.Hide

End Sub