ich bin mal wieder mit meinem Latein am Ende, denn Excel scheint schon wieder zu tun was es will...
Folgendes Problem:
Ich habe eine Tagesübersicht, die mir aus einer Urlaubsdatei (Mit den Sheets Januar-Dezember) den Urlaub auslesen soll. Hierzu kann man in eine Textbox das Datum einfügen, VBA sucht dann den Match mit dem Datum, geht in der Spalte runter und sucht dann Eintragungen.
Soweit, sogut. Jetzt das komische/verrückte. Der Code hängt sich manchmal auf und ich war am verzweifeln warum. Nach viel Trial and Error scheint es so, dass es daran hängt wie man die Urlaubsdatei speichert. Wenn das letzte offene Blatt Oktober ist, geht z.b. keine Abfrage für September und ich hab ehrlich keine Ahnung warum, denn laut Code müsste er alle durchforsten:
D
im i As Long
Dim a As Variant
For i = 1 To 12
a = Application.Match(CLng(DateValue(TextBox1)), Workbooks(wkbName).Worksheets(i).Rows(2), _
0)
If IsNumeric(a) Then
Ich habe auch schon versucht über das Datum nur den Monat auszulesen und dann "i" diesem Wert zuzuweisen, aber das Ergebnis ist das gleiche. Immer wenn man die Urlaubsdatei speichert und dabei das letzte Sheet als Ansicht da ist, gehen einige Monate nicht. Vielleicht habt ihr eine Idee!
LG und Dank euch!