Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblatt ohne Code speichern

Tabellenblatt ohne Code speichern
02.05.2007 13:52:11
Holger
Hallo
Ich möchte ein Tabellenblatt über ein Makro ohne Code speichen.
Habe mit dem Speichen auch keine Schwierigkeiten nur möchte ich dies ohne den folgenden Code.

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub


Kann mir jemand dabei helfen ?
Gruß
Holger

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt ohne Code speichern
02.05.2007 15:45:16
Rudi
Hallo,
etwa so:

Sub BlattOhneCodeKopieren()
Worksheets("Tabelle1").Copy
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\test.xls"
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Tabellenblatt ohne Code speichern
03.05.2007 08:08:39
Holger
Hallo
Danke für den Code, aber es kommt bei der Ausführung des Codes zur Fehlermeldung "Objekt erforderlich"
(Userform1 kann nicht gefunden werden).
Der Code:

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub


steht in der Tabelle9.
Hat vielleicht jemand eine Idee ?
Gruß
Holger

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige