Excel Makro wenn bestimmte Daten in Zelle

Computer: Software & Programmierung Office Software
1

Hallo,

ich bin auf der Suche nach einem bestimmten Makro.

Ich habe einen Druck-Button auf dem ersten Arbeitsblatt in meiner Excel-Datei erstellt. Auf der selbigen befindet sich eine Eingabemaske für Daten. Diese werden auf verschiedene Arbeitsblätter in der Datei verteilt.

Ich möchte jetzt , wenn der Wert in Zelle B5 auf dem ersten Tabellenblatt z.B. „Test“ ist, auf meinen Druck-Button klicken und das Makro soll das Tabellenblatt „Test“ ausdrucken.

Ich danke schon mal für die Hilfe

Liebe Grüße Daniel

2

Lieber Daniel,

anbei ein Makro zur grundsätzlichen Bearbeitung.
Dieses Makro mußt Du dem Button zuordnen.

Sub drucken()
On Error GoTo BEENDEN
Dim TABNAME As Variant
'Zieltabellenname aus B5 auslesen
TABNAME = Sheets(„Tabelle1“).Cells(5, 2).Value
Sheets(TABNAME).Activate
'Druckbereich wird festgelegt
ActiveSheet.PageSetup.PrintArea = „$A$1:blush:C$22“
'Druckvorschau
ActiveWindow.SelectedSheets.PrintPreview
BEENDEN:
End Sub

lg erwin

3

Hallo Erwin,

danke für deine Hilfe.

Grüße, Daniel