Userformen lesen (Menü)
27.06.2005 09:13:06
Hans
Private Sub cmd_druck_Click()
'u = InputBox("Was wollen Sie drucken?", "Geben Sie die entsprechende Ziffer ein:", , , , , "1 = Reiseabrechnung" & "2 = Mitarbeiter suchen")
'If u = 1 Then
'Sheets(1).Select
'frm_drucken.Show
'ElseIf u = 2 Then
'frm_suchen.Show
'End If
'End Sub
Private Sub cmd_reiseab_Click()
frm_Menü.Hide
frm_reise.Show
End Sub
Private Sub cmd_speichern_Click()
Dim z As String
ActiveWorkbook.Save
z = MsgBox("Wollen Sie wirklich RMS verlassen?", vbYesNo, "Programmende")
If z = vbYes Then
ActiveWorkbook.Close
Else: Exit Sub
End If
End Sub
Private Sub cmd_Suchen_Click()
frm_Menü.Hide
frm_suchen.Show
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Image1.ControlTipText = "Ihr RMS ermöglicht einen schnellen Überblick"
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub CommandButton2_Click()
frm_Menü.Hide
frm_suchenList.Show
End Sub
Private Sub CommandButton3_Click()
End Sub
Private Sub CommandButton5_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With frm_Menü
.Height = Application.Height
.Width = Application.Width
cmd_reiseab.ControlTipText = "Hier geht es zur Eingabe!"
cmd_Suchen.ControlTipText = "Hier kann gezielt ein Mitarbeiter ausgegeben werden!"
cmd_speichern.ControlTipText = "Aktueller Datenbestand wird abgespeichert!"
End With
End Sub