Microsoft Excel

Herbers Excel/VBA-Archiv

Blätter in Externer Arbeitsmappe einblenden

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

  

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


  

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


 

Beiträge aus den Excel-Beispielen zum Thema "Blätter in Externer Arbeitsmappe einblenden"