Ganze Zeile in Abhängigkeit von Formelergebnis per VBA ausblenden

[AngelJdF]

Hallo!

Ich hoffe inständig mir kann jemand helfen!!! Ich bin schon total am Verzweifeln!!  In Zelle G368 steht mein Formelergebnis, welche Zeilen momentan benötigt werden. Alle restlichen Zeilen bis Zeile 365 sollen ausgeblendet werden. Falls sich das Formelergebnis ändert, sollen zuviel ausgeblendete Zeilen wieder eingeblendet werden.

Welchen VBA Code kann ich dafür verwenden?

Hinweis: In meiner Datei unterscheidet sich die Nummerierung um -4 von der tatsächlichen Zeilennummer.


LG + Vielen Dank schomal!!!!


   

[AlterDresdner]

Hallo AngelJdF,
in den Codeteil des entsprechenden Tabellenblattes gehört:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile As Long
  zeile = Val(Range("G368")) - 4 'falls das so richtig ist 
  Cells.EntireRow.Hidden = False
  If zeile < 365 And zeile > 1 Then Rows(zeile & ":365").Hidden = True
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

Gruß der AlteDresdner

[AngelJdF]

Sie sind der Wahnsinn!!! Danke Danke Danke!!!!