Public Sub probe()
Dim oZelle As Range
Dim i As Integer 'zählt Array rauf
Dim FarbigeZellen() As String 'Array speichert Zellen für die Formel
i = 0
[E100].Activate
Application.Volatile
For Each oZelle In ActiveSheet.Range("E100:E1300")
If oZelle.Interior.Color = RGB(197, 217, 241) Then 'Alle farbigen Zellen auswählen
ReDim Preserve FarbigeZellen(i)
FarbigeZellen(i) = oZelle.Address
i = i + 1
End If
Next oZelle
ActiveSheet.Range("E45").Formula = "=" & Join(FarbigeZellen, "+") 'Formel in Zelle einfügen
End Sub
Es wird keine Fehlermeldung angezeigt, doch wenn ich das Makro ausführe, dann wird 1. das, was vorher in der Stelle stand, gelösscht, aber nicht durch eine neue Formel ersetzt.
Ich hoffe, ihr könnt mir helfen.