Auf Form1 auswählen, was auf Form2 gezeigt wird

Hallo zusammen,
ich bin gerade dabei mir VBA etwas näher zu bringen und möchte in dem Rahmen ein kleines Kochbuch entwickeln. Eine funktionierende Einlese-Userform existiert schon. Daten können in eine Excel-Datei eingelesen werden und derzeit habe ich es so gestaltet, dass jedes Rezept eine neue Tabelle erstellt (z.B. Vanillekuchen als Tabelle mti dem Registernamen "Vanille" und in der Tabelle die Zutaten und Anleitungen).
Jetzt möchte ich gerne auf meiner Startseite die verschiedenen Rezepte in einer Übersicht sehen und wenn man auf eines der Rezepte klickt, dann soll man zu einem Ausgabe-Formular kommen, in dem dann die detaillierteren Werte der angeklicktne TAbelle angezeigt werden. Das Ausgabe-Formular soll gerne das gleiche bleiben, so dass sich nur vereinzelnd die Werte in Textboxen verändern, wenn man ein anderes Rezept auswählt.
Die Tabellenamen konnte ich auslesen und die liegen in der ÜBersichtstabelle "Rezepte". Wie bekomme ich diese so nun auf das Front-Formular und wie kann ich diese per Link so vrknüpfen, dass alle Daten das gleiche Ausgabefenster nutzen?
Ich hoffe, ihr könnt nachvollziehen, was ich meine und vielleicht hat der eine oder andere sogar eine Idee?
Könnte man bspw. Optionsbuttons automatisch erstellen lassen? Oder gibt es Hyperlinks?
So kann man vielleicht bei der Auswahl eine Variable festlegen, aber an dieser Stelle bin ich etwas überfordert...
...
Ich hoffe, ich konnte deutlich machen, wo mein Problem liegt. Vielleicht hat ja der ene oder andere Lust sich dieser Aufgabe/Herausforderung zu stellen. Ich wäre sehr sehr dankbar. Beste Grüße,
Jonas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If frmRezepte.optVanille Then MyWKS = Worksheets(lblVanille.Caption).Name ElseIf frmRezepte.optZitrone Then MyWKS = Worksheets(lblZitrone.Caption).Name ElseIf frmRezepte.optSchokolade Then MyWKS = Worksheets(lblSchokolade.Caption).Name Else MsgBox "Bitte wähle ein Rezept aus, um dies anzuzeigen oder trage ein neues Rezept ein." _ Exit Sub End If

Private Sub UserForm_Initialize() With cboAnzahl .AddItem "10 Stk." .AddItem "20 Stk." .AddItem "30 Stk." .AddItem "40 Stk." End With If MyWKS "" Then With Worksheets(MyWKS) txtButter = .Cells(2, 3) txtMehl = .Cells(3, 3) txtZucker = .Cells(4, 3) txtFrischkaese = .Cells(5, 3) txtEier = .Cells(6, 3) txtBackpulver = .Cells(7, 3) txtPuderzucker = .Cells(8, 3) txtZubereitung = .Cells(16, 4) txtUeberzug = .Cells(10, 3) txtGeschmack1 = .Cells(11, 1) txtGeschmack2 = .Cells(12, 1) txtMengeGeschmack1 = .Cells(11, 3) & " " & .Cells(11, 2) txtMengeGeschmack2 = .Cells(12, 3) & " " & .Cells(12, 2) End With frmAusgabe.Caption = frmAusgabe.Caption & " ( " & MyWKS & " )" End If End Sub

Private Sub cmdZutaten_Click() ' Damit der Nutzer nach der Eingabe der Parameter zur Berechnung ' des Ergebnisses einfach auf die Enter-Taste drücken kann, ' wird der "Berechnen"-Button zum Standard-Button gemacht. If cboAnzahl.Value = 10 Then txtButter = CDbl(txtButter) * cboAnzahl txtBackpulver = CDbl(txtBackpulver) * cboAnzahl ElseIf cboAnzahl.Value = 20 Then txtButter = CDbl(txtButter) * cboAnzahl txtBackpulver = CDbl(txtBackpulver) * cboAnzahl ElseIf cboAnzahl.Value = 30 Then txtButter = CDbl(txtButter) * cboAnzahl txtBackpulver = CDbl(txtBackpulver) * cboAnzahl ElseIf cboAnzahl.Value = 40 Then txtButter = CDbl(txtButter) * cboAnzahl txtBackpulver = CDbl(txtBackpulver) * cboAnzahl Else MsgBox "Wie viele Cakepops dürfen es denn sein?" Exit Sub End If cboAnzahl.Enabled = False End Sub

