Private Sub Command5_Click()
'Datenatz aus Tabelle auktionlaufen löschen       
    Tabelle.Delete
'Datensatzzeiger auf einen neuen Datensatz setzen
    If Not Tabelle.EOF Then
        Tabelle.MoveNext
    Else
        Tabelle.MoveLast
    End If
'Zieltabelle öffnen:  
    Set Tabelle = Db.OpenRecordset("auktionenok")
    Tabelle.AddNew
    Tabelle("Gut") = Text1
    Tabelle("Anzahl") = Text2
    Tabelle("Pakete") = Text3
    Tabelle("Startgebot") = Text4
    Tabelle("Sofortkauf") = Text5
    Tabelle("Bietschritte") = Text6
    Tabelle("Start") = Text7
    Tabelle("Ende") = Text8
    Tabelle("Bemerkung") = Text9
'Abfrage der zusätzlichen Daten und eintragen in Tabelle
    msg = "Name des Käufers?"
    Defval = "0"
    Answer = InputBox(msg, title, Defval)
    Tabelle("Käufer") = Answer
    msg = "Kaufpreis?"
    Defval = "0"
    Answer = InputBox(msg, title, Defval)
    Tabelle("Verkaufspreis") = Answer
        msg = "Lieferort?"
    Defval = "0"
    Answer = InputBox(msg, title, Defval)
    Tabelle("Lieferort") = Answer
 
    Tabelle.Update
    Tabelle.Close
    Set Tabelle = Db.OpenRecordset("auktionlaufen") 'Öffnen der richtigen 
    ' Tabelle zum weiterarbeiten!
    MsgBox ("Auktion wurde als beendet gekennzeichnet!")
    auktionenanzeigen.Refresh

mfG.
Stephan