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