595 Aufrufe
Gefragt in Datenbanken von
Hallöchen zusammen,

ich habe mir im Internet ein Makro für eine Eingabemaske herausgesucht und für meine Zwecke umgeschrieben. Nun habe ich noch 3 kleine Probleme die ich gerne behoben hätte:

1. Ich möchte gerne dieses Formular / =Zeile()+3 / in mein Makro eingebunden haben.
2. Wenn ich die Eingabe anklicke, möchte ich das das Eingabefeld wieder verschwindet.
3. Ich möchte gerne das beim Preis ein €-Zeichen hinter der Zahl steht.

Hier das Makro, wie es jetzt arbetet.


Private Sub cmdAbbruch_Click()
'Schließt das Formular Spiele

Unload frmSpiele

End Sub
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).Value = WorksheetFunction.Max(Range("A:A"))
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

Private Sub txtNamedesSpiels_Change()

End Sub

Private Sub UserForm_Initialize()
With Me
.txtKaufdatum.Value = Date
.cboSpieler.List = Range("Spieler").Value
.cboAutor.List = Range("Autor").Value
.cboAlter.List = Range("Alter").Value
.cboSpieldauer.List = Range("Spieldauer").Value
.cboRubrik.List = Range("Rubrik").Value
.cboVerlag.List = Range("Verlag").Value
.cboVollständigkeit.List = Range("Vollständigkeit").Value
.cboKaufort.List = Range("Kaufort").Value
End With

End Sub

Vielen Dank schon mal im Voraus für eure Antworten

Gruß

Holger

1 Antwort

0 Punkte
Beantwortet von
Kann das sein das ich hier für den Preis was eintragen muss?

Private Sub lblPreis_Click()

End Sub

Gruß

Holger
...