Makro aufpeppen
12.04.2006 22:32:19
Michael
folgendes Makro "schießt" durch meine xl-Datei
Sub Formel_Wert()
Dim wks As Worksheet
Dim Zelle As Range
Dim Bereich As Range
Dim sFile As String
Application.ScreenUpdating = True
Sheets("Data").Select
Application.Run Range("WORKSPACE.REFRESH")
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
For Each wks In Worksheets
Set Bereich = wks.Range("A1:BN600")
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 "=" & "*" & "DBGET" & "*" Then
Zelle.Copy
Zelle.PasteSpecial Paste:=xlValues
End If
Next
Next wks
Sheets("Data").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
Application.Run Range("WORKSPACE.REFRESH")
sFile = Application.GetSaveAsFilename(InitialFileName:="AD_SIM_", 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
Ich hätte zwei Fragen:
1. Da das Makro relativ lange läuft, wäre es möglich eine Art Fortschrittsfenster anzuzeigen? Evlt. sogar mit so einer Anzeige die Richtung 100% wandert. Oder zu mindest eine Box die sagt das gerade was gemacht wird und um Geduld bittet.
2. Beim löschen des Blattes Data kommt eine Meldung, ob man das Blatt wirklich löschen möchte. Kann man diese unterdrücken, so das das Blatt Data direkt gelöscht wird?
Für die VBA Cracks bestimmt ein kleineres Problem. Für eher ein größeres.
Viele Grüße und Dank
Michael