Wörter in Steuerelementen ersetzen?
02.10.2006 13:00:34
Heiko
Jetzt möchte ich so ein Makro auch für Steuerelemente ( Dropdown und Kontrollkästchen) nutzen wie geht das?
Sub Formel_durchsuchen()
Dim alteFormel As String
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.HasFormula = True Then
MsgBox Zelle.Formula, , "alte Formel"
alteFormel = Zelle.Formula
Zelle.Formula = Replace(alteFormel, "Tabelle1", "Tabelle2")
MsgBox Zelle.Formula, , "neue Formel:"
End If
Next Zelle
End
Sub
Anzeige