Clever-Excel-Forum

Hallo,

zitieren kannst Du Andrés Tipp ja prima. Wenn Du ihn auch in Deiner Datei umgesetzt hättest, käme (zumindest diesbezüglich) kein Fehler mehr.
Die Codezeile bringt deshalb einen Fehler, weil bei den beiden Cellls-Angaben der jeweilige Bezug zum Sheet fehlt. Nur wenn (zufällig) das Sheet Ergebnisübersicht gerade aktiv wäre, würde er auch so funktionieren.
Richtig wäre in Deiner Schreibweise also

oder verkürzt dann einfach so:

Gruß Uwe

(06.06.2020, 15:11)Kuwer schrieb: [ -> ]Hallo,

zitieren kannst Du Andrés Tipp ja prima. Wenn Du ihn auch in Deiner Datei umgesetzt hättest, käme (zumindest diesbezüglich) kein Fehler mehr.
Die Codezeile bringt deshalb einen Fehler, weil bei den beiden Cellls-Angaben der jeweilige Bezug zum Sheet fehlt. Nur wenn (zufällig) das Sheet Ergebnisübersicht gerade aktiv wäre, würde er auch so funktionieren.
Richtig wäre in Deiner Schreibweise also

Code:

Sub AlleAusgeblendetenZeilenAnzeigen()

  Sheets("Ergebnisübersicht").Range(Sheets("Ergebnisübersicht").Cells(20, 1), Sheets("Ergebnisübersicht").Cells(letztezeile, 1)).EntireRow.Hidden = False

End Sub

oder verkürzt dann einfach so:

Code:

Sub AlleAusgeblendetenZeilenAnzeigen()

  Sheets("Ergebnisübersicht").Rows("20:" & i).Hidden = False

End Sub

Gruß Uwe

Hallo Kuwer,

dachte eigentlich dass "With Sheets("Ergebnisübersicht")" ausreichen müsste. Habe das ganze mal umgesetzt, bekomme zwar keine Fehlermeldung aber der Code blendet keine Zeilen mehr ein. Ich kann die Zeilen nach aufheben des Blattschutzes sogar nicht mal mehr manuell einblenden.

Gruß stchwint

Hallo,

(06.06.2020, 18:43)stchwint schrieb: [ -> ]dachte eigentlich dass "With Sheets("Ergebnisübersicht")" ausreichen müsste.

ja, aber nur, wenn man die Punkte vor alle Zellbezüge setzt. Das ist bei Dir nur bei
der Fall. Bei allen anderen Zellbezügen fehlt er.

Gruß Uwe