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