ich habe ein Tabellenblatt in dem in einigen Zellen die weiteren TB-Namen vorhanden sind.
Es soll jeweils die TB gedruckt werden, deren Name in der jeweiligen Zelle steht.
Da ich nur begrenzte VBA-Kenntnisse habe, komme ich leider nicht weiter.
Hier mein bisheriges Ergebnis:
Der Name des Tabellenblattes steht in F1, der Bereich der gedruckt werden soll A6:h33.
Es soll je nach Bereichsvorgabe Hochformat oder Querformat gedruckt werden.
Wie kann ich die beiden Makros (sind aus dem Forum)zu einem Makro verbinden?
Sub BlaetterDrucken()
Application.ScreenUpdating = False
Dim wks As Worksheet
Dim Inhaltf1 As String
Inhaltf1 = ActiveSheet.Cells(6, 1).Text
Set wks = ActiveWorkbook.Worksheets(Inhaltf1)
wks.PrintOut
End Sub
Sub druckenbb_mo()
Application.ScreenUpdating = False
Range("A6:h33").Select
'ob Hoch oder Querformat automatisch
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Selection.PrintOut
Range("A1").Select
End Sub
Vielen Dank für jede Hilfe
Grüße
Gisela