Hallo zusammen,
vielleicht kann mir jemand weiterhelfen...
Ich habe eine ComboBox1 auf meinem Tabellenblatt "Übersicht" erstellt. Darin stehen die Werte "FS SW C2 T1", "FS SW C2 T2" ...usw. bis FS SW C2 T12.
Für jedes Team habe ich einen Reiter angelegt mit dem Namen "Team 1", "Team 2" usw. bis Team 12.
Daneben habe ich eine Schaltfläche platziert namens "Teamübersicht drucken". Diese soll nachher das Makro Teamübersichdrucken zugewiesen bekommen.
Sinn des Makros soll sein, dass bei Klick auf den Button Teamübersicht drucken der Reiter des Teams gedruckt wird das aktuell in der ComboBox angezeigt wird. Mein Makro sieht aktuell so aus (ist noch nicht für alle Teams vollständig):
Sub Teamübersichtdrucken()
'drucken Teamübersicht
If ComboBox1.Value = "FS SW C2 T1" Then
With Sheets("Team 1")
'Druckbereich festlegen:
.PageSetup.PrintArea = "$A$2:$M$32"
'Drucken:
.PrintOut
End With
End If
If ComboBox1.Value = "FS SW C2 T2" Then
With Sheets("Team 2")
'Druckbereich festlegen:
.PageSetup.PrintArea = "$A$2:$M$32"
'Drucken:
.PrintOut
End With
End If
End Sub
Ich erhalte bei ausführen des makros immer den Fehler: Laufzeitfehler 424: Objekt erforderlich.
Nachdem ich den Code Stück für Stück aufgebaut habe habe ich herausgefunden, dass das an der Zeile
If ComboBox1.Value = "FS SW C2 T2" Then
liegt. Was habe ich falsch gemacht? Leider bin ich noch VBA Anfänger und habe nicht allzuviel Ahnung was genau nicht stimmen soll.
Ich bin für jede Hilfe dankbar.
Gruß T-.-T
|