Zeilen ausblenden (VBA) - Wert aus Zelle

[Treibgut]

Hallo,

ich möchte gerne ganz bestimmte Zeilen ausblenden.


Sub Ausblenden()
ActiveSheet.Rows("101:2000").EntireRow.Hidden = True
End Sub

Alle Zeilen von 101 bis 2000 werden ausgeblendet. So weit, so gut. Die Zahl der letzten Zeile ist bekannt. In diesem Fall ist es die 2000. Unbekannt ist die erste Zeile. Könnte z. B. 237 oder 1477 etc. sein.

Die Zahl der ersten zu ausblendenden Zeile steht in A1. Sagen wir mal 50. Mein "Plan" ist, die Zelle A1 in den Code zu integrieren.

Sub Ausblenden()
'ActiveSheet.Rows("50:2000").EntireRow.Hidden = True
Meine Denke: ActiveSheet.Rows("A1:2000").EntireRow.Hidden = True
End Sub

Haut natürlich nicht hin. Gibe es eine Möglichkeit, die erste Zahl mit dem Wert einer Zelle zu verbinden.

Eine Schleife kommt nicht in Betracht, da es zuviel Zeit benötigt.


Für Tipps bin ich sehr dankbar.

Treibgut

[Kuwer]

Hallo,

Code:

Sub Ausblenden()
  With ActiveSheet
    .Rows(.Range("A1").Value & ":2000").Hidden = True
  End With
End Sub

Gruß Uwe

[Treibgut]

Guten Morgen, Uwe,

dieses kleine, unscheinbare Problem hat mich etliche Stunden gekostet. Ich wäre auch nicht bereit gewesen, zumindest erstmals, dieses Problem anders zu lösen. Aus Erfahrung weiß ich, dass es oft viele Lösungen gibt. Sicher, manchmal auch nur wenige oder gar keine.

Tausend Dank dafür.

Gruß Lothar