Modulo unter VB auf Zellen anwenden (Excelmacros)

[macronewb]

Hallo,

ich möchte gerne unter Excel mithilfe eines Macros, alle paar Zeilen (modulo) intervallweise bestimmte Aktivitäten ausführen.

Kann mir einer helfen?

In etwa so:

Dim jIndex As Integer
    Dim anzahltage As Integer
    Dim modulo As Integer
    Dim anzahlwochenpromonat As Integer

    'Dim anzleerfeldermonat As Integer
    'anzleerfeldermonat = 0

    'schreibe alle 7 felder die kalendarwoche hin
    For jIndex = 0 To Tabelle1.Range("B4:B34").Count

        anzahltage = jIndex
        modulo = anzahltage / 7

        'If Tabelle1.Range("B" + Conversion.CStr(4 + anzahltage)).Value = "" Then
         '  anzleerfeldermonat = anzleerfeldermonat + 1
        'End If

        If modulo = 0 Then
            Range("B" + Conversion.CStr([b]alle7zeilen[/b])).Value = Conversion.CStr(1) + c + Conversion.CStr(1) + ".KW"
        Else
            Range("B" + Conversion.CStr(5)).Value = Conversion.CStr(2)
        End If

    Next

[quote] c ist eine leerzeichenvariable, für links rechts textausrichtung in zellen, links steht anzahl wochen, rechts das datum[/quote]

Danke

[macronewb]

Der Code

'schreibe alle 7 felder die kalendarwoche hin pro monat
    For jIndex = 0 To Tabelle1.Range("B4:B34").Count

        anzahltage = jIndex
        modulo = anzahltage / 7

        'If Tabelle1.Range("B" + Conversion.CStr(4 + anzahltage)).Value = "" Then
         '  anzleerfeldermonat = anzleerfeldermonat + 1
        'End If

        If modulo = 0 Then
            anzahlwochenpromonat = anzahlwochenpromonat + 1
            Range("B" + Conversion.CStr(7)).Value = Conversion.CStr(1) + c + Conversion.CStr(1) + ".KW"
        Else
            Range("B" + Conversion.CStr(5)).Value = Conversion.CStr(2)
        End If
    Next