Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Abfrage nach Formel in Bereich

Abfrage nach Formel in Bereich
Hansi
Hallo,
wie kann ich feststellen, ob z.B. im Bereich
von A10 bis A1000 eine bestimmte Formel, in dem
entsprechenden Fall
=WENN((AC10+AD10)0; "B"; "")
in allen Zeilen enthalten ist?
Die Sache benötige ich für spätere
Plausibilitäts-Kontrollen.
Vielen Dank im Voraus!
mfG
Hansi
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Abfrage nach Formel in Bereich
Stephan
Hallo Hansi,
nachfolgend eine Funktion, die Dein Problem lösen sollte:

Sub FormelPrüfen()
Dim zelle As Range
Dim idx As Integer
Dim AllFormula As Boolean
Dim strFormula As String
AllFormula = True
idx = 10
For Each zelle In ActiveSheet.Range("A10:A1000")
strFormula = "=IF((AC" & idx & "+AD" & idx & ")<>0, ""B"", """")"
If zelle.Formula <> strFormula Then
AllFormula = False
Exit For
End If
idx = idx + 1
Next zelle
If Not AllFormula Then
MsgBox "Fehlende Formel in Zeile" & idx
ActiveSheet.Cells(idx, 1).Activate
End If
End Sub

Gruß,
Stephan
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige