Office: Formel in VBA Code einbinden

Moin zusammen

hoffe ihr könnt mir behilflich sein. ich möchte die anzahl einträge pro KW zählen. Ich habe es mir wie folgt gedacht:
Sub KW_Auswertung()
c = 0
For j = 1 To 52
For i = 1 To 20
If Sheets(1).Range("A" & i).Function(KÜRZEN(("A" & i - WOCHENTAG("A" & i, 2) + 11 - ("1/" & JAHR("A" & i + 4 - WOCHENTAG("A" & i, 2)))) / 7)) = j Then
c = c + 1
End If
Next i
Sheets(1).Range("Bj").Value = c
Next j

End Sub


Doch leider ist die einbindung der formel falsch...! ich habe nun schon dran gebastelt aber irgendwie klappt nichts.
wenn einer von euch eine lösung für mein problem hat, wäre ich verdammt erleichtert!!!

Gruß
Fletch

:)

 

so, bin schon nen schritt weiter aber er macht nicht das was er soll. aber wenigstens bricht er nicht mehr ab. das problem, nun zählt er nicht. denke irgendwo wird nen fehler sein. Die Formel die ich einbauen wollte, lautete im original so: =KÜRZEN((A1-WOCHENTAG(A1;2)+11-("1/"&JAHR(A1+4-WOCHENTAG(A1;2))))/7)

das hab ich bis jetzt:

Sub KW_Auswertung()
c = 0
For j = 1 To 52
For i = 1 To 20
b = Sheets(1).Range("A" & i).Formula = "=TRUNC((A & i - Weekday(A & i, 2) + 11 - (i/ & Year(A & i + 4 - Weekday(A & i, 2)))) / 7)"
If b = j Then
c = c + 1
End If
Sheets(1).Range("B" & j).Value = c
Next i

Next j

End Sub

gruß
Fletch

 

Da ist so einiges Falsch *wink.gif*

Code:

P.S: Das zählen geht wahrscheinlich auch ganz ohne VBA.

 

Vielen Dank, läuft genau so wie ich es wollte. Ich weiß zwar nicht wie man ne Function einbindet oder ausführt aber ich hab es in nen Sub umgewandelt und es läuft genau so wie ich es haben wollte.
Noch einmal, vielen Dank!
Gruß
Fletch