Hallo VBA Spezialisten,
ich habe für einen Arbeitskollegen eine Datei gemacht die mir Wochenenden und Feiertage raussucht und diese Monatsweiße in eine Vorlage einträgt. Das klappt auch alles allerdings ist ein Problem aufgetreten wenn ich das Makro an seinem PC ausführen möchte da findet er im Dezember keine Feiertage, die stehen schon in einer Tabelle und er muss sie nur raus lesen bei mir Funktioniert dies aber.
With Worksheets(2).Range("Z5:Z18")
Set Suche = .Find(akt_Tag, LookIn:=xlValues, LookAt:=xlWhole)
If Not Suche Is Nothing Then
n = n + 1
Tage(n) = akt_Tag
End If
End With
Wenn er nun den 24.12.20xx suchen soll findet er diesen nicht. (Ja ich bin kein Profi und mache es über Loop und soweiter)
Es liegt aufjedenfall nicht am Array auslesen da er beim Debuggen schon garnicht rein geht und "Suche" auf "Nothing" steht.
Die Zellen sind Formatiert als Datum wie alle anderen auch bei denen es Klappt.
Vielen dank im Vorraus für eure Hilfe
LG Heidl
|