Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userformen lesen (Menü2)

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userformen lesen (Menü2)
27.06.2005 09:27:41
Hajo_Zi
Hallo Hans,
es macht sich immer gut, wenn Du auch die Frage stellst!
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige