VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blatt auswählen und Zellen nacheinander drucken

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

    


Beiträge aus dem Excel-Forum zu den Themen Druck und Seite