wie könnte eine VBA Marko aussehen, welches nur die Blätter druckt in denen eine bestimmte Zelle einen Wert ungleich 0 hat, bzw. nicht leer ist?
Vielen Dank.
Grüsse
Mexy
Sub druck_wenn_nicht_null()
For k=1 to Sheets.Count
If Range("A1")0 Then ActiveWorkbook.Sheets(k).PrintOut Copies:=1
Next
End Sub
Gruß gerwas
Option Explicit
Sub druck_wenn_nicht_null()
Dim K As Long
For K = 1 To Worksheets.Count 'bei Sheets werden Diagramme mit ausgedruckt
If Range("A1") 0 Then MsgBox "Drucke Blatt " & K
Next
End Sub
Probier's aus. Pack ein Diagramm rein und nimm wieder Sheets.
Sub AbforderungenDrucken()
Dim wks As Worksheet
For Each wks In Worksheets
If Range("G11").Value > 0 Then
wks.PrintPreview
End If
Next wks
End Sub
Allerdings druckt er dann einfach alle Seiten. Woran kann es liegen? In der entsprechenden Zeile ist zwar eine Formel hinterlegt, aber nicht überall ist auch ein Wert drinnen.
Gruß
Mexy
Sub AbforderungenDrucken()
Dim wks As Worksheet
For Each wks In Worksheets
If Range("G11").Value > 0 Then
wks.PrintPreview
End If
Next wks
End Sub
Allerdings druckt er dann einfach alle Seiten. Woran kann es liegen? In der entsprechenden Zeile ist zwar eine Formel hinterlegt, aber nicht überall ist auch ein Wert drinnen.
Gruß
Mexy
Sub AbforderungenDrucken()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Range("G11").Value > 0 Then
MsgBox "Drucken von " & wks.Name
End If
Next wks
End Sub
Gruß Matthias