Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1144to1148
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
Inhaltsverzeichnis

Ausgeblendete Tabs per Makro einblenden

Ausgeblendete Tabs per Makro einblenden
Ramon
Hallo zusammen,
ich hab mal wieder ein keines Problem:
Ich möchte gerne mehrere Tabellenblätter per eMail aus und einblenden.
Das Ausbleden funktioniert prima:
Sheets(Array("ABC", "DEF", "GHI", "JKL", "MNO", "PQR", "STU")). _
Select
ActiveWindow.SelectedSheets.Visible = False
Das Einblenden habe ich wie folgt versucht, geht aber nicht:
Sheets(Array("ABC", "DEF", "GHI", "JKL", "MNO", "PQR", "STU")). _
Visible= True
Mit der Select-Anweisung kann ich ja bei ausgeblendeten Blättern nicht
arbeiten. Habt Ihr einen Tipp für mich?
Vielen Dank,
Gruß,
Ramon

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ausgeblendete Tabs per Makro einblenden
18.03.2010 14:48:47
Mike
Hey Ramon,
versuchs so:
Sheets(Array("ABC", "DEF", "GHI", "JKL", "MNO", "PQR", "STU")).Visible = xlSheetVisible
Gruss
Mike
AW: Ausgeblendete Tabs per Makro einblenden
18.03.2010 14:57:51
Ramon
Hallo Mike,
vielen Dank. Klappt aber leider auch nicht.
Jetzt bekomme ich Laufzeitfehler '1004':
Die Visible-Eigenschaft des Sheets-Objektes kann nicht festgelegt werden.
Hast Du dazu eine Idee?
Gruß,
Ramon
AW: Ausgeblendete Tabs per Makro einblenden
18.03.2010 15:06:17
JoWE
Halllo Ramon,
so geht es:
Sub einblenden()
For i = 1 To Sheets.Count
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
End If
Next
End Sub

jetzt werden alle ausgeblendeten Sheets eingeblendet!
Gruß
Jochen
Anzeige
AW: Ausgeblendete Tabs per Makro einblenden
18.03.2010 17:17:07
Ramon
Hallo Jochen,
ja, danke, so geht's tatsächlich. Allerdings dürfen dummerweise
nicht alle ausgeblendeten wieder eingeblendet werden. Es sind
ein paar Blätter permanent ausgeblendet . . . .
Hm, . . . . ?!?
Gruß,
Ramon
AW: Ausgeblendete Tabs per Makro einblenden
18.03.2010 18:22:52
Chris
Servus Ramon,
dann mach's doch so:
Sub ein_ausblenden()
Dim SheetArray As Variant, SheetIndex As Variant, i As Long
SheetArray = ("ABC,DEF,GHI,JKL,MNO,PQR,STU")
SheetIndex = Split(SheetArray, ",")
For i = LBound(SheetIndex) To UBound(SheetIndex)
Sheets(SheetIndex(i)).Visible = Not Sheets(SheetIndex(i)).Visible
Next i
End Sub
Ein Makro zum Ein-und Ausblenden der benannten Sheets (=SheetArray).
Gruß
Chris
Anzeige
AW: Ausgeblendete Tabs per Makro einblenden
18.03.2010 19:12:27
Ramon
Hi Chris,
vielen Dank! So funktioniert's nun tatsächlich!
Auch wenn ich den Code zugegebener Maßen
nicht in allen seinen Einzelheiten nachvollziehen
Kann. Aber hey, Hauptsache es funktioniert.
Man muß ja nicht alles verstehen . . . :o)
Also, vielen Dank und Gruß,
Ramon

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige