1.2k Aufrufe
Gefragt in Tabellenkalkulation von cyrax00 Einsteiger_in (17 Punkte)
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.

3 Antworten

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
du solltest die Schalter für Code benutzen am Anfang und Ende.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert. Ein Link zur Datei wäre nicht schlecht. Mal nur als Hinweis.
Mir wäre es wahrscheinlich zu aufwendig mich in den vorhandenen Code einzuarbeiten.
Userform2.show um die nächste Userform aufzurufen. Warum das sein muss sehen wir nicht. Man könnte ja vermuten die letzte ist abgeschlossen, warum nicht dann in der gleichen.

Gruß Hajo
0 Punkte
Beantwortet von cyrax00 Einsteiger_in (17 Punkte)
Würde ich gern machen nur leider musste ich das alles via handy Posten
:( ja es gibt jemanden ohne inet zuhause :)
Also den Code habe ich selbst gemacht. das mit den Show hätte ich auch
schonmal probiert welches aber furchtbar war, weil die ganzen
userforms offen waren und man nicht den zuruckbutton nutzen
konnte. werde dann Morgen sonst die Datei mal uppen. trotzdem
schonmal danke
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Bei zurück lautet der Befefehl nur Unload Me
Der zurückButton ist ja in der aktuellen UserForm.
Du brauchst meine Fragen nicht beantworten. Die hatte ich nur geschrieben, da noch Zeit,.

Gruß Hajo
...