Nur Werte kopieren
09.12.2003 12:34:18
Giuseppe
was soll in der Code dazu schreiben, damit die Kopierte Tabelle keine Formel enthält.
Ich habe mit makrorekorder probiert:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
....und bin nicht schlauer geworden!!!!
Sub TabAuswahl()
Application.Calculation = xlCalculationAutomatic
'Dim Sh.Name as String
ActiveSheet.Unprotect
Application.ScreenUpdating = False
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name = Cells(1, 1) Then
MsgBox "Das Blatt für " & Sh.Name & " ist schön vorhanden"
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Worksheets("Start").Select
Application.ScreenUpdating = True
Exit Sub
End If
Next Sh
ActiveSheet.Name = Cells(1, 1)
MsgBox "Das Blatt " & ActiveSheet.Name & " wurde gespeichert"
Worksheets("Start").Select
Application.ScreenUpdating = True
End Sub
Danke
Giuseppe