Gruppe
Druck
Problem
Über eine InputBox soll ein Arbeitsblattname abgefragt werden. In dem ausgewählten Blatt soll ein vorgegebener Bereich auf Inhalt geprüft und - wenn nicht leer - zellenweise gedruckt werden.
StandardModule: basMain
Sub SerieDrucken()
Dim rng As Range
Dim sWks As String
sWks = InputBox("Tabellenblatt:", , "Ausgaben")
If sWks = "" Then Exit Sub
With Worksheets(sWks)
For Each rng In .Range("A1:A5").Cells
If Not IsEmpty(rng) Then
Range("A1").Value = rng.Value
ActiveSheet.PrintPreview
End If
Next rng
End With
End Sub