Ich habe Dir meine Übungsdatei mal angehangen.
Aber: wenn es nur um so wenige Zeilen geht, dann bleibe doch bei Deiner Schleife.
Dennoch:
Per Autofilter ist es ein einfaches:
Code:
Sub FilterAuto()
With Range(Cells(1, "J"), Cells(1, "J").End(xlDown))
.AutoFilter 1, "<>0"
ActiveSheet.PrintOut
.AutoFilter
End With
End Sub
Gruß Ralf
Code:
Sub M_snb()
with range("J10:J20")
.replace "0","=1/0",1
.specialcells(-4123,16).entirerow.delete
end with
End sub
@snb:
Ausblenden (und wieder einblenden), nicht vernichten! :19:
Gruß Ralf
@RPP
Kannst du das noch immer nicht selbst anpassen ?? :19: :21:
Dann wirst du nur zu langsam besser.....
Eine Kleinigkeit fehlt noch. Wenn alle Zeilen eine 0 enthalten einen Schalter setzen (oder einen anderen Rückgabewert liefern)?
Einen Ticken schneller ist das schon.
(21.02.2017, 11:44)snb schrieb: [ -> ]Kannst du das noch immer nicht selbst anpassen ??
Schleifen sind nicht mein Fall. ;)
@mumpel
War für RPP gemeint ;)
Und es gibt hier gar keine Schleife.
Code:
Sub M_snb()
With Range("J10:J20")
.Replace "0", "=1/0", 1
.SpecialCells(-4123, 16).EntireRow.Hidden = True
' .PrintOut
.SpecialCells(-4123, 16) = 0
.EntireRow.Hidden = False
End With
End Sub
(21.02.2017, 11:52)snb schrieb: [ -> ]War für RPP gemeint ;)
Vielleicht hat Mumpel ja andere Fehlerwerte als #DIV/0! im Blatt, die er ausdrucken möchte?
:21:
(Ist von mir jetzt aber Korithenkackerei, keine Ahnung, ob es da im Niederländischen eine Entsprechung gibt)
Gruß Ralf
@RPP
Doch, gibt's:
'krentenkakkerij' oder 'spijkers op laag water zoeken', oder 'miereneukerij'
Hallo René,
anbei mal als Sammlung.
[
attachment=9732]
im Code von snb habe ich noch was hinzugefügt falls mal ein "Nuller" sein sollte
deine letzte Fragestellung war mir nicht klar.
ggf. kannst du das in die Mappe noch einbauen.
p.s in der Mappe hatte ich auch noch eine Lösung mit dem Spezialfilter, allerdings für 1:151