If frmAusgabe.cboAnzahl.Value = "10 Stk." Then MsgBox "Das Rezept ist auf 10 Cakepops ausgelegt." ElseIf frmAusgabe.cboAnzahl.Value = "20 Stk." Then txtButter.Value = txtButter.Value * 2 txtButterTeig.Value = txtButterTeig.Value * 2 txtMehl.Value = txtMehl.Value * 2 txtZucker.Value = txtZucker.Value * 2 txtFrischkaese.Value = txtFrischkaese.Value * 2 txtEier.Value = txtEier.Value * 2 txtBackpulver.Value = txtBackpulver.Value * 2 txtPuderzucker.Value = txtPuderzucker.Value * 2 txtUeberzug.Value = txtUeberzug.Value * 2 txtMengeGeschmack1 = txtMengeGeschmack1.Value * 2 txtMengeGeschmack2 = txtMengeGeschmack2.Value * 2 ElseIf frmAusgabe.cboAnzahl.Value = "30 Stk." Then txtButter.Value = txtButter.Value * 3 txtButterTeig.Value = txtButterTeig.Value * 3 txtMehl.Value = txtMehl.Value * 3 txtZucker.Value = txtZucker.Value * 3 txtFrischkaese.Value = txtFrischkaese.Value * 3 txtEier.Value = txtEier.Value * 3 txtBackpulver.Value = txtBackpulver.Value * 3 txtPuderzucker.Value = txtPuderzucker.Value * 3 txtUeberzug.Value = txtUeberzug.Value * 3 txtMengeGeschmack1 = txtMengeGeschmack1.Value * 3 txtMengeGeschmack2 = txtMengeGeschmack2.Value * 3 ElseIf frmAusgbe.cboAnzahl.Value = "40 Stk." Then txtButter.Value = txtButter.Value * 4 txtButterTeig.Value = txtButterTeig.Value * 4 txtMehl.Value = txtMehl.Value * 4 txtZucker.Value = txtZucker.Value * 4 txtFrischkaese.Value = txtFrischkaese.Value * 4 txtEier.Value = txtEier.Value * 4 txtBackpulver.Value = txtBackpulver.Value * 4 txtPuderzucker.Value = txtPuderzucker.Value * 4 txtUeberzug.Value = txtUeberzug.Value * 4 txtMengeGeschmack1 = txtMengeGeschmack1.Value * 4 txtMengeGeschmack2 = txtMengeGeschmack2.Value * 4 Else MsgBox "Wie viele Cakepops dürfen es denn sein?" End If

Hallo

Private Sub cmdZurueck_Click()
frmRezepte.ComboBox1.Text = ""
Me.Hide
Unload Me
End Sub

Und das sollte auch mit rein, wenn übers Kreuz geschlossen wird

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
frmRezepte.ComboBox1.Text = ""
End Sub

Du kannst nicht Text mit einer Zahl multiplizieren
Du musst den Inhalt der Textbox erst in eine Zahl umwandeln

