Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Löschen von AutoForm und Makro beim Speichern
29.01.2008 19:28:00
AutoForm
Hallo Leute,
ich habe ein Tabellenblatt, welches unter anderem AutoForm3 und ein Blid 1 enthält. Beim Speichern des Blattes, soll aber nur das AutoForm 3 und die in dem Tabellenblatt enthaltenen Makros gelöscht werden. So daß praktisch eine formatierte Tabelle mit Bild abgespeichert wird. Mein bisheriger Code lautet:


Private Sub Teilebestellung_drucken_Click()
Dim SavePath As String
Dim tb As Object
Dim Shp As Object
SavePath = "C:\Dokumente und Einstellungen\PC2\Eigene Dateien\Bestellungen"
    'Kopiert die aktuelle Tabelle
    ActiveSheet.Copy
    'Löscht die CommandButton
    For Each Shp In ActiveSheet.Shapes
        If Shp.Type = 12 Then Shp.Delete
    Next
    'Löscht die AutoForm
    For Each tb In ActiveSheet.Shapes
    tb.Delete
    Next
    'Speichert die Datei unter dem Tabellennamen und das aktuelle Datum mit UIhrzeit
    ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") & ".xls"
    Variable = Application.Dialogs(xlDialogPrint).Show
    'ActiveSheet.PrintOut  druckt auf Standarddrucker
'Sheets("Teilebestellung").Activate läßt Tabelle offen
ActiveWorkbook.Close 'schließt kopierte Tabelle wieder
End Sub


Es werden hierbei das Bild und die AutoForm gelöscht. Die Makros überhaupt nicht. Ist mein Wunsch realisierbar.
MfG
BuStue

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von AutoForm und Makro beim Speichern
29.01.2008 21:46:13
AutoForm
Hallo Udo,
danke für Deinen Tip, führt mich allerdings nicht ganz zu meinem Problem. Wie kann ich den Code ändern,
damit das Bild nicht gelöscht wird.
MfG
Burghard

AW: Löschen von AutoForm und Makro beim Speichern
29.01.2008 22:23:35
AutoForm
Hi,
For Each Shp In ActiveSheet.Shapes
If Shp.Type <> 13 Then Shp.Delete
Next
mfg Kurt
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige