Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Blatt auswählen und Zellen nacheinander drucken
Gruppe
Seite
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