Microsoft Office Tutorials and References
In Depth Information
6.2.5 UserForms für mehr Dialog
Startmakro und Schaltfläche für die UserForm
Das Makro, das diese UserForm aktiviert, schreiben Sie in das
Modul, in dem sich auch das aufgezeichnete und modifizierte Makro
für die Einzelberichte befindet. Es besteht aus einer einzigen Anwei-
sung mit der Methode Show des Objektes UserForm1 :
Listing 6.4: Makro für den Aufruf der UserForm
Sub UF_Start()
UserForm1.Show
End Sub
Makro für einzelne Projektberichte an UserForm anpassen
Bevor Sie den ersten Test starten, müssen Sie das Makro für den Ein-
zelbericht noch geringfügig korrigieren. Löschen Sie die Anweisun-
gen für die Inputbox und die Dimensionierung der Variable PLeiter .
Diese Variable wird mit dem Makro auf der Schaltfläche der User-
Form bereits übergeben, tragen Sie sie in die Klammer der Prozedur
ein. Die InputBox-Anweisung und die Absicherung mit IF … Then
löschen Sie wieder. Hier das Makro nach der Anpassung an die User-
Form mit Kommentaren:
Listing 6.5: Makro für den Einzelprojektbericht
Sub ProjektberichtEinzeln(PLeiter)
Dim NeuesBlatt
' Projektbericht asuwählen
Sheets("Projektbericht").Select
Range("A5").Select
' Liste markieren
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
' Filter setzen
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Selection.AutoFilter Field:=2, Criteria1:=PLeiter
' Gefilterte Liste kopieren
Selection.Copy
' Neues Tabellenblatt
Sheets.Add
' Liste einfügen
ActiveSheet.Paste
Application.CutCopyMode = False
' Blatt umbenennen
On Error Resume Next
Application.DisplayAlerts = False
Sheets(PLeiter).Delete
On Error GoTo 0
Application.DisplayAlerts = True
Search JabSto ::




Custom Search