Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige