folgendes Problem:
ich möchte nur die Zellen ausdrucken, deren Werte grösser als null sind, bzw. die
nicht leer sind. Die zu überprüfenden Zellen erstrecken sich von F11:F170.
für Hilfe wäre ich sehr dankbar.
viele Grüsse
folgendes Problem:
ich möchte nur die Zellen ausdrucken, deren Werte grösser als null sind, bzw. die
nicht leer sind. Die zu überprüfenden Zellen erstrecken sich von F11:F170.
für Hilfe wäre ich sehr dankbar.
viele Grüsse
Sub ausdrucken()
Dim Zelle
For Each Zelle In Worksheets("Tabelle1").Range("f11:F170")
If Zelle.Value = 0 Or Zelle.Value = "" Then
Worksheets("Tabelle1").Rows(Zelle.Row).EntireRow.Hidden = True
End If
Next Zelle
Tabelle1.PrintOut
Worksheets("Tabelle1").Range("f11:F170").EntireRow.Hidden = False
End Sub
mfG Wolfgang
Für weitere Hilfe wäre ich sehr dankbar
Nadine
Gruß
Joachim
Gruß
Joachim
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen