Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Verstecken von Zeilen bei Abfrage aus Variable

Forumthread: Verstecken von Zeilen bei Abfrage aus Variable

Verstecken von Zeilen bei Abfrage aus Variable
25.09.2024 13:02:33
Padde86
Hallo,

noch bin ich mir nicht sicher wo der Fehler in meiner Denkweise liegt, daher jetzt an die Profis.

Ich versuche eine Abfrage zwischen der Zelle XFD1 mit den Zellen F5 - F24. Wenn der Wert XFD1 z.B. größer als der Wert in F16 folgende ist, sollen die Zeile 16-24 ausgeblendet werden.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim VarEintrag As Integer

For VarEintrag = 5 To 24

If Range("F" & VarEintrag).Value = Range("XFD1").Value Then

Rows("VarEintrag").EntireRow.Hidden = True

Else

Rows("VarEintrag").EntireRow.Hidden = False

End If

Next VarEintrag

End Sub


Bin über jede Hilfe dankbar
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verstecken von Zeilen bei Abfrage aus Variable
25.09.2024 13:13:14
Onur
"Wenn der Wert XFD1 z.B. größer als der Wert in F16 folgende ist," ??? Was soll das bedeuten ?

Ausserdem: Was genau soll passieren bzw was genau passiert nicht bei deinem Code ?
AW: Verstecken von Zeilen bei Abfrage aus Variable
25.09.2024 13:22:55
Padde86
Sorry, also F5 hat Wert 1, F6 Wert 2 usw., sprich aufsteigend

in XFD1 soll z.B. eine 6 stehen, dann sollen die Zeilen F11 - F24 (Wert 7 - 20) ausgeblendet werden.
Anzeige
AW: Verstecken von Zeilen bei Abfrage aus Variable
25.09.2024 13:26:38
Onur
Nochmal: WAS GENAU läuft falsch an deinem Code ???? Was soll ANDERS laufen ?
AW: Verstecken von Zeilen bei Abfrage aus Variable
25.09.2024 13:17:29
Yal
Hallo Padde,

es wird nicht "en block" ausgeblendet, sondern jede einzelne Zeile geprüft.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim VarEintrag As Integer
Dim bAusblenden As Boolean

For VarEintrag = 5 To 24
If Range("F" & VarEintrag).Value > Range("XFD1").Value Then
bAusblenden = True
Exit For
End If
Next VarEintrag
If bAusblenden Then Range("F" & VarEintrag & ":F24").EntireRow.Hidden = True
End Sub


VG
Yal
Anzeige
AW: Verstecken von Zeilen bei Abfrage aus Variable
25.09.2024 17:54:44
daniel
Hi
Variablen in Anführungszeichen sind keine Variablen, sondern Text.

Rows(VarEintrag).EntireRow.Hidden = True



das .EntireRow kannst du hier weglassen, da du ja schon eine ganze Zeile referenziert hast.
aber es schadet auch nicht, wenn man es hinschreibt.

noch zwei Anmerkungen:
1. es ist nicht sinnvoll, die letzte Zeile oder auch die letzte Spalte mit Inhalt zu füllen.
Excel speichert nicht das ganze Tabellenblatt, sondern nur soweit wie es befüllt ist. Wenn du aber die letzte Zelle füllst, dann muss auch das ganze Blatt gespeichert werden.
dh die Datei wird unnötig groß.
Außerdem funktioniert dann der Scrollbalken nicht mehr wie gewohnt, auch daran merkt man, dass irgendwo noch daten stehen.

2. muss das wirklich beim jedem anklicken einer Zelle passieren?

Gruß Daniel
Anzeige
AW: Verstecken von Zeilen bei Abfrage aus Variable
25.09.2024 13:33:37
Padde86
Vielen Dank! Jetzt klappt es endlich :)
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige