Hallöchen Markus

danke für deine Antwort.

Ich habe das so eingesetzt und bekomme dann die Fehlermeldung Laufzeitfehler ´1004´: Anwendungs-oder objektdefinierter Fehler

Hoffe Du kannst damit was anfangen :-)

Gruß

Holger

Private Sub cmdEingabe_Click()
'Fügt die eingetragenen Werte ins Tabellenblatt und schließt das Formular Spiele

Unload frmSpiele

Dim intErsteLeereZeile As Long

 
    intErsteLeereZeile = ActiveSheet.Cells(5, 2).FormulaLocal = "=ZEILE()-3"
    ActiveSheet.Cells(intErsteLeereZeile, 1).Value = WorksheetFunction.Max(Range("A:A"))   DIESE ZEILE IST DANN GELB MARKIERT
    ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtNamedesSpiels.Value
    ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.cboSpieler.Value
    ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.cboAlter.Value
    ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.cboSpieldauer.Value
    ActiveSheet.Cells(intErsteLeereZeile, 7).Value = Me.cboRubrik.Value
    ActiveSheet.Cells(intErsteLeereZeile, 8).Value = Me.txtAuszeichnungen.Value
    ActiveSheet.Cells(intErsteLeereZeile, 9).Value = Me.txtErscheinungsjahr.Value
    ActiveSheet.Cells(intErsteLeereZeile, 10).Value = Me.cboVerlag.Value
    ActiveSheet.Cells(intErsteLeereZeile, 11).Value = Me.cboAutor.Value
    ActiveSheet.Cells(intErsteLeereZeile, 12).Value = Me.txtArtikelnummer.Value
    ActiveSheet.Cells(intErsteLeereZeile, 13).Value = Me.cboVollständigkeit.Value
    ActiveSheet.Cells(intErsteLeereZeile, 14).Value = Me.txtEAN.Value
    ActiveSheet.Cells(intErsteLeereZeile, 15).Value = Me.txtKaufdatum
    ActiveSheet.Cells(intErsteLeereZeile, 16).Value = Me.cboKaufort.Value
    ActiveSheet.Cells(intErsteLeereZeile, 17).Value = Me.txtPreis.Value
    
    
 
End Sub