Tabelle mit absoluten Werten kopieren
14.08.2003 16:45:26
Lars
Habe gerade versucht eine Arbeitsblatt mit mehreren Tabellen und absoluten Werten zu kopieren. Doch mein Makro gibt mir nur eine Fehlermeldung aus, wer kann mir anhand meines Makros sagen, wo der Fehler liegt ???
Sub TabellenKopierenmitAbsolutenWerten()
Dim wks As Worksheet
Dim sfile As String
Application.ScreenUpdating = False
sfile = Application.DefaultFilePath & "\neue Preislisten.xls"
For Each wks In Worksheets
With wks.UsedRange
.Value = .Value
End With
Next wks
ActiveWorkbook.SaveAs sfile
Application.ScreenUpdating = True
End Sub
Anzeige