641 Aufrufe
Gefragt in Tabellenkalkulation von
Moin Moin!

Ich habe folgendes Makro (bei euch gefunden) bei mir in eine Exel-Tabelle eingefügt, um in einer Warenbestellliste nur die Positionen anzeigen zu lassen, von denen mindestens 3 Einheiten bestellt werden. Sprich: Alle Zeile mit den Werten 0;1;2 sollen ausgeblendet werden. Das klappt auch soweit, es gibt nur das Problem, dass ich immer nur einen Wert angeben kann (z.B. wie unten die 1). Wie drücke ich aber aus, dass er mir alle o.g. Zahlen ausblendet?


Option Explicit

Sub Zeilen_ausblenden()
Dim Wiederholungen As Long
Application.ScreenUpdating = False
For Wiederholungen = 1 To 20
If Cells(Wiederholungen, 1).Value = "1" Then
Rows(Wiederholungen).Hidden = True
Else
Rows(Wiederholungen).Hidden = False
End If
Next
End Sub

Vielen Dank im Voraus!

2 Antworten

0 Punkte
Beantwortet von m-o Profi (22.9k Punkte)
Hallo,

ersetze die Zeile
If Cells(Wiederholungen, 1).Value = "1" Then

durch
If Cells(Wiederholungen, 1).Value < 1 Then


Gruß

M.O.
0 Punkte
Beantwortet von
Vielen, vielen Dank. Es funktioniert bestens!
...