Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblätter einblenden

Betrifft: Tabellenblätter einblenden von: John
Geschrieben am: 12.08.2014 21:48:45

Hallo,
ich habe mir eine Checkliste gebastelt und ich möchte durch anklicken auf dem ersten Tabellenblatt in bestimmten Feldern Tabellenblätter einblenden, welche zunächst nicht sichtbar sein sollen. Insgesamt sind es 18 Tabellenblätter die ausgewählt werden können.
Gruß John

  

Betrifft: AW: Tabellenblätter einblenden von: Daniel
Geschrieben am: 12.08.2014 22:10:57

Hi

im Modul des ersten Tabellenblatts folgender Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(0, 0)
    Case "A1": Sheets("Tabelle2").Select
    Case "A2": Sheets("Tabelle3").Select
    Case "A3": Sheets("Tabelle4").Select
    Case Else
End Select
End Sub

Das Select Case musst du halt entsprechend auf 18 Zellen/Blätter erweiteren, so wie die Zelladressen und Blattnamen bei den vorhandenen anpassen.

Gruß Daniel


  

Betrifft: AW: Tabellenblätter einblenden von: Gerold
Geschrieben am: 12.08.2014 23:11:39

Hallo John

So Vieleicht?

'In das Modul von Tabelle 1

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Wks As Worksheet
For Each Wks In ThisWorkbook.Worksheets     'Vergleiche jedes Tabellenblatt in dieser Mappe
    If Target.Value = Wks.Name Then         'Text in Zelle = Tabellenname
        Wks.Visible = xlSheetVisible        'Tabelle sichtbar
        Wks.Select                          'Tabelle auswählen
    End If
Next
End Sub


Gruß Gerold

Rückmeldung wäre nett.


  

Betrifft: AW: Tabellenblätter einblenden von: John
Geschrieben am: 13.08.2014 07:56:43

Guten Morgen und Danke für die schnellen Antworten.
Da ich keine große Erfahrung mit Excel habe, ist das Modul gleichzusetzen mit einem Makro?
Wo füge ich das ein? ALT+F8 oder ALT+F11?

Danke vorab. John


  

Betrifft: AW: Tabellenblätter einblenden von: Daniel
Geschrieben am: 13.08.2014 09:14:06

HI
hilft dir das weiter?
http://www.online-excel.de/excel/singsel_vba.php?f=44
Gruß Daniel


  

Betrifft: AW: Tabellenblätter einblenden von: John
Geschrieben am: 13.08.2014 10:21:30

Hallo, ich probiers mal aus. Danke


  

Betrifft: AW: Tabellenblätter einblenden von: John
Geschrieben am: 13.08.2014 08:43:33

Hier ein Beispiel für mein Problem.
https://www.herber.de/bbs/user/92062.xls

Gruß, John


  

Betrifft: AW: Tabellenblätter einblenden von: Gerold
Geschrieben am: 13.08.2014 15:32:48

Hallo John

Probier mal diese Datei

https://www.herber.de/bbs/user/92078.xls

Gruß Gerold

Rückmeldung wäre nett.


  

Betrifft: AW: Tabellenblätter einblenden von: John Szoke
Geschrieben am: 18.08.2014 20:34:44

Hallo und Danke erstmal,
das ist schon fast so, wie ich es mir vorstelle. Kann man auch mehrere Makros hintereinander ausführen, also z.B. bei Doppelklick in einem Feld der "Checkliste" soll ein "x" erscheinen und auch das dazugehörige Tabellenblatt sichtbar werden?

Gruß, John


 

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblätter einblenden"