VBA-Beispiel 046
mail schreiben
mail schreiben

prüfen ob Zelle eine Formel enthält

Dieses Makro prüft ob die Zelle links von der aktiven Zelle eine Formel enthält. Wenn ja, wird die Formel mit einem führenden Leerzeichen, in die aktive Zelle eingetragen.
Sub Zelle_auf_Formel_pruefen()
Dim Zelle As Object

' prüfen ob aktive Zelle in Spalte A
If ActiveCell.Column = 1 Then
  MsgBox "links von Spalte A gibt es keine Zellen"
Else

   ' Zelle die auf Formel geprüft werden soll
    Set Zelle = ActiveCell.Offset(0, -1)

   ' prüfen ob links eine Formel steht
    If Zelle.HasFormula = True Then
       ' dann Formel aus linker Zelle in aktive Zelle eintragen
        ActiveCell = " " & ActiveCell.Offset(0, -1).Formula
    Else
        MsgBox "Zelle " & Zelle.Address & " enthält keine Formel"
    End If

End If

Set Zelle = Nothing
End Sub
Dieses Makro färbt alle Zellen die eine Formel haben gün.
Sub alle_Formeln_finden()  
'alle Zellen mit einer Formel gün färben
Dim Zelle As Range  

For Each Zelle In UsedRange    
    If Zelle.HasFormula = True Then    
        Zelle.Interior.ColorIndex = 35
    End If  
Next Zelle

End Sub  

Download:   vba046.zip