VBA-Codes via VBA löschen

Hallo.
Ich habe mit meinen mageren VBA-Kenntnissen ein dynamisches Formular für meinen Betrieb erstellt. In diesem Formular werden über Userforms ca. 2500 Werte abgefragt und entsprechend den Eingaben das Formular in der Druckversion geändert (nicht genutzte Zeilen werden ausgeblendet usw.).
Sobald alle Werte eingegeben und durch den Benutzer bestätigt wurden, soll das Formular an einen Email-Verteiler verschickt werden. Hierzu habe ich mir den entsprechenden Code von Ramses' Homepage kopiert. Da die Excel-Datei nun mehr als 3,5 MB hat, das Formular (das Excel-Sheet) aber maximal 500 KB, wäre es eine gute Idee, alle VBA-Codes, außer denen in DieseArbeitsmappe und dem Versendecode, zu löschen, um die Datei zu verkleinern.
Ich habe hier bewußt eine Auflistung meiner Prozeduren vermieden, da diese Liste sehr lange sein würde. Bei der Plazierung des Versendecodes bin ich flexibel und bin für alle Vorschläge offen und dankbar.
Gruß aus Köln
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian
zu 1.
natürlich must du alle Funktionen die du in der ARBEITSMAPPE hast und die dieses Sheet
betreffen mit dem Sheet verankern.d.H. im Codeteil des Tabellenblattes.sonst werden ja die gewünschten Einstellungen nicht mitgenommen.Das Blatt wird ja als eigenständige Datei ...xls abgespeichert,wobei der Name des Tabellenblattes der Name der neuen Datei ist.
Zum Beispiel:


Sub Blattspeichern()
'Macro zum Speichern eines Blattes, einer Arbeitsmappe, als Datei.xls
'wobei der Tabellenblattname der Dateiname.xls wird.
On Error Resume Next
Application.ScreenUpdating = False
pfad = InputBox("Geben Sie den Pfad ein, in dem das Blatt gespeichert werden soll!", , "C:\Dokumente und Einstellungen\herzin\Eigene Dateien\")'diesen Pfad anpassen
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is <> "\"
pfad = pfad & "\"
End Select
ActiveSheet.Copy
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Name
ActiveWorkbook.Close SaveChanges:=False
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang des Blattes wurde abgebrochen")
ActiveWorkbook.Close SaveChanges:=False
Case Else
End Select
Application.ScreenUpdating = True
End Sub

das so abgespeicherte Sheet läst sich verschieken wie jede ander Datei auch.
Gruß hermann

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Codes via VBA löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread