702 Aufrufe
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
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
von
Vielen, vielen Dank. Es funktioniert bestens!

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...