KW mittels DatePart erfassen
25.03.2004 18:10:48
Claus
eine harte Nuss, die ich schon seit geraumer Zeit mit viel Ehrgeiz versuche zu knacken, hat mich letztlich hierher getrieben...ich komm nicht weiter.
Ich möchte Zeilen in einer Tabelle unter bestimmten Bedingungen über einen VBA-Code zählen und die gezählte Anzahl ausgeben.
In Zelle Cells(x, 12) steht ein Datum.
Über eine Box gebe ich die zu betrachtende KW vor:
KW = InputBox("Geben Sie die zu betrachtende KW ein:")
Als Bedingung soll noch gelten, dass die Differenz zweier Datum in den Zellen Cells(x, 10) und Cells(x, 12) größer/gleich 0 ist.
Die Ausgabe der gezählten Anzahl soll dann in Zelle Cells(3, 15) erfolgen.
Hier mein bisheriger, leider nicht funktionierender Code....
Private Sub Diagramm2_Click()
x = 4
Do Until Application.WorksheetFunction.CountBlank(Rows(x)) = 256
x = x + 1
KW = InputBox("Geben Sie die zu betrachtende KW ein:")
If DatePart("ww").Cells(x, 12) = KW And (Worksheets(1).Cells(x, 10) - Worksheets(1).Cells(x, 12)) >= 0 Then
Worksheets(3).Cells(15, 1) = Worksheets(3).Cells(3, 15).Value + 1
End If
Loop
End Sub
Code eingefügt mit Syntaxhighlighter 2.4