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 mit einem So 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(rosaza) & ")"
rosaformel = was
rosaformel = Replace(rosaformel, " ", "")
'und jetzt kommt der Fehler 1004
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
Bin für jeden Tipp dankbar!
Ciao