Zeilen ausblenden

[mumpel]

(...) 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

[chris-ka]

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"

[snb]

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

[mumpel]

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

[lupo1]

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?

[snb]

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

[RPP63]

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

[RPP63]

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

[snb]

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