Re: UserForm
11.11.2002 17:39:02
jenny
Hi, es ist ganz einfach:
Auf dem Bildschirm erscheint ein Dialogfeld (schon beim Öffnen der Datei)
Das fordert den Benutzer der Reihe nach auf, bestimmte Daten einzugeben, die dann in den Textboxen erscheinen sollen.
Das hat auch schonmal geklappt aber hab irgendwas verändert!
Das hab ich geschrieben:
Private Sub Userform_Click()
End Sub
Private Sub Userform_Initialize()
Dim Name As String
Dim Vorname As String
Dim Beruf As String
Dim Stelle As Integer
Dim Bewerter As String
Dim SE As String
Dim Zeitraum As Integer
Name = InputBox("Namen eingeben!")
Vorname = InputBox("Vornamen eingeben!")
Beruf = InputBox("Tätigkeit bei SBB?")
Stelle = InputBox("Gebucht auf welcher Kostenstelle?")
Bewerter = InputBox("Name der bewertenden Person?")
SE = InputBox("Zeichen des Mitarbeiters?")
Zeitraum = InputBox("Über welchen Zeitraum findet die Bewertung statt?")
TextBox1 = Name
TextBox2 = Vorname
TextBox3 = Beruf
TextBox4 = Stelle
TextBox5 = Bewerter
TextBox6 = SE
TextBox7 = Zeitraum
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub TextBox7_Change()
End Sub