Microsoft Excel

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