Herbers Excel-Forum - das Archiv

Blätter in Externer Arbeitsmappe einblenden

Bild

Betrifft: Blätter in Externer Arbeitsmappe einblenden
von: Heinz H

Geschrieben am: 26.04.2008 09:17:24

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

Bild

Betrifft: AW: Blätter in Externer Arbeitsmappe einblenden
von: ransi

Geschrieben am: 26.04.2008 09:24:04
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

Bild

Betrifft: AW: Blätter in Externer Arbeitsmappe einblenden
von: Heinz H
Geschrieben am: 26.04.2008 09:47:59
Guten morgen, Ransi
Hat einwandfrei funktioniert.
Recht herzlichen Dank
Gruß
Heinz

 Bild
Excel-Beispiele zum Thema "Blätter in Externer Arbeitsmappe einblenden"
Wert in externer Mappe suchen und mit Format übernehmen. Symbolleiste zum Aufruf externer Anwendungen erstellen
Start des Makros nach Laden der Arbeitsmappe Prüfung, ob eine Arbeitsmappe geöffnet ist
Die "personl"-Arbeitsmappe ausgeblendet speichern Blätter in andere Arbeitsmappen kopieren
Variablenübergabe in andere Arbeitsmappen SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen
Arbeitsmappe-Schließen-Abfrage abfangen VBA-Zugriff auf geschlossene Arbeitsmappe.