Aus UF Sheets öffnen
25.01.2009 09:30:00
Heinz
Ich möchte im unteren Code bevor die MsgBox erscheint, das der Sheets "Prüfungen" geöffnet wird.
Und dann die MsgBox zum drucken erscheint.
Grund ist: Das ich mich vergewissern kann ob alles richtig in Sheets "Prüfungen" eingetragen wurde.
Könnte mir bitte dazu jemand helfen.
Danke & Gruß
woody
Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
Exit Sub
End If
Sheets("Prüfungen").Unprotect Password:="test"
Sheets("Artikeln").Unprotect Password:="test"
Sheets("Prüfungen").Range("A1") = Eingabe.TextBox1
Sheets("Prüfungen").Range("A2") = "Linie 311 - SAP " & Eingabe.TextBox1
Sheets("Prüfungen").Range("A3") = Eingabe.TextBox2
Sheets("Prüfungen").Range("F1") = Eingabe.TextBox9
Sheets("Prüfungen").Range("F2") = "Linie 312 - SAP " & Eingabe.TextBox9
Sheets("Prüfungen").Range("F3") = Eingabe.TextBox10
Sheets("Prüfungen").Range("F50") = Eingabe.ComboBox1
Dim iClick As Integer
Dim ZeiJ As Long, SpaJ As Long
Dim SpaA As Long
With Worksheets("Prüfungen")
ZeiJ = 1
SpaJ = 1
Do
Call linie(.Cells(ZeiJ, SpaJ))
If .Cells(ZeiJ, SpaJ + 5) "" Then
SpaJ = SpaJ + 5
Else
SpaJ = 1
ZeiJ = ZeiJ + 13
End If
Loop While .Cells(ZeiJ, SpaJ) ""
End With
Sheets("Prüfungen").Protect Password:="test"
Sheets("Artikeln").Protect Password:="test"
'----Hier sollte Sheets "Prüfungen" geöffnet werden
iClick = MsgBox( _
prompt:=" Sollen die Tagesprüfungen ausgedruckt werden? Bitte mit den Prüfplänen _
vergleichen.", _
Buttons:=vbYesNo)
If iClick = vbYes Then
Worksheets("Prüfungen").Visible = True
Sheets("Prüfungen").PrintOut
Worksheets("Prüfungen").Visible = xlVeryHidden
Worksheets("Prüfungen").Protect Password:="vetro"
ElseIf iClick = vbNo Then
'Unload Me
Exit Sub
End If
Application.ScreenUpdating = True
'End If
'Unload Me
End Sub
Anzeige