Formel wird nicht eingefügt (VBA)

Lara, Freitag, 06.07.2018, 13:57 (vor 134 Tagen)

Das ist der Code, den ich bis jetzt habe

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.


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum