|
Hallo Markus,
vielen Dank für Deine Zeit und Hilfe. Mit Deinen Hinweisen hat es dann auch geklappt. So hab ich es mir vorgestellt. Schön das es Leute gibt, die Ihr Wissen weitergeben an solche PC-Laien wie mich. Danke noch mal. Gruß Holger
P.S.
So sieht die Programmierung jetzt aus, auch den Befehl zu Schließen habe ich nun ans Ende gestellt (in Fett die geänderte Zeile)::
Private Sub cmdEingabe_Click()
'Fügt die eingetragenen Werte ins Tabellenblatt und schließt das Formular Spiele
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).FormulaLocal = "=ZEILE()-3"
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
Unload frmSpiele
End Sub
|