Microsoft Office Tutorials and References
In Depth Information
6.2.5 UserForms für mehr Dialog
sem Codeblatt auf das Element (Liste links oben) und wählen Sie aus
der Liste rechts oben ein passendes Ereignis, zum Beispiel Click für den
einfachen Klick auf die Schaltfläche CommandButton1 mit der Auf-
schrift »Abbrechen«. Tragen Sie den Befehl in das Makro ein, der die
UserForm wieder schließt:
Listing 6.1: Makro der Schaltfläche Abbrechen
Private Sub CommandButton2_Click()
Unload Me
End Sub
Projektleiter per Schleife einlesen
Schleifen bieten die Möglichkeit, Abläufe zu wiederholen oder Zell-
inhalte abzurufen. Die Projektleiter im gleichnamigen Tabellenblatt
holen Sie über eine Do While-Schleife, die ab Zelle A2 bis zur ersten
Leerzeile läuft.
Das UserForm-Ereignis Initialize ist für die Übernahme der Daten
vor dem Start der Box zuständig und in unserem Praxisbeispiel wird
es benötigt, um die Projektleiter in die Liste zu setzen.
Listing 6.2: Initialize-Makro der UserForm mit Schleife über alle Projektleiter
Private Sub UserForm_Initialize()
Dim wb As Workbook, shPL As Worksheet, i As Integer
Set wb = ThisWorkbook
Set shPL = wb.Sheets("Projektleiter")
i = 2
Do While shPL.Cells(i, 1) <> ""
Me.ListBox1.AddItem shPL.Cells(i, 1)
i = i + 1
Loop
End Sub
Die zweite Schaltfläche aktiviert den Einzelbericht für den Projektlei-
ter, der vom Anwender der UserForm in der Liste markiert wurde.
Prüfen Sie dazu die Eigenschaft Listindex der Listbox ab, sie hat den
Wert -1, wenn nichts markiert ist, 0 für den ersten Eintrag, 1 für den
zweiten usw.
Listing 6.3: Makro für die Schaltfläche Einzelbericht
Private Sub CommandButton2_Click()
If Me.ListBox1.ListIndex >= 0 Then
Call ProjektberichtEinzeln(Me.ListBox1.Value)
Unload Me
End If
End Sub
Search JabSto ::




Custom Search