2 makros zu einem zusammenführen
14.08.2003 17:42:20
Lars
Sub TabellenKopieren()
Sheets(Array("010703", "020703", "030703", "040703", "050703")).Select
Sheets("020703").Activate
Sheets(Array("010703", "020703", "030703", "040703", "050703")).Copy
End Sub
------------------------------------------------------------------------------------
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