Druckbereich in Abhängigkeit
15.10.2003 12:25:52
Kerstin
ich möchte gerne Folgendes prüfen: gibt es in Spalte B einen numerischen Eintrag? Wenn ja, soll der Druckbereich von B1 bis zum letzten numerischen Eintrag in Spalte B, und von dort 18 Spalten weiter nach rechts gehen.
Das ist mein Ansatz:
-------------------------------
Sub Druckbereich()
Dim rng As Range
If IsNumeric(Cells(Cells(2000, 2).End(xlUp).Row)) Then
Set rng = Range(Cells(1, 2), Cells(Cells(2000, 2).End(xlUp).Row, 18))
End If
ActiveSheet.PageSetup.PrintArea = rng.Address
ActiveSheet.PrintPreview
End Sub
--------------------------------
Leider funktioniert's so nicht. Die Prozedur ignoriert die If-Bedingung, und führt den Druckbereich auch bei Texteinträgen in Spalte B weiter.
Hat jemand eine bessere Idee?