Datum
29.03.2006 15:41:35
thorben
habe mal wieder ein Problem das ich nach langer Recherche im Internet immer noch nicht lösen konnte.
Ich habe in einem Exceldatenbank eine userform erstellt. In dieser Userform kann man verschiedene Optionen auswählen. Je nach dem wo der "User" sich im Tabellenblatt befindet, wird ein Label (Label7) beschriftet und zwar mit dem wert zwei Zellen neben der makierten zelle. Dort befindet sich ein Datum. So jetzt sollen die Werte aus der Userform in einen anderes Tabellenblatt eingetragen werden. Den code hierfür habe ich mir schon zusammengebastelt (durch Internetrecherche).
Code:
Sub DatensatzEintragen()
Dim LetzteZeile As Integer
LetzteZeile = Sheets("Begründungen_Sonstige").Cells(Cells.Rows.Count, 2).End(xlUp).Row
Sheets("Begründungen_Sonstige").Cells(LetzteZeile + 1, 2) = Label7
Sheets("Begründungen_Sonstige").Cells(LetzteZeile + 1, 3) = Label8
Sheets("Begründungen_Sonstige").Cells(LetzteZeile + 1, 4) = TextBox3
End Sub
Soweit so gut. Jetzt wird aber das Datum aus Label7 als Text wiedergegeben und nicht als Datum. Weiß nicht wie ich es anders ausdrücken soll, ein Datum z.B. 13.06.2006 soll als 38881 wiedergegeben werden. Ich brauche das Datum nämlich für einen SVerweis!
Danke im Vorraus!!!