Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Module und Makros Löschen

Module und Makros Löschen
07.10.2002 12:47:18
Lothar Hiecke
Hallo Leute ich habe folgendes Problem.

Meine Module werden nicht gelöscht wenn das Makro ablaüft.
Dies geschieht wenn abgespeichert wird und die Mappe noch
offen auf dem Bildschirm ist.

Es kommt eine Fehlermeldung
Die Operation kann nicht durchgeführt werden. Das Projekt ist geschützt.

Sub SpeichernAngebot()
' Speichern Angebot Makro am 04.04.02
Sheets("Briefkopf").Select
ActiveSheet.Shapes("Oval 8").Select
Selection.Delete
ActiveSheet.Shapes("Text Box 6").Select
Selection.Delete
ActiveSheet.Shapes("Text Box 7").Select
Selection.Delete
ActiveSheet.Shapes("Text Box 11").Select
Selection.Delete
ActiveSheet.Shapes("Picture 9").Select
Selection.Delete
Sheets(Array("Briefkopf", "Massen")).Select
Sheets("Briefkopf").Activate
Range("A1:H185").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A8").Select
' springt nach Angebot löscht die Textfelder und Boxen
Sheets("Angebot").Select
ActiveSheet.Shapes.Range(Array("Text Box 21", "Text Box 24", "Oval 6")).Select
Selection.Delete
' Kopiert ganze Tabelle und fügt den Inhalt ein
Range("A1:F336").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select

' Briefkopf auswählen und Ausdrucken - 2 Kopien!!
Sheets("Briefkopf").Select
Range("C12").Select
' ActiveWindow.SelectedSheets.PrintPreview
' ActiveWindow.SelectedSheets.PrintOut Copies:=2

' Massen auswählen
Sheets("Massen").Select
ActiveSheet.Shapes.Range(Array("Text Box 7", "Text Box 8", "Oval 6")).Select
Selection.Delete
Range("F1").Select
' ActiveWindow.SelectedSheets.PrintPreview
' ActiveWindow.SelectedSheets.PrintOut Copies:=2

' Materialliste schließen
Application.DisplayAlerts = False
Windows("Material.xls").Activate
ActiveWorkbook.Close SaveChanges:=False
ActiveWindow.WindowState = xlMaximized

' Angebot.xls wieder Aktivieren
Windows("Angebot.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Angebot").Select

' Jetzt wird die Posnummer neu erstellt dazu wird das
' Makro in Modul 2 PosNrZelle aufgerufen
Call NeuPosNr

' Titelzeilen sollen für den Ausdruck auf der nächsten Seite wiederholt werden!
Sheets("Angebot").Select
Range("A1").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$6"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.CenterFooter = "Seite &P"
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
End With
' ActiveWindow.SelectedSheets.PrintPreview
' ActiveWindow.SelectedSheets.PrintOut Copies:=2

Sheets("Briefkopf").Select
Range("C12").Select
Application.DisplayAlerts = False
' Jetzt Speichern unter mit Zelle C14 und H14
ChDir "C:\Eigene Dateien\Excel\Lolli2002\Angebote"
ActiveWorkbook.SaveAs FileName:=[C14] & " - " & [H14] & ".xls"
' Ist abgespeichert aber noch nicht geschlossen

'******************* Ab hier ist der Fehler****************************************
' Nun soll das Module1 und Modul2 entfernt werden
Call ModulLoeschen ' hier wird ModulLoeschen aufgerufen
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True
'**********************************************************************************
End Sub

Sub ModulLoeschen()
' SpeichernAngebot ist das Makro welches ModulLoeschen() aufruft
' In der Tabelle Angebot es sind 2 Module vorhanden

With Application.VBE.ActiveVBProject
.vbComponents.Remove .vbComponents("Modul1")
With Application.VBE.ActiveVBProject
.vbComponents.Remove .vbComponents("Modul2")
End With
End With
End Sub


mfg
Lolli

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige