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 ' diese zeile ist gelb makiert
        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 'habe ich jetzt eingefügt
End Sub

doch auch mit  dem  aufruf "Call Pruefe" macht er Laufzeitfehler 13.

Habe die User form ausgefüllt ausser die Textbox für Bahn1 und haben dann den Speicher Button getätigt.

Gruß Chrimaet