Hallo hab da mal Ne frage. erstmal weiß ich leider nicht warum er den
Quellcode so komisch einließt, aber ich hoffe ihr kommt ein wenig damit
zurecht.
zur frage ich wollte mit einem weiterbutton zur nächsten userform
wechseln. leider weiß ich nur Show und sonst die form die ich Grad
benutze... die aber sehr aufwändig ist. jetzt wollte ich fragen, wie ich
das besser lösen kann. Wie ihr seht werden diverse eingaben gemacht,
die dann in die exeltabelle gespeichert werden. das klappt auch soweit.
nur ich wollte eine folge von 6-7 userforms machen und das wird dann
mit visible zu unübersichtlich. gut wäre ja ein kleiner beispielcode, da
ich nicht viel Ahnung habe, wie man sieht :)
[code] Private Sub CommandButton4_Click()
If OptionButton2.Value = True Then
Tabelle1.Range("B8:B13") = "X"
Else
OptionButton1.Value = True
Tabelle1.Range("B8:B13") = " "
End If
End Sub
'Seite 1 Private Sub UserForm_Activate()
Label8.Visible = False
Label9.Visible = False
CommandButton3.Visible = False
CommandButton4.Visible = False
OptionButton1.Visible = False
OptionButton2.Visible = False
OptionButton3.Visible = False
End Sub
'Seite 2 Private Sub CommandButton1_Click()
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = True
CommandButton3.Visible = True
CommandButton4.Visible = True
OptionButton1.Visible = True
OptionButton2.Visible = True
OptionButton3.Visible = True
End Sub
'Zurück seite 1
Private Sub CommandButton3_Click()
Label8.Visible = False
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
OptionButton1.Visible = False
OptionButton2.Visible = False
OptionButton3.Visible = False
CommandButton4.Visible = False
CommandButton3.Visible = False
End Sub
Private Sub TextBox1_Change() Cells(1, 2) = TextBox1.Value End Sub
Private Sub TextBox2_Change() Cells(2, 2) = TextBox2.Value End Sub
Private Sub TextBox3_Change() Cells(3, 2) = TextBox3.Value End Sub
Private Sub TextBox4_Change() Cells(3, 5) = TextBox4.Value End Sub
Private Sub TextBox5_Change() Cells(4, 2) = TextBox5.Value End Sub
Private Sub TextBox6_Change() Cells(5, 2) = TextBox6.Value End Sub
Manche label habe ich gesetzt damit die Buttons nicht alle zusehen
Sind. schonmal vorab ein großes danke. und bitte nicht ganz so viel
Fachsprache :) hab gehört es geht mit Modul aber da weiß ich nix, wie
man mehrere Seiten durchblicken kann. das soll dann so in der Art wie
eine Installation sein mit dem durchblicken... halt nur mit Eingabe von
Daten :)ssind.