isFormulaInRange oder so !?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

die funktion scheint genau das zu liefern, was ich möchte, ABER
wenn ALLE zellen des bereichs eine formel haben, dann gibt es ein TRUE
wenn KEINE zelle des bereich eine formel hat, dann gibt es ein FALSE
sonst ist der wert NULL
soweit so gut, der bereich soll ja gerade darauf überprüft werden, ob entw. keine formel in gesamten bereich (False) oder keine formel in nur einer zelle des gesamten bereichs (Null) enthalten ist, ABER
if selection.hasformula = null then
ODER
if selection.hasformula is null then
ODER
if selection.hasformula true then
ODER
if selection.hasformula =/is null or selection.hasformula = false then
schlägt jeweils fehl, wenn der wert Null ist. DER WERT DARF NICHT False oder Null SEIN. was mach ich denn da falsch ? entw. sitz ich heut wiedermal zulang vor der kiste oder ich versteh hier was nicht.
torsten

Hallo
ohne eine schleife geht es nicht.
Option Explicit

Sub CheckFormula()
    Dim pruefRng As Range, myC As Range
    Dim pruefCount As Long, tmpCount As Long
    Dim pruefResult As Variant
    Dim Qe As Long
    'Entweder variabel
    On Error Resume Next
    Set pruefRng = Application.InputBox("Bitte markieren Sie den Bereich der geprüft werden soll", "Formelprüfung", "$A$1:$C$10", Type:=8)
    If pruefRng Is Nothing Then
        Qe = MsgBox("Prüfung kann nicht durchgeführt werden", vbCritical + vbOKOnly, "Abbruch")
        Exit Sub
    End If
    On Error GoTo 0
    '...oder fix
    'Set pruefRng = Worksheets("Tabelle1").Range("A1:C10")
    tmpCount = 0
    pruefCount = pruefRng.Cells.Count
    For Each myC In pruefRng
        If myC.HasFormula Then
            tmpCount = tmpCount + 1
        End If
    Next
    If tmpCount = pruefRng.Cells.Count Then
        pruefResult = "Alle Zellen haben Formeln" 'oder True
    ElseIf tmpCount = 0 Then
        pruefResult = "Keine der Zellen enthält eine Formel" 'oder False
    Else
        pruefResult = "Einzelne Zellen enthalten keine Formeln" 'oder 0
    End If
    MsgBox "Prüfung durchgeführt. Ergebnis: " & vbCrLf & pruefResult
End Sub

Gruss Rainer

Sub Testen() Const derBereich = "A1:B10" On Error Resume Next Debug.Print Range(derBereich).SpecialCells(xlCellTypeFormulas).Count If Err.Number > 0 Then MsgBox "keine Formeln gefunden": Exit Sub On Error GoTo 0 If Range(derBereich).SpecialCells(xlCellTypeFormulas).Count <> Range(derBereich).Cells.Count Then MsgBox "weniger Formeln als Zellen": Exit Sub MsgBox "alles Gut!" End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

isFormulaInRange oder so !?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread