Userformen lesen (Menü2)
27.06.2005 09:13:34
Hans
Private Sub cmdDrucken_Click()
frm_reise.Hide
frm_drucken.Show
End Sub
Private Sub cmdMenü_Click()
frm_reise.Hide
frm_Menü.Show
End Sub
' Programmcode Reiseabrechnung
' Bitte kommentieren Sie die Programmzeilen
Private Sub cmdReisender_Click()
Dim frm As Object
Set frm = frm_reise
Dim i
Dim IR%
' i = Worksheets("Reiseabrechnung").UsedRange.Rows.Count
Sheets("Reiseabrechnung").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Offset.Value = txtReisender
ActiveCell.Offset(0, 1).Value = txtReiseziel
ActiveCell.Offset(0, 2).Value = txtReisebeginn
ActiveCell.Offset(0, 3).Value = txtReiseende
ActiveCell.Offset(0, 4).Value = txtreisegrund
If optEisenbahn.Value = True Then
ActiveCell.Offset(0, 5).Value = "Eisenbahn"
ElseIf optLeihwagen.Value = True Then
ActiveCell.Offset(0, 5).Value = "Leihwagen"
ElseIf optFlugzeug.Value = True Then
ActiveCell.Offset(0, 5).Value = "Flugzeug"
ElseIf optFPKW.Value = True Then
ActiveCell.Offset(0, 5).Value = "Firmen-PKW"
ElseIf optPKW.Value = True Then
ActiveCell.Offset(0, 5).Value = "Privat-PKW"
End If
End With
End Sub
Private Sub cmd_Zurück_Click()
frm_reise.Hide
frm_Menü.Hide
Sheets("Reiseabrechnung").Activate
End Sub
Private Sub CommandButton2_Click()
frm_reise.Hide
frm_suchen.Show
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
Dim iMax As Integer
With frm_reise
.Height = Application.Height
.Width = Application.Width
End With
txtReisender.ControlTipText = "Geben Sie hier den Nachnamen des Reisenden ein!"
' txtReisebeginn.ControlTipText = "Klicken Sie das Datum im Kalender an!"
Sheets("Reiseabrechnung").Activate
End Sub