Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige