Dim ex As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Set ex = New Excel.Application
Set xlWB = ex.Workbooks.Open(App.Path & "\Archiv.xls")
Set xlWS = xlWB.Worksheets("Archiv")
ex.Visible = False
Dim lngNeueReihe As Long
With xlWS
lngNeueReihe = .Range("c30000").End(xlUp).Row + 1
.Cells(lngNeueReihe, 1).Value = Text2.Text
.Cells(lngNeueReihe, 2).Value = Text1.Text
.Cells(lngNeueReihe, 3).Value = Text3.Text
.Cells(lngNeueReihe, 4).Value = Text4.Text
.Cells(lngNeueReihe, 5).Value = Text5.Text