Private Sub Button_Take_Click()
Dim Eins As Integer
Dim Zwei As Integer
Dim Drei As Integer
Dim Vier As Integer
Dim Fünf As Integer
Dim Sechs As Integer
Dim Sieben As Integer
Dim Acht As Integer
Dim Neun As Integer
Dim Zehn As Integer
Dim Elf As Integer
Dim Zwölf As Integer
Dim Dreizehn As Integer
Dim Vierzehn As Integer
Dim Fünfzehn As Integer
Dim Sechzehn As Integer
Dim Siebzehn As Integer
Dim Achtzehn As Integer
Dim Datum_Inhalt As Date
ThisWorkbook.Sheets(ComboBox1.Text).Select
Datum_Inhalt = Datum.Value
> Eins = Bahn1.Value <strong>
Zwei = Bahn2.Value
Drei = Bahn3.Value
Vier = Bahn4.Value
Fünf = Bahn5.Value
Sechs = Bahn6.Value
Sieben = Bahn7.Value
Acht = Bahn8.Value
Neun = Bahn9.Value
Zehn = Bahn10.Value
Elf = Bahn11.Value
Zwölf = Bahn12.Value
Dreizehn = Bahn13.Value
Vierzehn = Bahn14.Value
Fünfzehn = Bahn15.Value
Sechzehn = Bahn16.Value
Siebzehn = Bahn17.Value
Achtzehn = Bahn18.Value
Range("A" & Range("A65536").End(xlUp).Row + 1) = Datum_Inhalt
Range("B" & Range("B65536").End(xlUp).Row + 1) = Eins
Range("C" & Range("C65536").End(xlUp).Row + 1) = Zwei
Range("D" & Range("D65536").End(xlUp).Row + 1) = Drei
Range("E" & Range("E65536").End(xlUp).Row + 1) = Vier
Range("F" & Range("F65536").End(xlUp).Row + 1) = Fünf
Range("G" & Range("G65536").End(xlUp).Row + 1) = Sechs
Range("H" & Range("H65536").End(xlUp).Row + 1) = Sieben
Range("I" & Range("I65536").End(xlUp).Row + 1) = Acht
Range("J" & Range("J65536").End(xlUp).Row + 1) = Neun
Range("K" & Range("K65536").End(xlUp).Row + 1) = Zehn
Range("L" & Range("L65536").End(xlUp).Row + 1) = Elf
Range("M" & Range("M65536").End(xlUp).Row + 1) = Zwölf
Range("N" & Range("N65536").End(xlUp).Row + 1) = Dreizehn
Range("O" & Range("O65536").End(xlUp).Row + 1) = Vierzehn
Range("P" & Range("P65536").End(xlUp).Row + 1) = Fünfzehn
Range("Q" & Range("Q65536").End(xlUp).Row + 1) = Sechzehn
Range("R" & Range("R65536").End(xlUp).Row + 1) = Siebzehn
Range("S" & Range("S65536").End(xlUp).Row + 1) = Achtzehn
ThisWorkbook.Save
Unload Me
> Call Pruefe
End Sub