Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen einblenden bei Blatt 1-20

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
Anzeige
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 14:36:40
Matthias
...hab ich vergessen:
am Schluss
Sheets(1).Select
Range("A11").Select
Gruß Matthias
AW: Danke für die Hilfe, funzt!
Andreas
x
AW: Danke für die Rückmeldung - o.T.
13.04.2004 15:00:47
Matthias
_
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige