Zeilen ausblenden

[RPP63]

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

[snb]

Code:

Sub M_snb()
  with range("J10:J20")
    .replace "0","=1/0",1
    .specialcells(-4123,16).entirerow.delete
  end with
End sub

[RPP63]

@snb:
Ausblenden (und wieder einblenden), nicht vernichten!  :19:

Gruß Ralf

[snb]

@RPP

Kannst du das noch immer nicht selbst anpassen ?? :19: :21:
Dann wirst du nur zu langsam besser.....

[mumpel]

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.

[mumpel]

Kannst du das noch immer nicht selbst anpassen ??

Schleifen sind nicht mein Fall. ;)

[snb]

@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

[RPP63]

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

[snb]

@RPP

Doch, gibt's:

'krentenkakkerij' oder 'spijkers op laag water zoeken', oder 'miereneukerij'

[chris-ka]

Hallo René,

anbei mal als Sammlung.

  fast.xlsm (Größe: 35,31 KB / Downloads: 3)
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