Userform Abfrage Schaltfläche

Question

Hallo zusammen,

ich programmiere gerade ein Userform für eine Tabelle.

Ich möchte gerne folgende Schaltfläche gerne programmieren aber ich bin etwas verzweifelt.

Ich habe zwei Optionsfelder programmiert. Ich möchte gerne eine Schaltfläche haben, dass wenn ich das Optionsfeld 1 ausgewählt habe dass dann bei Klick auf der Schaltfläche die Tabelle 1 der Datei ausgewählt wird. Wenn das Optionsfeld 2 ausgewählt wird möchte ich gerne das hier Tabelle 2 ausgewählt wird.

Hier ist eigentlich egal ob in Druckvorschau oder die Tabelle geöffnet wird.

Wie kann ich das umsetzen. Hat jemand eine Idee?

Danke im Vorfeld.

Answer 1

Hallo,

ich gehe davon aus, dass sich beide OptionButton innerhalb eines
Gruppenrahmens befinden.

Wenn das so ist, reicht folgender Code.

Option Explicit

Private Sub OptionButton1_Click()
Worksheets("Tabelle1").Select
End Sub

Private Sub OptionButton2_Click()
Worksheets("Tabelle2").Select
End Sub

Gruß
Rainer

Answer 2

Hallo,

das könntest du z.B. so lösen:

Private Sub CommandButton1_Click()
Dim strTabelle As String

If UserForm1.OptionButton1.Value = True Then strTabelle = "Tabelle1"
If UserForm1.OptionButton2.Value = True Then strTabelle = "Tabelle2"

If strTabelle <> "" Then
Unload UserForm1
ThisWorkbook.Worksheets(strTabelle).PrintPreview 'Vorschau
Else
MsgBox "Bitte eine Tabelle auswählen!!", 48, "Bitte Tabelle wählen"
End If

End Sub

Der Code gehört in das VBA-Projekt der Schaltfläche. Die Namen der Tabellen musst du natürlich auf deine Verhältnisse anpassen. Den Namen der Userform (Userform1) ggf. auch.

Gruß

M.O.

Answer 3

Hallo,

zu langsam ;-).

Gruß

M.O.