title image


Smiley Spalte nach bestimmtem Datum durchsuchen / Zeitreihe ohne Wochenende
In Zelle B1 soll ein Eingabefeld für ein Datum stehen, welches im VBA-Code über die Range Funktion wie folgt ausgelesen werden soll.



Spalte A enthält bei mir die Datumswerte (ohne Wochenenden)



Spalte B1 enthält das gesuchte Datum (bsp 19.03.2006 , welches händisch eingetragen wird

-> Danach soll per Makro Spalte A nach dem Datum B1 durchsuchen.



Sofern Datum nicht gefunden wird (wie in diesem Fall, da 19.03 = Sonntag, soll

von diesem Datum 1 Tag abgezogen werden.



a) ist dieser Tag (hier 18.03.2006) vorhanden - so endet die Suche



b) wenn nicht wird nochmals um -1 Tag reduziert





Da in diesem Fall 19.03 Sonntag und 18.03 Samstag ist wird der Code erst bei -2 Tage fündig.





Die gefundene Zeile sieht in meinem Fall so aus :



Zeile Spalte A B C D

1 19.03.06

2

3

4 17.03.2006 56 66 55





---> WIE LÄSST SICH DAS IN VBA UMSETZEN - MEIN VERSUCHSCODE SIEHT WIE FOLGT AUS,

LEIDER FUNKTIONIERT DAS NICHT !







----------------------------------------------------------------------------------------------------

Dim da As Single



i = 5



Do Until Cells(i, 1) = Range("O14")



i = i + 1



Loop



m = i



For X = 1 To 12



Cells(X, 19) = Cells(m, X)



Next X



End Sub



Problem bei der Abfrage ist, wenn in Zelle B1 ein Datum eingegeben wird, welches nicht in Spalte A verfügbar ist.



-> 12.03.2006 nicht drin da Sonntag

13.03.2006

14.03.2006

15.03.2006

16.03.2006



Wie kann nun der Code dahingehend verändert werden dass entweder das Loopen abgebrochen wird sofern der Tag nicht gefunden wird bzw. dass sofern der TAG nicht gefunden wird - 1TAG gerechnet wird, sofern dieser nicht drin ist -2TAGE .



Vielen Dank

JONNY



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: