Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bestimmte Formeln durch Werte ersetzen

bestimmte Formeln durch Werte ersetzen
03.12.2004 11:48:16
Stefan
Hallo,
ich möchte gerne bestimmte Formeln in einer Tabelle durch Werte ersetzen.
Wie kann ich via VBA Formeln durch Werte ersetzen.
Es gab im Forum ja schon einige Ansätze, aber ich muss nur bestimmte Formeln ersetzen. Nämlich alle SVERWEISE, sonstige Formeln sollen erhalten bleiben.
Kann mir da jemand helfen ?
Danke schon mal für eure Hilfe
Gruß
Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Formeln durch Werte ersetzen
03.12.2004 11:56:42
Mac4
Hi Stefan,
vielleicht so?
Sub such()
Dim zelle
For Each zelle In Selection
If zelle.HasFormula Then
If Left(zelle.FormulaLocal, 9) = "=SVERWEIS" Then
zelle.Clear
End If
End If
Next
Marc
AW: bestimmte Formeln durch Werte ersetzen
Boris
Hi Stefan,
hier ne Möglichkeit mit der Find-Methode - die ist halt sehr flott:
Option Explicit
Sub ersetzen()
Const strFunction As String = "VLOOKUP"
Dim C As Range, firstAddr As String
Dim rngSearch As Range
Set rngSearch = [a1:z100]
With rngSearch
Set C = .Find(strFunction, LookIn:=xlFormulas, lookat:=xlPart)
If Not C Is Nothing Then
firstAddr = C.Address
Do
C = C.Value
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddr
End If
End With
End Sub

Grüße Boris
Anzeige
Danke für eure HILFe
03.12.2004 13:35:38
Stefan
das Makro funktioniert super. Besten Dank !!!

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige