Makro: Formel oder addierte Zahlen

[Pawelpopolski]

Hallo,

folgende Idee:
Formeln und Bezüge zeichnen sich dadurch aus, dass immer ein Buchstabe vorkommen muss. Warum dann nicht die Zellen in einem Bereich auf Formeln prüfen und bei den Formeln wiederum prüfen, ob ein Buchstabe vorkommt. Wenn kein Buchstabe drin ist, Zellinhalt löschen.

Code:

Sub FormelnBehalten()
   
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Tabelle1")
   
    Dim rng As Range
    Set rng = ws.Range("A1").CurrentRegion
   
    Dim strZelle As String
    Dim i As Integer, j As Integer
    Dim zelle As Range
    For Each zelle In rng
        If zelle.HasFormula Then
            strZelle = zelle.Formula
            j = 0
            For i = 2 To Len(strZelle)
                If Asc(Mid(strZelle, i, 1)) > 65 And Asc(Mid(strZelle, i, 1)) < 90 Then
                    j = j + 1
                End If
            Next
            If j = 0 Then zelle.Clear
       End If
    Next zelle
   
End Sub