Probleme mit Makro
Michael
ich benutze den unstehenden Code um gewisse Formeln in Werte zu verwandeln. Hat unter Excel 2000 gut funktioniert. Nun verwende ich den Code mit Excel 2007 und dort passiert was komisches. Es wird auch die original Datei mit Werten abgespeichert obwohl das eigentlich nicht passieren soll. Daher auch die Sache mit dem SaveAs, damit die original Datei auf jeden Fall mit den Formeln erhalten bleibt.
Wer kann mir helfen?
Gruß
Michael
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:BT150")
For Each Zelle In Bereich
If Zelle.FormulaR1C1 Like "=" & "*" & "DE.NAME" & "*" Or _
Zelle.FormulaR1C1 Like "=" & "*" & "AT.GET" & "*" Or _
Zelle.FormulaR1C1 Like "=" & "*" & "INDEX" & "*" Or _
Zelle.FormulaR1C1 Like "=" & "*" & "DBGETC" & "*" Or _
Zelle.FormulaR1C1 Like "=" & "*" & "DBGET" & "*" Then
Zelle.Copy
Zelle.PasteSpecial Paste:=xlValues
End If
Next
Next wks
Application.DisplayAlerts = False
sFile = Application.GetSaveAsFilename(InitialFileName:="AD_SIM_", fileFilter:="Excel-Dateien, *. _
xls")
If sFile = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=sFile
Application.DisplayAlerts = True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub