Nur Werte kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Nur Werte kopieren
von: Giuseppe
Geschrieben am: 09.12.2003 12:34:18

Hallo Freunde, habe noch 'ne Frage
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
Bild


Betrifft: Hat sich erledigt!!
von: Giuseppe
Geschrieben am: 09.12.2003 13:20:22

.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Nur Werte kopieren"