Microsoft Office Tutorials and References
In Depth Information
11.4.3 Das gemeinsame Modul
Kategorie(3) = "Getreideprodukte"
Kategorie(4) = "Gewürze"
Kategorie(5) = "Meeresfrüchte"
Kategorie(6) = "Milchprodukte"
Kategorie(7) = "Naturprodukte"
Kategorie(8) = "Süßwaren"
End Sub
' Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
'
ThisWorkbook.Save
' ThisWorkbook.Close
' End Sub
Private Sub cmdEnde_Click()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
Zur Erläuterung:
Die Prozedur UserForm_Initialize() wird nach dem Programmstart
aufgerufen. Innerhalb der Prozedur wird das Datenfeld mit den acht
Kategorienamen gefüllt. Auf dieses Datenfeld wird in verschiedenen
Unterdialogfeldern zugegriffen.
UserForm_
Initialize()
Die Prozedur UserForm _ QueryClose() wird in dem Moment aufgeru-
fen, in dem das Hauptdialogfeld über das Kreuz oben rechts geschlos-
sen wird. Die Arbeitsmappe wird gesichert und geschlossen. Diese
Prozedur ist allerdings deaktiviert, damit sich der angehende Entwick-
ler leichter den VBA-Code ansehen kann. Die gleiche Prozedur muss
auch bei den Unterdialogfeldern existieren, falls Sie den VBA-Code
besser vor dem unberechtigten Zugriff eines Normalbenutzers schüt-
zen möchten.
UserForm_
QueryClose()
Die Prozedur cmdEnde_Click() wird aufgerufen, wenn der Benutzer
das Programm regulär , also durch Betätigung des Buttons Ende, ver-
lässt. Die Arbeitsmappe wird gesichert und geschlossen.
Speichern,
beenden
Aufruf der Unterdialogfelder
Es folgen fünf kurze Prozeduren für den Aufruf der Unterdialogfelder:
Private Sub cmdKundenNeu_Click()
Me.Hide
Search JabSto ::




Custom Search