title image


Smiley Einzelnes Tabellenblatt kopieren und ohne Makros speichern
Hey Dieter,



ich bin zwar nicht 100% sicher, ob ich Deine Anfrage richtig verstanden habe, aber hier mal ein Lösungsvorschlag per VBA :

      

Sub BlattOhneMakrosKopieren()

    Set aktWB = ActiveWorkbook

    ActiveSheet.Copy

    Set wbNeu = ActiveWorkbook

    VBALöschen

    wbNeu.SaveAs "Kopie von " & aktWB.Name & ".xls"

    wbNeu.Close

    Set aktWB = Nothing

    Set wbNeu = Nothing

    MsgBox "Kopie des Tabellenblattes ohne Makros wurde gespeichert !"

End Sub

Sub VBAElementeLöschen()

   With ActiveWorkbook.VBProject

      For Each vbc In .vbcomponents

         Select Case vbc.Type

            Case 1, 2, 3

               .vbcomponents.Remove vbc

            Case 100

               vbc.CodeModule.DeleteLines 1, _

               vbc.CodeModule.CountOfLines

         End Select

      Next vbc

   End With

   Application.DisplayAlerts = False

   For Each wks In Excel4MacroSheets

      wks.Delete

   Next

   For Each dlg In DialogSheets

      dlg.Delete

   Next

   Application.DisplayAlerts = True

End Sub 



Dieses Makro kopiert das aktuelle Tabellenblatt in eine neue Mappe, entfernt alle Makro-/VBA-Elemente aus dieser Kopie und speichert diese Mappe unter dem Namen "Kopie von " + Aktueller Name, und schließt diese Mappe wieder.



Ich hoffe, das erfüllt Deine Anforderungen, ansonsten : einfach nochmal fragen ;-))



Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: