Datum finden
HAW
wenn ich in einem Bereich ein Datum suche, dreht Excel Tag und Monat immer um (amerik. Form), sodass ein anderer Tag gesucht wird:
Function Arbeitstag(Tag As Date) As Boolean
Dim FTag As Range, gef As Range
If Weekday(Tag) <> 1 And Weekday(Tag) <> 7 Then
Arbeitstag = True
End If
Set FTag = Workbooks("Genehmigungskalender.xls").Worksheets("Feiertage").Range("FT")
Set gef = FTag.Find(Tag)
If Not gef Is Nothing Then Arbeitstag = False
End Function
Daher habe ich in der Funktion den Suchstring angepasst:
Function Arbeitstag(Tag As Date) As Boolean
Dim FTag As Range, gef As Range
If Weekday(Tag) <> 1 And Weekday(Tag) <> 7 Then
Arbeitstag = True
End If
Set FTag = Workbooks("Genehmigungskalender.xls").Worksheets("Feiertage").Range("FT")
Set gef = FTag.Find(DateSerial(Year(Tag), Day(Tag), Month(Tag)))
If Not gef Is Nothing Then Arbeitstag = False
End Function
So funktioniert es.
Muss das so sein, oder gibt es einen anderen Trick, um Excel unsere Datumsschreibweise beizubringen?
Vielen Dank
Heinz
Anzeige