Office: Zeilennummern einer Zelle mit definiertem Namen auslesen

Hallo zusammen,

ich bin ein absoluter Frischling in Sachen VBA und muss bestehenden Code zu einer Excel anpassen, der bisher sehr statisch ist. Bisher wurde mit normalem Zellbezug (z.B. F88) gearbeitet. Um die Excel erweiterbar zu machen, ohne dass sich sämtliche Bezüge verschieben, habe ich angefangen Namen für relevante Zellen zu definieren (Bsp. Zelle1). Soweit so gut. Z.T. benötige ich aber die Zeilennummern dieser benannten Zellen. Der Code muss diese also irgendwie auslesen.

Könnt ihr mir hier weiterhelfen? Habe schon ein paar Beiträge durchgeschaut, wo Leute scheinbar ähnliche Probleme hatten. Die dortigen Lösungen haben in meinem Fall aber nie funktioniert.

Beispielhafte bisherige Codestelle:
Worksheets("Übersicht").Rows("5:88").Hidden = True

Müsste dann jetzt irgendwas sein in Richtung:
Worksheets("Übersicht").Rows("5:Zelle1.row").Hidden = True


Herzlichen Dank im Voraus!

:)

 

Worksheets("Übersicht").Rows("5:" & Range(Zelle1).row).Hidden = True
mal teste ob Row oder Rows

 

Super, vielen herzlichen Dank!! Hat mit "row" geklappt.


Jetzt verbleibt nur noch ein Problem.

Worksheets("Übersicht").Range("B5:Z5").ClearContents

Die Spalten B und Z der beiden Zellen passen so. Allerdings bräuchte ich anstelle der "5" wieder einen dynamischen Bezug zur Reihe der definierten Zelle "Zelle1". Hat hier jemand eine Idee?

Viele Grüße

 

Worksheets("Übersicht").Range("B" & Variable & ":Z" & Variable).ClearContents

 

wunderbar, vielen Dank!!!

 

Für den Anfang hatte es so [Worksheets("Übersicht").Rows("5:" & Range(Zelle1).row).Hidden = True] funktioniert, für einen späteren Teil des Codes brauche ich den den 1. Reihenbezug nun auch dymanisch.

Ich hatte an

Worksheets("Übersicht").Rows(Range("Zelle1").Row & Range("Zelle2").Row).Hidden = True

gedacht, aber das funktioniert so leider nicht. Sieht irgendjemand zufällig den Fehler?

 

Du hast es anders geschrieben als der Vorschlag. Das wird schon seinen Grund haben.

 

Für den ersten Teil habe ich es genau so übernommen. An späterer Stelle muss ich die 5 aber auch noch durch einen dynamischen Reihenbezug ersetzen, wesewegen ich den Vorschlag versucht habe entsprechend anzupassen.

 

es fehlt ":" da 2 Bereiche.

 

also:

Worksheets("Übersicht").Rows(Range("Zelle1").Row : & Range("Zelle2").Row).Hidden = True

?


Das schmeckt dem Debugger leider nicht *rolleyes.gif*

 

Moin
Da fehlt was.
Code:

gruss hary

 

Code:

 

oh, vielen Dank! Jetzt passt alles :-)