- #1
J
JonnyHeart
Aktives Mitglied
Themenersteller
- Dabei seit
- 12.01.2005
- Beiträge
- 31
- Reaktionspunkte
- 0
In Spalte A steht eine Zeitreihe OHNE Wochenendtage. In Zelle B1 soll ein Eingabefeld für ein Datum stehen, welches im VBA-Code über die Range Funktion wie folgt ausgelesen werden soll :
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
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