HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blätter in Externer Arbeitsmappe einblenden

Blätter in Externer Arbeitsmappe einblenden
26.04.2008 09:17:00
Heinz
Guten morgen,Leute im Forum
Ich habe den Code zum einblenden aller Sheets in dieser Arbeitsmappe.
Okay funkt. 

Sub einblenden()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
End Sub


Nun möchte ich aber von meiner Arbeitsmappe "Gewichtsblätter & Wochenumbau",
alle Blätter in der Arbeitsmappe "KW18", "KW19" usw.. Also immer mit "KW" einblenden.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß
Heinz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Blätter in Externer Arbeitsmappe einblenden
26.04.2008 09:24:00
ransi
Hallo Heinz
Theoretisch (weil ungetestet) so:
Option Explicit

Sub ungetestet()
Dim wb As Workbook
Dim sh As Worksheet
Set wb = Workbooks("Gewichtsblätter & Wochenumbau.xls")
For Each sh In wb.Sheets
    If Left(sh.Name, 2) = "KW" Then sh.Visible = True
Next sh
End Sub

ransi

AW: Blätter in Externer Arbeitsmappe einblenden
26.04.2008 09:47:00
Heinz
Guten morgen, Ransi
Hat einwandfrei funktioniert.
Recht herzlichen Dank
Gruß
Heinz

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!