Datumsausgabe aus ComboBox und Textfeld
06.10.2014 12:21:06
Susi
ich habe mir mit Hilfe von Foren und YouTube trotz kaum VBA Kenntnissen ein kleines Eingabeformular mit VBA gebaut. Das funktioniert soweit auch i.O. nur leider hapert es beim Ausgabeformat des Datums.
Zum Problem: Ich möchte in meinem Formular zwei Daten per Combobox und Textfeld auswählen. In der Combobox soll dabei der Monat um im Textfeld das Jahr stehen. In der Ausgabe sollen Monat und Jahr dann zusammen in einer Zelle als Datum wiedergegeben werden, damit ich damit "rechnen" kann ( Hier meine Initialisierung der Felder:
Private Sub UserForm_Initialize()
'Werte beim Aufrufen des Formulars initialisiert
Dim i As Integer
Dim m As Integer
Me.txtJahr.Value = Year(Date)
Me.txtJahrGebuehr.Value = Year(Date)
For i = 1 To 12
cboMonat.AddItem MonthName(i)
cboGebuehr.AddItem MonthName(i)
Next i
Me.cboMonat.ListIndex = Month(Date) - 1
Me.cboGebuehr.ListIndex = Me.cboMonat.ListIndex + 1
Meinem Verständnis nach werden hier die Daten doch bereits als Datum formatiert oder liege ich hier falsch?
In der Ausgabe wollte ich dann:
Tabelle1.Cells(intFirstEmptyRow, 8).Value = Me.cboGebuehr.Value + me.cboJahr.Value
Kann mir von euch jemand helfen? Ich wäre für jede Hilfe sehr dankbar!
Viele Grüße
Anzeige