Excel VBA Anfänger

[HolgerC]

Hallo liebes Forum,

ich bin neu hier und beschäftige mich seit einiger Zeit mit VBA.

Nun habe ich ein Problem und hoffe, Ihr könnt mir helfen. Leider stehe ich auf dem Schlauch. Ich habe folgendes gemacht:

Private Sub CommandButtonDruckvorschau_Click()

Dim Variable As String
If ComboBoxBlatt.Value = "Zeitraum komplett" Then
Variable "Zeitraum komplett"
ElseIf ComboBoxBlatt.Value = "Teilzeitraum" Then
Variable "Teilzeitraum"
ElseIf ComboBoxBlatt.Value = "Verbrauch über Vermieter" Then
Variable "Verbrauch über Vermieter"

End If

If CheckBox1.Value = True Then
Sheets(Variable).PageSetup.Zoom = False
Sheets(Variable).PageSetup.FitToPagesWide = 1
Sheets(Variable).PageSetup.FitToPagesTall = 1
Else
Sheets(Variable).PageSetup.Zoom = False
Sheets(Variable).PageSetup.FitToPagesWide = False
Sheets(Variable).PageSetup.FitToPagesTall = False
End If


Me.Hide
Sheets(Tabelle).PrintPreview

End Sub

Wenn in der Combobox "Zeitraum komplett" ausgewählt wird, dann soll in der Druckvorschau das Tabellenblatt "Zeitraum komplett" erscheinen. Wenn "Teilzeitraum" dann Teilzeitraum und wenn "Verbrauch über Vermieter" dann Verbrauch über Vermieter". Aber leider zeigt er die Fehlermeldung "Fehler beim kompilieren" an.

Vielleicht kann mir jemand helfen.

Vielen Dank.

Viele Grüße
Holger

[oee]

Es muss immer so zugewiesen werden:
Variable = "Zeitraum komplett"
Aber musst du unbedingt einer Variablen den Namen "Variable" geben? Heisst deine Katze auch "Katze" ?

[Crazy Tom]

moin,

die Abfrage welcher Blattname in der Combobox steht kannst du dir sparen
es sei denn da stehen mehr drin als du in der Druckvorschau anzeigen lassen willst

und was ist das?

Sheets(Tabelle).PrintPreview

wo kommt die Variable "Tabelle" her?

das wäre eine Möglichkeit (ungetestet)

Code:

Private Sub CommandButtonDruckvorschau_Click()
    Dim BlattName As String
    BlattName = ComboBoxBlatt.Text
   
    If CheckBox1.Value = True Then
    Sheets(BlattName).PageSetup.Zoom = False
    Sheets(BlattName).PageSetup.FitToPagesWide = 1
    Sheets(BlattName).PageSetup.FitToPagesTall = 1
    Else
    Sheets(BlattName).PageSetup.Zoom = False
    Sheets(BlattName).PageSetup.FitToPagesWide = False
    Sheets(BlattName).PageSetup.FitToPagesTall = False
    End If
   
    Me.Hide
    Sheets(BlattName).PrintPreview
End Sub

mfg Tom