Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Anwender
Anzeige
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

Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige