Office: Laufzeitfehler 1004

Moin,

ich schreibe grade eine Funktion die ein gewissen Bereich durchforstet und je nachdem ob in den Bereich ein X in den Zeilen gesetzt ist, bestimmte Zeilen auf ein anderen Worksheet ausblendet.. Mein Code sieht aktuell so aus :

Code:

Kriege aktuell immer den Fehler : Laufzeitfehler 1004 - Anwendungs oder Objektdefinierter Fehler.. Kann mir wer mal helfen? Iwie seh ich den Fehler nicht *frown.gif*

Lg Krytex

:)

 

der interne Name ist tatsächlich "FreigabenSheet" nicht das was auf dem Register steht?

vor cells fehlt FreigabenSheet.
FreigabenSheet.Range(Cells(HideZeileVon, i), Cells(HideZeileBis, i)).Hidden

 

Hi,

bezieht sich alles auf das FreigabenSheet? Weshalb verwendest du dann nicht eine With-Anweisung - dann gibt es weniger Probleme mit Bezügen. Beachte, dass dann vor jedem Zellbezug ein "." (Punkt) stehen muss!

 

Ja, das Blatt heißt wirklich FreigabenSheets , in meiner Übersicht im VBA Editor steht "FreigabenSheet(Freigaben)"..

FreigabenSheet.Range(Cells(HideZeileVon, i), Cells(HideZeileBis, i)).Hidden

soll in :

FreigabenSheet.Range(FreigabenSheet.Cells(HideZeileVon, i), FreigabenSheet.Cells(HideZeileBis, i)).Hidden

geändert werden??

 

Mit With anweisungen habe ich noch nicht gearbeitet, mit If jedoch schon, darum hab ich If genutzt.. Wie müsste es denn mit with aussehen Beverly?

 

Hallo,

ja genau *Smilie

Noch besser ist es, du arbeitest mit einer With-Anweisung.

VG

 

Okay, der Fehler scheint schonmal ausgemerzt zu sein, jedoch erhalte ich nun ein neuen Fehler, nämlich "Laufzeitfehler '1004': Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden."

Das liegt wohl daran das in dem Sheet FreigabenSheet auch Optionsfelder sind, diese habe ich bisher immer seperat ausgeblendet gehabt, steht auch noch im Code drinne, aber halt auskommentiert da es nicht dynamisch ist und somit nicht mehr passt..

Code:

Das Group 74 müsste nun dynamisch gestaltet werden, da ja auch je nachdem welche Zeilen ausgeblendet werden, auch andere Gruppen ausgeblendet werden müssen, hat da jemand eine Idee?

 

Code:

 

Ich könnte ja eigentlich einfach noch eine Zeile in das Blatt einfügen wo die Gruppenbezeichnungen stehen die innerhalb der auszublenden Zeilen sind und diese dann per Variable auch wieder mit 'FreigabenSheet.Shapes("Group 74").Visible = False ausblenden, wobei dann das "group 74" durch die Variable ersetzt wird, richtig?

 

Hallo,

ich kann dir ohne Beispielmappe leider nicht mehr folgen *frown.gif*

Aber ich habe mal deinen Code etwas angepasst, muss jedoch getestet werden:
Code:

VG

 

Danke Hajo !! Ich arbeite jetzt mit dein Programm Code weiter, also mit der With Variante, mir wurde ja schon von mehreren geraten dies so zu machen, kann mir jemand nochmal fix erklären warum das besser ist?

Ich meine die With Anweisung ist besser da man hier bei ner Änderung der Tabellennamen nur einmal was ändern muss und nicht x-mal, richtig?

 

Eine With-Anweisung hat nichts mit einer If-Else-Verzweigung zu tun sondern ermöglicht es, speziell und direkt auf das angesprochene Objekt zuzugreifen:

Code:

 

Anbei mal eine Mustermappe *Smilie

 

was ist offen?

 

Okay, der Fehler scheint schonmal ausgemerzt zu sein, jedoch erhalte ich nun ein neuen Fehler, nämlich "Laufzeitfehler '1004': Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden."

Das liegt wohl daran das in dem Sheet FreigabenSheet auch Optionsfelder sind, diese habe ich bisher immer seperat ausgeblendet gehabt, steht auch noch im Code drinne, aber halt auskommentiert da es nicht dynamisch ist und somit nicht mehr passt..

Code:

'FreigabenSheet.Shapes("Group 74").Visible = False

Das Group 74 müsste nun dynamisch gestaltet werden, da ja auch je nachdem welche Zeilen ausgeblendet werden, auch andere Gruppen ausgeblendet werden müssen, hat da jemand eine Idee?