Hallo liebe Hobby programmierer,
Ich habe folgendes dringendes Problem, ich soll aus einer Excel Tabelle welche mit einem Autofilter arbeitet, nur bestimmte Daten auslesen.
Die Tabelle ist so aufgebaut, dass in der ersten Spalte ein besitmmter Schlüssel steht und in der 2ten das Datum wann der Schlüssel eingetragen wurde.
Meine konkrete Aufgabe ist den letzten Freitag der vom benutzer eingegebene Kalenderwoche zu berechnen und dann alle Daten die kleiner sind als dieses Datum zu verwenden.
Die Tabelle enthält noch mehr Informationen aber die sind unwichtig.
Mein Ansatz lautet wie folgt:
KW = InputBox("Bitte die zu bearbeitende Kalenderwoche eingeben:")
jahr = 2006
' Hier wir der letzte Freitag der KW berechnet
KWFr = DateSerial(jahr, 1, 1) + (KW - 1) * 7
KWFr = KWFr + 1 - Weekday(KWFr, vbMonday)
If Format(KWFr, "ww", vbMonday, vbFirstFourDays) KW Then KWFr = KWFr + 10
MsgBox (KWFr)
KWFr = Format(KWFr, "DD.MM.YYYY")
Selection.AutoFilter Field:=2, Criteria1:="(hier kommt kleiner Gleich rein)" & KWFr
So hier ensteht mein Problem, Excel filtert einfach nicht die richtigen daten raus, ich vermute es hängt irgendwie mit dem Format der Kalenderwoche zusammen, dass er es nicht erkennt. Habe schon versucht das Datum als Zahl darzustellen (ich glaub das sind dann die Tage nach Bill Gates Geburtstag) aber ich bekomm die Variable KWFr nicht in eine Integer Variable(oder wie auch immer das bei Basic hiesst)
Würde mich über eine schnelle Antwort freuen
PS: Ist mein 2tes Basic Programm also nicht so streng mit mir sein :o)