title image


Smiley Re: Einfärben von Zellen mit bestimmten Formelbestandteilen?
Hallo Silke,

hier ein Code, mit dem das gehen sollte:





      

Sub FormelErsetzen()



    Dim gesuchteformel

    Dim zelle As Range

    

    gesuchteformel = InputBox("Welche Formel soll durch den ihren Wert ersetzt werden?")

    If gesuchteformel = "" Then Exit Sub

    For Each zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)

        If Mid(zelle.FormulaLocal, 2, Len(gesuchteformel)) = UCase(gesuchteformel) Then

           zelle.Value = zelle.Value

           zelle.Interior.ColorIndex = 3 'hier den Farbwert setzten

        End If

    Next

    

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0





Hier wierden nur die Formeln ersetzt, wo die gesuchte Formel die "Hauptformel" ist, also die direkt hinter dem Gleichheitszeichen. Wenn du alle ersetzten willst, die die gesuchte Formel enthalten, kannst du statt mit der Funktion mid mit InStr arbeiten.

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: