Clever-Excel-Forum

Hallo zusammen,

ich möchte mir in einer Tabelle einige Zeilen automatisch ausblenden, die über den Namens-Manager benannt sind. Folgenden Code habe ich mir dazu bereits gestrickt der funktioniert: 

If Range("1_Anzahl").Value = "0" And Range("2_Anzahl").Value = "0" Then Rows("207:224").Hidden = True
If Range("1_Anzahl").Value >= 1 Or Range("2_Anzahl").Value >= 1 Then Rows("207:224").Hidden = False

Range("1_Anzahl").Value ist der Wert in Zelle G16
Range("2_Anzahl").Value ist der Wert in Zelle G17
Der Sinn des Codes ist also dass die Zeilen 207 bis 224 eingeblendet werden wenn in den Zellen G16 oder G17 Werte eingegeben werden die größer als 0 sind.

So weit ist alles schön und gut. Da die Tabelle aber in Zukunft leben wird und Zeilen eingefügt werden, habe ich über den Namens-Manager die Zeilen 207 bis 224 als "Bereich_Antrieb" benannt. Dieser Bereich wächst dann mit, denn dazwischen Zeilen eingefügt werden und sollte doch auch über VBA angesprochen werden können... 
Leider funktioniert der folgende Code aber nicht: 
If Range("1_Anzahl").Value = "0" And Range("2_Anzahl").Value = "0" Then Rows("Bereich_Antrieb").Hidden = True
If Range("1_Anzahl").Value >= 1 Or Range("2_Anzahl").Value >= 1 Then Rows("Bereich_Antrieb").Hidden = False

Was mache ich falsch, bzw. was kann ich ändern?



Vielen Dank schon vorab für jeden Lösungsansatz... 

Viele Grüße!

Hallo Klaibi


Diese Null ist keine Zahl sondern Text

Du schreibst ja auch
Das wäre richtig
Mfg Guschti

Vielen Dank, deine Antwort hat mir bei einem Problemchen geholfen welches ich noch nichtmal gesehen hatte

Mit der ursprünglichen Problemstellung komme jedoch damit nicht wirklich weiter. Ich bekomme den Laufzeitfehler 13 (Typen unverträglich).

Kontrolliere ob dein Bereich nur aus Zeilen oder nur aus Spalten Besteht!

Bereich_Antrieb ist über den Namens-Manager wie folgt definiert:

Bezieht sich auf: =Tabelle1!$207:$223

Sollte also korrekt sein 

Hallo K...,

im Excelblatt ist der Name nicht der Zeile sondern einem Range-Objekt zugeordnet (named range).

es muss also heissen:

Range("Bereich_Antrieb").rows.Hidden = True

Wow! Genau so wollte ich das  :18: 

VIELEN DANK!  :100: