Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nummern vorgeben und drucken

Gruppe

Bereich

Problem

Wie kann ich über einen Dialog einen fünfstelligen Von/Bis-Nummernbereich vorgeben, die jeweilige Nummer in eine Zelle eintragen und das Blatt ausdrucken lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub DruckDialog()
   Dim sTxt As String
   Dim lFrom As Long, lTo As Long, lCounter As Integer
   sTxt = InputBox("Von - bis:", , "30001-30005")
   If sTxt = "" Then Exit Sub
   If InStr(sTxt, "-") = False Then Exit Sub
   If Not IsNumeric(Left(sTxt, 5)) Then Exit Sub
   If Not IsNumeric(Right(sTxt, Len(sTxt) - InStr(sTxt, "-"))) _
      Then Exit Sub
   lFrom = Left(sTxt, 5)
   lTo = Right(sTxt, Len(sTxt) - InStr(sTxt, "-"))
   For lCounter = lFrom To lTo
      With Worksheets("Tabelle1")
         .Range("F7") = lCounter
         .PrintPreview
      End With
   Next lCounter
End Sub

    

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