Ich habe ein Problem!
Ein User gibt über eine Userform einen Monat ein.
Für diesen Monat wird ein Kalender erstellt.
In der ersten Zeile steht Mo, Di, Mi,...
Jedesmal, wenn ein So kommt wird die gesammte Spalte rosa gefärbt.
Die rosa gefärbten kommen in eine Formel.
Welches lautet: Jedes mal, wenn ich den nachfolgenden Code ablaufen lasse kommt folgendes Formelstück heraus.
'E3, K3,... sind die So und eigentlich auch die Sa...
E3;K3;L3;$3:$3;S3;Y3;Z3;AF3;AG3
Was ich nicht verstehe ist die Stelle $3:$3
PS: Bitte keine beschwerden über den Aufbau...
formelteil = noPyramid(rosaza)
Function noPyramid(rosaza)
besu = 2
was = was & rosazelle(1) & Str(besu)
If rosaza > 1 Then
was = was & "," & rosazelle(2) & Str(besu) & "=""P"""
If rosaza > 2 Then
was = was & "," & rosazelle(3) & Str(besu) & "=""P"""
If rosaza > 3 Then
was = was & "," & rosazelle(4) & Str(besu) & "=""P"""
If rosaza > 4 Then
was = was & "," & rosazelle(5) & Str(besu) & "=""P"""
If rosaza > 5 Then
was = was & "," & rosazelle(6) & Str(besu) & "=""P"""
If rosaza > 6 Then
was = was & "," & rosazelle(7) & Str(besu) & "=""P"""
If rosaza > 7 Then
was = was & "," & rosazelle(8) & Str(besu) & "=""P"""
If rosaza > 8 Then
was = was & "," & rosazelle(9) & Str(besu) & "=""P"""
End If
End If
End If
End If
End If
End If
End If
End If
noPyramid = was
End Function
Function rosazelle(zahl)
alzahl = 0
altzah = 0
prz = 0
Do
prz = prz + 1
If prz = 61 Then Exit Do
'dooron ist eine Funktion, die aus einer Zahl einen Buchstaben macht
spatore = dooron(prz) & ":" & dooron(prz)
Columns(spatore).Select
If Selection.Interior.ColorIndex = 38 Then
altzah = altzah + 1
If altzah = zahl Then
rosazelle = spatore
Exit Do
End If
End If
Loop
End Function
Danke für jeden Hinweis
Ciao