Formeln mit VBA als Werte einfügen

Liebe Excel Gemeinde,
wer kann mir bei folgendem Problem helfen.
Ich habe eine Datei mit 11 Blättern. Jetzt sind verteilt über diese
Blätter Formeln enthalten die auf unser OLAP Tool ALEA zurückgreifen.
Um genau zu sein dürften es von der Art her nur 3 Formeltypen sein.
=DE.NAME
=AT.GET
=DBGET
Ich hätte gerne, das ein Makro in einer Schleife jedes Blatt
durchsucht und wenn es in einer Zelle eine der drei Formeln findet
die Formel in dieser Zelle durch den Wert ersetzt bis alle Formeln die auf ALEA zurückgreifen als Werte in der Zelle stehen.
Ziel ist es, dass ein anderer User der kein ALEA hat diese Datei
normal benutzen kann ohne das er #WERT, #NAME oder sonstige Fehler
bekommt.
Und die Kür wäre dann noch, wenn nach Ende dieses Durchlaufs ein "Save
as" aufgerufen wird damit das Original nicht versehentlich
überschrieben wird.
Beste Grüße
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
danke schon mal für Mühe. Ich denke das es funktioniert. Aber nach einer Laufzeit von ca. 8 Minuten habe ich es abgebrochen. Könnte man die Laufzeit verkürzen, indem man dies auf einen Bereich einschränkt?
Völlig ausreichend wäre der Bereich A1:BZ500


Sub Formel_Wert()
Dim wks As Worksheet
Dim Zelle As Range
Dim Bereich As Range
Dim sFile As String
Application.ScreenUpdating = False
For Each wks In Worksheets
Set Bereich = wks.UsedRange
For Each Zelle In Bereich
If Zelle.FormulaR1C1 Like "=" & "DE.NAME" & "*" Or _
Zelle.FormulaR1C1 Like "=" & "AT.GET" & "*" Or _
Zelle.FormulaR1C1 Like "=" & "DBGET" & "*" Then
Zelle.Copy
Zelle.PasteSpecial Paste:=xlValues
End If
Next
Next wks
sFile = Application.GetSaveAsFilename(InitialFileName:="Export_", fileFilter:="Excel-Dateien, *.xls")
If sFile = "Falsch" Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=sFile
Application.DisplayAlerts = True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Sub Formel_Wert() Dim wks As Worksheet Dim Zelle As Range Dim Bereich As Range Dim sFile As String Application.ScreenUpdating = False For Each wks In Worksheets Set Bereich = wks.Range("A1:BZ500") For Each Zelle In Bereich If Zelle.FormulaR1C1 Like "=" & "*" & "DE.NAME" & "*" Or _ Zelle.FormulaR1C1 Like "=" & "*" & "AT.GET" & "*" Or _ Zelle.FormulaR1C1 Like "=" & "*" & "DBGET" & "*" Then Zelle.Copy Zelle.PasteSpecial Paste:=xlValues End If Next Next wks sFile = Application.GetSaveAsFilename(InitialFileName:="Export_", fileFilter:="Excel-Dateien, *.xls") If sFile = "Falsch" Then Exit Sub Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=sFile Application.DisplayAlerts = True Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Formeln mit VBA als Werte einfügen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formeln mit VBA als Werte einfügen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread