MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 15.05.2018, 10:42   #1
mf0705
Neuer Benutzer
Neuer Benutzer
Standard VBA - 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!
mf0705 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.05.2018, 10:44   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

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

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.05.2018, 16:26   #3
mf0705
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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
mf0705 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.05.2018, 16:28   #4
Hajo_Zi
MOF Guru
MOF Guru
Standard

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

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.05.2018, 10:50   #5
mf0705
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

wunderbar, vielen Dank!!!
mf0705 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 13:17   #6
mf0705
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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?
mf0705 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 15:17   #7
Hajo_Zi
MOF Guru
MOF Guru
Standard

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

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 15:39   #8
mf0705
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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.
mf0705 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.07.2018, 15:48   #9
Hajo_Zi
MOF Guru
MOF Guru
Standard

es fehlt ":" da 2 Bereiche.

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2018, 09:36   #10
mf0705
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

also:

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

?


Das schmeckt dem Debugger leider nicht
mf0705 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2018, 10:01   #11
hary
MOF Guru
MOF Guru
Standard

Moin
Da fehlt was.
Code:

Rows(Range("Zelle1").Row & ":" & Range("Zelle2").Row).Hidden = True
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2018, 10:02   #12
Hasso
MOF Meister
MOF Meister
Standard

Code:

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

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.07.2018, 14:11   #13
mf0705
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

oh, vielen Dank! Jetzt passt alles :-)
mf0705 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:46 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.