Microsoft Office Tutorials and References
In Depth Information
Kapitel 7 – Tipps und Tricks
.Controls(2).Caption = "Schließen"
End With
frmTerms.Show
End Sub
Listing 7.3: Auto-Makro Before_Close
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Controlling-Begriffe").Delete
On Error GoTo 0
End Sub
Listing 7.4: Makro startet die UserForm
Sub StartCB()
frmTerms.Show
End Sub
Listing 7.5: Makro schließt die Arbeitsmappe
Sub CBSchliessen()
ThisWorkbook.Close
End Sub
UserForm-Makros
Die eigentliche Funktionalität der UserForm steckt in den Makros im
Codeblatt der UserForm. Mit dem Start des Dialogs wird
UserForm_Initialize() aktiv. Das Ereignis setzt die Größe der User-
Form fest, blendet die Begriffsliste ab und schaltet den Bildschirm
aus, damit die Aktionen im Hintergrund nicht angezeigt werden.
Listing 7.6: Makro startet mit dem Aufruf der UserForm
Private Sub UserForm_Initialize()
With Me
.lstTerms.Visible = False
.cmdOK.Top = 150
.Height = 220
End With
Application.ScreenUpdating = False
End Sub
Listing 7.7: Makro für die Option „Deutsch-Englisch“
Private Sub optDE_Click()
Dim strOrder As String
If Me.optDE.Value = True Then
strOrder = "B2"
Else
Search JabSto ::




Custom Search