Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellen ausblenden! | Herbers Excel-Forum


Betrifft: Tabellen ausblenden! von: Snewi
Geschrieben am: 22.02.2012 11:12:44

Hallo,

wie kann ich per VBA bei WorkbookOpen mehrere Tabellenblätter ausblenden?
z.B. Tabelle1 + 2 +4!
Diese sollen aber trotzdem noch mit einer Formel ansprechbar sein!

Gruß

  

Betrifft: AW: Tabellen ausblenden! von: Snewi
Geschrieben am: 22.02.2012 11:14:46

oder noch besser alle Tabellen die ein "R_" im Tabellennamen enthalten :-)


  

Betrifft: AW: Tabellen ausblenden! von: Matthias
Geschrieben am: 22.02.2012 11:21:29

Hallo Snewi,

anbei ein code der nur das sheet anzeigt das als einziges offen bleiben soll,
alle Anderen sind nicht Sichtbar.

Sub Inhalt()
Sheets("Inhalt").Visible = True  ' Blattname anpassen
Sheets("Inhalt").Select   ' Blattname anpassen
  Dim Blatt As Object
    For Each Blatt In Sheets
      If Blatt.Name <> ActiveSheet.Name Then
      Blatt.Visible = False
      End If
    Next Blatt
    Calculate
End Sub
Reicht sowas auch ?

Gruß Matthias


  

Betrifft: AW: Tabellen ausblenden! von: Snewi
Geschrieben am: 22.02.2012 11:25:04

das hatte ich mit der Suchfunktion auch schon gefunden :-(
Bräuchte was wenn möglich das alle Sheets ausblendet mit Namen "R_" am Anfang des Sheets oder nur R würde auch reichen :-)

Gruß


  

Betrifft: AW: Tabellen ausblenden! von: hary
Geschrieben am: 22.02.2012 11:32:56

Hallo

 If Left(Blatt.Name,1) = "R" Then

gruss hary


  

Betrifft: AW: Tabellen ausblenden! von: Snewi
Geschrieben am: 22.02.2012 12:26:02

wo hab ich hier den Fehler ??

Sub Blatt_ausblenden()
Dim Blatt As Object
    For Each Blatt In Sheets
        If Left(Blatt, 1) = "R" Then
            Blatt.Visible = True
        End If
    Next Blatt
End Sub



  

Betrifft: AW: Tabellen ausblenden! von: Christian
Geschrieben am: 22.02.2012 12:35:42

Hallo
Du hast Name vergessen. Ausblenden ist Visible=False

Sub Blatt_ausblenden()
Dim Blatt As Worksheet
    For Each Blatt In ThisWorkbook.Worksheets
        If Left(Blatt.Name, 1) = "R" Then
            Blatt.Visible = False
        End If
    Next Blatt
End Sub

gruss hary


  

Betrifft: AW: Tabellen ausblenden! von: Snewi
Geschrieben am: 22.02.2012 12:41:22

Danke :-) läuft


  

Betrifft: AW: gerade gesehen von: hary
Geschrieben am: 22.02.2012 12:46:37

Hallo
Sohnemann hat sich ueber meinen Account eingeloggt.
gruss hary


Beiträge aus den Excel-Beispielen zum Thema "Tabellen ausblenden!"