Ich moechte in meinem Arbeitsblatt Formeln vergleichen. Zellen wo keine Formeln vorhanden sind, soll er nicht vergleichen. Dabei habe ich aber das Problem Excel mitzuteilen, dass er die Funktion nur dann ausfuehren soll, wenn in der Zelle eine Formel vorhanden ist (ich benutze dabei das "=" Zeichen). Leider will es nicht funktionieren :(. Hier ist mein Makro, die Zeile mit den "!!!" Zeichen ist die, die nicht funktionieren will :(
Sub correct()
Dim i As Integer
Dim x As Integer
Dim k As Integer
k = 1
For i = 1 To 2177
For x = 6 To 11
!!!If List1.Cells(i, x).Value = "=" Then
If List1.Cells(i, x).FormulaArray <> List2.Cells(i, x).FormulaArray Then
List3.Cells(k, 1).Value = List1.Cells(i, x).AddressLocal
k = k + 1
End If
End If
Next
Next
End Sub
Viele Gruesse,
Alexej