Modul löschen und neu importieren
01.05.2021 08:21:42
Sigi
Ich möchte das Modul1 löschen und ein neues Modul1 importieren.
Das klappt nicht.
Problem: Public Enum Seite 'Seitenaufruf vom MultiPage
Hier kommt die Fehlermeldung.
Wie kann ich dies vermeiden?
Danke!
Gruß
Sigi
Private Sub CommandButton1_Click()
With ThisWorkbook
.VBProject.VBComponents("Modul1").Name = "Modul20"
.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("Modul20")
Application.Wait (Now + TimeValue("0:00:02")) 'Warten ?
Antwort = MsgBox("Das Programm wurde aktualisiert", vbOKOnly + vbInformation)
'Importieren
.VBProject.VBComponents.Import .Path & "\Modul1.bas"
.VBProject.VBComponents(.VBProject.VBComponents.Count).Name = "Modul1"
End With
End Sub
Inhalt Modul1 (Modulgröße 89kb)
Public Enum Seite 'Seitenaufruf vom MultiPage
Startseite = 1
Artikel = 2
Einkauf = 3
Verkauf = 4
Übersicht = 5
Suchen = 6
Drucken = 7
Preis = 8
Rechnen = 9
Vorgaben = 10
Kalender = 11
End Enum