Gruppe
Druck
Problem
Wie kann ich den in einer Zelle genannten Druckbereich eines anderen Tabellenblattes über VBA ausdrucken?
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