Combobox_Change wird von selber ausgelöst

[Kuwer]

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

[stchwint]

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

[Kuwer]

Hallo,

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

Code:

letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row

der Fall. Bei allen anderen Zellbezügen fehlt er.

Gruß Uwe