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
|