Clever-Excel-Forum - Zeilen ausblenden

(21.02.2017, 12:06)chris-ka schrieb: [ -> ](...) deine letzte Fragestellung war mir nicht klar (...)

Dann erkläre ich es mit Beispielcode. ;)

n = 49
For i = 153 To 202
If Range("J" & i).Value = "0" Then
Range("J" & i).EntireRow.Hidden = True
n = n - 1
End If
Next i

If n = 0 Then MsgBox "Alles nur Nullen!", 64, "Hinweis"

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hi,

aso,

int_start=10
int_Ende=20

If WorksheetFunction.CountIf(Range(Cells(int_start, "J"), Cells(int_Ende, "J")), 0) = int_Ende - int_start + 1 Then MsgBox "alls nur Nuller"

Wir könnten auch VBA verwenden ;)

Code:
Sub M_snb()

    Range("J2:J151").Name = "snb"

    c00 = Join(Filter([transpose(if(snb=0,"J"& row(snb),""))], "J"), ",")

    If c00 <> "" Then Range(c00).EntireRow.Hidden = True

'    PrintOut 0

    [snb].EntireRow.Hidden = False

End Sub

Danke für die Tipps! Mal sehen was dann zum Einsatz kommt.

mumpel: 153 To 202 sind aber n=50

RPP63: http://www.clever-excel-forum.de/thread-...l#pid69366: Wieviele Bereiche kann Union eigentlich zusammenfügen?

(21.02.2017, 12:15)mumpel schrieb: [ -> ]Dann erkläre ich es mit Beispielcode. ;)

n = 49
For i = 153 To 202
If Range("J" & i).Value = "0" Then
Range("J" & i).EntireRow.Hidden = True
n = n - 1
End If
Next i

If n = 0 Then MsgBox "Alles nur Nullen!", 64, "Hinweis"

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Code:
Sub M_snb()

   if [sum(N(J151:J202=0))=rows(J151:J202)] then msgbox "Nur Nullen"

End Sub

(22.02.2017, 10:15)lupo1 schrieb: [ -> ]mumpel: 153 To 202 sind aber n=50

RPP63: http://www.clever-excel-forum.de/thread-...l#pid69366: Wieviele Bereiche kann Union eigentlich zusammenfügen?

@Lupo:
30 :21:

Bevor Du jetzt "Na siehste!" sagst eine kleine Gegenfrage:
Wie viele Argumente braucht Union() in meinem Code maximal?

*Grinsender Gruß*
Ralf

Und noch ein Zusatz:
Ich habe dies jetzt mal mit 10.000 Datensätzen mit ca. 2.000 Nullen probiert (=ZUFALLSBEREICH(0;4), Formel gegen Werte getauscht).
Mein Makro läuft (trotz Union() :19: ), trotz Array aber indiskutabel langsam!
Der Autofilter reagiert augenblick(SIC!)lich.
(Und schon sind wir wieder bei der ersten Antwort :18: )

Gruß Ralf

Und dann wieder erneut die Frage: warum lehnst du Autofilter ab ?