Zeilen einblenden bei Blatt 1-20

Forumthread: Zeilen einblenden bei Blatt 1-20
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeilen einblenden bei Blatt 1-20

Andreas

Hallo Excelprofis!
Wie kann ich per Makro die Zeilen 11:46 der Blätter 1-20 einblenden? Nach Abschluss der Einblendungen sollte eine Box mit "Arbeit fertig" erscheinen und es soll im Blatt 1 die Zelle "A11" markiert sein. Die Blätter sind geschützt und sollen es nach dem einblenden auch wieder sein.
Danke für die Hilfe!
mfg
Andreas

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zeilen einblenden bei Blatt 1-20

Matthias
AW: und das andere noch...

Matthias
AW: Danke für die Hilfe, funzt!

Andreas
AW: Danke für die Rückmeldung - o.T.

Matthias

AW: Zeilen einblenden bei Blatt 1-20

Matthias

Hallo Andreas,


Sub Einblenden()
Dim i As Integer
For i = 1 To 20
With Sheets(i)
.Unprotect
.Rows("11:46").Hidden = False
.Protect
End With
Next i
MsgBox "Fertig!"
End Sub

Gruß Matthias

AW: und das andere noch...

13.04.2004 16:36:40

Matthias

...hab ich vergessen:
am Schluss
Sheets(1).Select
Range("A11").Select
Gruß Matthias

AW: Danke für die Hilfe, funzt!

Andreas

AW: Danke für die Rückmeldung - o.T.

13.04.2004 17:00:47

Matthias