Gruppe
Druck
Bereich
Bereich
Thema
Den in einer Zelle genannten Bereich eines Blattes drucken
Problem
Wie kann ich den in einer Zelle genannten Druckbereich eines anderen Tabellenblattes über VBA ausdrucken?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Drucken()
Dim sWks As String, sRng As String, sAdr As String
sAdr = Range("A1").Value
sWks = Left(sAdr, InStr(sAdr, "!") - 1)
sRng = Right(sAdr, Len(sAdr) - InStr(sAdr, "!"))
Worksheets(sWks).Range(sRng).PrintPreview
End Sub