Datum in eine Zahl ändern
04.08.2005 11:37:28
Erich
Mit diesem Code möchte ich immer die aktuelle Tabelle aufrufen.
Die Namen der Tabellen sind von 01 bis 31
Private Sub Workbook_Open()
Dim sWks As String
Dim I As Integer
Tabelle2.Range("D5") = Date
If Tabelle2.Range("D5") = "04.08.2005" Then I = 4
sWks = I
Worksheets(sWks).Activate
End Sub
Wie bekomme ich das hin das in der Zelle z.B. "E5" anstatt
04.08.2005 nur 04 steht?
Ich hoffe es ist verständlich.
Gruss Erich