Microsoft Excel

Herbers Excel/VBA-Archiv

Druckbereich


Betrifft: Druckbereich von: Norbert
Geschrieben am: 30.01.2018 15:43:29

Hallo Spezialisten
wie muss nachfolgendes Script geschrieben sein, wenn die Ausrichtung des Druckbereichs in der Spalte A nach dem letzten numerischen Wert sucht der > 1999 ist?
Denke das ist eine Lapalie für euch
Gruss Norbert

Sub Drucken() 'makro zum Drucken inkl. Druckbereichsanpassung
  Dim Zeile As Long, wks As Worksheet
  Set wks = ActiveSheet
  With wks
    Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row 
    Do Until IsNumeric(.Cells(Zeile, 1).Text) Or Zeile = 10
      Zeile = Zeile - 1
    Loop
    .PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(Zeile, 14)).Address(ReferenceStyle:=xlA1) _
    
    .PrintOut Preview:=True
  End With
End Sub

  

Betrifft: AW: Druckbereich von: Robert Werner
Geschrieben am: 30.01.2018 19:26:20

Hallo Norbert,

Do Until IsNumeric(.Cells(Zeile, 1).Text) And .Cells(Zeile, 1) > 1999
Gruß
Robet


  

Betrifft: AW: Druckbereich von: Norbert
Geschrieben am: 31.01.2018 06:49:46

Hallo Robert
genau so - besten Dank
Gruss Norbert


Beiträge aus dem Excel-Forum zum Thema "Druckbereich"