Auswahl.. Ja...Druck...Nein
05.08.2007 13:36:00
chris58
Danke für den code. Also der wählt nur die Zeilen aus, in welchem ein Betrag steht. Danke, kannst du mir noch sagen, wie ich die Tabelle dann drucken kann... also mit dem gleichen Button .... was muß ich einfügen.........
danke im voraus
chris
Option Explicit
Sub Drucken1()
'* H. Ziplies *
'* 13.10.03; 11.06.05; 02.10.05 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://Hajo-Excel.de/
' Formel ist in Spalte N
Dim LoN As Long
Dim LoLetzte As Long
' unabhängig von Excelversion für Spalte N (14)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 14)), Cells(Rows.Count, 14).End(xlUp).Row, Rows. _
Count)
For LoN = LoLetzte To 2 Step -1
If Cells(LoN, 14) Empty Then Exit For
Next LoN
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$" & LoN
End Sub