Zellen ausblenden oben unten begrenzt
29.09.2021 10:00:32
Uwe
ich habe eine Frage zum Zeilen ausblenden, es gibt hier jedoch 2, 3 kleine Haken.
Es wurde eine Musterdatei erstellt. Diese ist unter
https://www.herber.de/bbs/user/148338.xlsm
zur Verfuegung gestellt.
Als Basiscode habe ich den folgenden:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 17 To 26
If Cells(i, 3).Value = "" Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
End Sub
1.) Die Werte die derzeit in Zelle 17 - 26 stehen "verschieben" sich immer und stehen nicht immer in diesen Zeilen. Es koennen auch mehr oder weniger Werte sein.
Die Bedingungen zum ausblenden sollen wie folgt sein:
Alle Zeilen ausblenden die UNTER dem Wort "Varianten" in Spalte "A" stehen und die in Spalte "C" keinen Wert ( leer ) haben.
Aber es sollen nur alle Zeilen ausgeblendet werden, bis 2 Zeilen UEBER dem Wort "Kosten Obstkorb" in Spalte "A".
2.) Noch ein Hinweis: Das Wort "Varianten" in Spalte A kommt aus dem Tabellenblatt 2 via Zellbezug. Ueber "FINDEN" laesst es sich somit nicht finden.
Aber geht das dann im Makro wie in "1.)" beschrieben ?
Vielen Dank fuer eure Unterstuetzung und einen schoenen Tag,
Uwe