Gruppe
Druck
Bereich
Seite
Thema
Blatt auswählen und Zellen nacheinander drucken
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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