Excel Version 15
15.02.2014 12:50:25
Hannelore
ich habe mir die neue Version von Excel erworben und habe nun
Probleme mit den alten Programmen von Version 14
Und zwar Format(Date,... )
Fehlermeldung "Projekt oder Bibliothek nicht gefunden"
Wie kann ich das ändern?
Danke!
Gruß
Hanni
Private Sub CBO_Datum_Change()
Dim Datum as String
Dim DatumFormat as String
Select Case CBO_Datum.ListIndex
Case 1
Datum = Format(Date, "YYYY")
DatumFormat = "YYYY"
Case 2
Datum = Format(Date, "YY")
DatumFormat = "YY"
Case 3
Datum = Format(Date, "YYYY/MM")
DatumFormat = "YYYY/MM"
Case Else
Datum = ""
DatumFormat = ""
End Select
End Sub
Private Sub Auswerten()
Select Case DatumFormat
Case Is ""
Datum = Format(Date, DatumFormat)
Case Else
Datum = ""
End Select
End Sub
Anzeige