If frmAusgabe.cboAnzahl.Value = "10 Stk." Then
MsgBox "Das Rezept ist auf 10 Cakepops ausgelegt."
ElseIf frmAusgabe.cboAnzahl.Value = "20 Stk." Then
txtButter.Value = CDbl(txtButter.Value) * 2
txtButterTeig.Value = CDbl(txtButterTeig.Value) * 2
txtMehl.Value = CDbl(txtMehl.Value) * 2
txtZucker.Value = CDbl(txtZucker.Value) * 2
txtFrischkaese.Value = CDbl(txtFrischkaese.Value) * 2
txtEier.Value = CDbl(txtEier.Value) * 2
txtBackpulver.Value = CDbl(txtBackpulver.Value) * 2
txtPuderzucker.Value = CDbl(txtPuderzucker.Value) * 2
txtUeberzug.Value = CDbl(txtUeberzug.Value) * 2
txtMengeGeschmack1 = CDbl(txtMengeGeschmack1.Value) * 2
txtMengeGeschmack2 = CDbl(txtMengeGeschmack2.Value) * 2
cboAnzahl.Enabled = False
cmdZutaten.Enabled = False
'    ElseIf frmAusgabe.cboAnzahl.Value = "30 Stk." Then
'          txtButter.Value = txtButter.Value * 3
'      txtButterTeig.Value = txtButterTeig.Value * 3
'            txtMehl.Value = txtMehl.Value * 3
'          txtZucker.Value = txtZucker.Value * 3
'     txtFrischkaese.Value = txtFrischkaese.Value * 3
'            txtEier.Value = txtEier.Value * 3
'      txtBackpulver.Value = txtBackpulver.Value * 3
'     txtPuderzucker.Value = txtPuderzucker.Value * 3
'        txtUeberzug.Value = txtUeberzug.Value * 3
'       txtMengeGeschmack1 = txtMengeGeschmack1.Value * 3
'       txtMengeGeschmack2 = txtMengeGeschmack2.Value * 3
'    ElseIf frmAusgbe.cboAnzahl.Value = "40 Stk." Then
'          txtButter.Value = txtButter.Value * 4
'      txtButterTeig.Value = txtButterTeig.Value * 4
'            txtMehl.Value = txtMehl.Value * 4
'          txtZucker.Value = txtZucker.Value * 4
'     txtFrischkaese.Value = txtFrischkaese.Value * 4
'            txtEier.Value = txtEier.Value * 4
'      txtBackpulver.Value = txtBackpulver.Value * 4
'     txtPuderzucker.Value = txtPuderzucker.Value * 4
'        txtUeberzug.Value = txtUeberzug.Value * 4
'       txtMengeGeschmack1 = txtMengeGeschmack1.Value * 4
'       txtMengeGeschmack2 = txtMengeGeschmack2.Value * 4
Else
MsgBox "Wie viele Cakepops dürfen es denn sein?"
End If
End Sub

Für 30 Stk. und 40 Stk. musst Du das gleiche tun
Gruß Matthias

Private Sub cmdZutaten_Click() ' Damit der Nutzer nach der Eingabe der Parameter zur Berechnung ' des Ergebnisses einfach auf die Enter-Taste drücken kann, ' wird der "Berechnen"-Button zum Standard-Button gemacht. If frmAusgabe.cboAnzahl.ListIndex = -1 Then Exit Sub If frmAusgabe.cboAnzahl.ListIndex = 0 Then MsgBox "Das Rezept ist auf 10 Cakepops ausgelegt." ElseIf frmAusgabe.cboAnzahl.ListIndex > 0 Then txtButter.Value = CDbl(txtButter.Value) * (cboAnzahl.ListIndex + 1) txtButterTeig.Value = CDbl(txtButterTeig.Value) * (cboAnzahl.ListIndex + 1) txtMehl.Value = CDbl(txtMehl.Value) * (cboAnzahl.ListIndex + 1) txtZucker.Value = CDbl(txtZucker.Value) * (cboAnzahl.ListIndex + 1) txtFrischkaese.Value = CDbl(txtFrischkaese.Value) * (cboAnzahl.ListIndex + 1) txtEier.Value = CDbl(txtEier.Value) * (cboAnzahl.ListIndex + 1) txtBackpulver.Value = CDbl(txtBackpulver.Value) * (cboAnzahl.ListIndex + 1) txtPuderzucker.Value = CDbl(txtPuderzucker.Value) * (cboAnzahl.ListIndex + 1) txtUeberzug.Value = CDbl(txtUeberzug.Value) * (cboAnzahl.ListIndex + 1) txtMengeGeschmack1 = CDbl(txtMengeGeschmack1.Value) * (cboAnzahl.ListIndex + 1) txtMengeGeschmack2 = CDbl(txtMengeGeschmack2.Value) * (cboAnzahl.ListIndex + 1) cboAnzahl.Enabled = False cmdZutaten.Enabled = False Else MsgBox "Wie viele Cakepops dürfen es denn sein?" End If End Sub

Beliebteste Forumthreads (12 Monate)

Auf Form1 auswählen, was auf Form2 gezeigt wird

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auf Form1 auswählen, was auf Form2 gezeigt wird

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread