VBA IF THEN / ELSEIF

Guten Morgen Claus,
<br />vielen Dank für die Rückmeldung.
<br />Ich habe den Code so angewendet. Ich bekomme auch keine Fehlermeldung.
<br />Die Monate sind auswählbar. DieMaske geht auf.
<br />Allerdings passiert nichts weiteres , wenn ich den Button "Druckvorschau" anklicke.
<br />Also keine Vorschau.
<br />Das Einzige was passiert ist, daß eine zusätzliche Sub erstellt wird. (s.u.)
<br />Private Sub CommandButton1_Click()
<br />Sheets("Einnahmen_" & UserFormDrucken.ComboBoxMonat.Value & "_2022").PrintPreview
<br />End Sub
<br />
<br />Private Sub CommandButton2_Click()
<br />Sheets("Einnahmen_" & UserFormDrucken.ComboBoxMonat.Value & "_2022").PrintOut
<br />End Sub
<br />
<br />Private Sub CB_Druckvorschau_Click()
<br />End Sub
<br />Private Sub UserForm_Initialize()
<br />Dim i As Integer
<br />
<br />For i = 1 To 12
<br /> Me.ComboBoxMonat.AddItem MonthName(i)
<br />Next
<br />End Sub
<br />Ich habe generell noch 3 Fragen:
<br />1. wie wird denn die Userform mit dem Dokument verankert, dass man die Userform immer sieht oder aufrufen kann? Wird das über einen Button gemacht?
<br />2. kann man die Textgröße in den Boxen verändern?
<br />3. In meinem Beispiel, wie werden denn jetzt die Jahreszahlen der Mappen in der Textbox mit dargestellt
<br /> z.B. Mai_2022
<br />

Hallo Andreas,
<br />du benötigst IF, ELSEIF usw. gar nicht. Der Blattname ergibt sich aus dem Wert der Combobox.
<br />Probiere es mal so:
<br />

Private Sub CommandButton1_Click()

Sheets("Einnahmen_" & UserForm1.ComboBox1.Value & "_2022").PrintPreview

End Sub

Private Sub CommandButton2_Click()

Sheets("Einnahmen_" & UserForm1.ComboBox1.Value & "_2022").PrintOut

End Sub

Private Sub UserForm_Initialize()

Dim i As Integer

For i = 1 To 12

Me.ComboBox1.AddItem MonthName(i)

Next

End Sub

Claus
<br />

Hallo Claus,
<br />ich habe weiterhin einen Fehler, den ich nicht finde.
<br />Die Auswahl der Mappen Mai_2022 und Juni_2022 funktionieren, wenn ich die Druckvorschau öffne.
<br />Alle Anderen zeigen den u.a. Fehler an.
<br />Vielleicht magst Du bei Zeit und Lust nochmal reinschauen.
<br />2022.05.07_16.30_Userform.xlsm
<br />Viele Grüße
<br />Andreas
<br />


<br />


<br />

Hallo Claus,
<br />da hätte ich wohl noch Tage gesucht.
<br />Dankeschön und ein schönes Wochenende.
<br />VG
<br />Andreas
<br />

Hallo Andreas,
<br />wenn du die UserForm modeless aufrufst, kannst du sowohl im Blatt als auch mit der UserForm arbeiten. Bei mir funktioniert "Seitenansicht schließen"-Button.
<br />Du kannst aber auch hinter dem Aufruf der Seitenansicht die UserForm schließen.
<br />Claus
<br />