Ich habe folgendes Problem:
Der User gibt in einer Userform einen Monat an.
Für diesen Monat soll ein Kalender erstellt werden, wobei in der ersten Zeile Mo, Di,... steht.
Nun werden per makro alle Spalten rosa gefärbt.
Es wird jedesmal wenn eine Spalte rosa gefärbt wird die Variable rosaza um eins erhöht!
Das Problem ist, dass ich die rosa gefärbten Spalten in einer Formel einbeziehen muss!
wo = "A2"
was = "=SUM(" & noPyramid(2, rosaza, besu) & ")"
rosaformel = was
rosaformel = Replace(rosaformel, " ", "")
'und jetzt kommt der Fehler
Range(wo).FormulaR1C1 = was
Function rosazelle(zahl)
Do
prz = prz + 1
If prz = 61 Then Exit Do
'dooron ist eine Funktion, die aus einer zahl einen Buchstaben macht
spatore = dooron(prz)
Columns(spatore).Select
If Selection.Interior.ColorIndex = 38 Then
altzah = altzah + 1
If altzah = zahl Then
rosazelle = spatore & ":" & spatore
Exit Do
End If
End If
Loop
End Function
Function noPyramid(rosaza)
besu = 1
If rosaza > 0 Then
was = was & rosazelle(1) & Str(besu)
If rosaza > 1 Then
was = was & "," & rosazelle(2) & Str(besu)
If rosaza > 2 Then
was = was & "," & rosazelle(3) & Str(besu)
If rosaza > 3 Then
was = was & "," & rosazelle(4) & Str(besu)
If rosaza > 4 Then
was = was & "," & rosazelle(5) & Str(besu)
If rosaza > 5 Then
was = was & "," & rosazelle(6) & Str(besu)
If rosaza > 6 Then
was = was & "," & rosazelle(7) & Str(besu)
If rosaza > 7 Then
was = was & "," & rosazelle(8) & Str(besu)
If rosaza > 8 Then
was = was & "," & rosazelle(9) & Str(besu)
End If
End If
End If
End If
End If
End If
End If
End If
End If
noPyramid = was
End Function
Vielen dank für jeden Tipp
Ciao