Hallo,
ich habe mal wieder ein Problem. Wie kann ich in VBA ein Programm schreiben, was bei einem erzeugenden Tabellenblatt die Spalten A1 bis A32 und bei E1 bis E32 usw. nach unten durchläuft und die Zelleninhalte vergleicht. Das soll heißen: Wenn z.B.: A1=1 dann ist D1 a=a+0 ansonsten a=a+1. Wie sich a berechnet sieht man an dem Code hier unten. Hier wird faktisch nur eine Zahl hochaddiert.
Const Ctest = "test"
a = Worksheets(Ctest).Range("a1")
b = 4
c = 0
Do
If c = 32 Then
b = b + 4
c = 0
End If
a = a + 1
c = c + 1
Cells(c, b) = a
If a = 40 Then Exit Do
Loop
Wie kann ich das in den Code einbinden. Irgendwie blick ich da nicht mehr so ganz durch.
Kann mir jemand helfen?
MfG Harald