Microsoft Excel

Herbers Excel/VBA-Archiv

versteckte Tabelle einblenden, wenn ... | Herbers Excel-Forum


Betrifft: versteckte Tabelle einblenden, wenn ... von: Fritz_W
Geschrieben am: 20.02.2012 10:54:50

Hallo Forumsbesucher,

wie kann ich aus der Tabelle1 die versteckte Tabelle (veryhidden) 'Einstellungen' einblenden und gleichzeitig aktivieren, aber nur, wenn in der Tabelle1 in der Zelle W1 ein gleichzeitig ein 'x' eingetragen ist.

Für eure Hilfen im Voraus besten Dank.

mfg
Fritz

  

Betrifft: AW: versteckte Tabelle einblenden, wenn ... von: hary
Geschrieben am: 20.02.2012 11:03:36

Hallo Fritz
zum alten Thread noch eine andere Loesung zugefuegt.
gruss hary


  

Betrifft: AW: versteckte Tabelle einblenden, wenn ... von: Tino
Geschrieben am: 20.02.2012 11:20:09

Hallo,
kannst mal so versuchen.

Sub EinAusblenden()
Dim intVisible As XlSheetVisibility
intVisible = IIf(Sheets("Tabelle1").Range("W1") = "x", xlSheetVisible, xlSheetVeryHidden)
Sheets("Einstellungen").Visible = intVisible
If intVisible = xlSheetVisible Then Sheets("Einstellungen").Activate
End Sub
Gruß Tino


  

Betrifft: AW: versteckte Tabelle einblenden, wenn ... von: Fritz_W
Geschrieben am: 20.02.2012 11:37:45

Hallo Tino,

herzlichen Dank, dass funktioniert soweit prima.

Wie kann ich aus der Tabelle 'Einstellungen' veranlassen, dass diese wieder ausgeblendet und versteckt wird. Es würde mir auch genügen, wenn dies beim verlassen der Tabelle automatisch erfolgt.

Viele Grüße
Fritz


  

Betrifft: AW: versteckte Tabelle einblenden, wenn ... von: Tino
Geschrieben am: 20.02.2012 11:43:23

Hallo,
stelle in die Tabelle Einstellungen diesen Code rein.

Private Sub Worksheet_Deactivate()
    Me.Visible = xlSheetVeryHidden
End Sub
Gruß Tino


  

Betrifft: AW: versteckte Tabelle einblenden, wenn ... von: Fritz_W
Geschrieben am: 20.02.2012 11:46:57

Hallo Tino,

super, besten Dank.

mfg
Fritz


Beiträge aus den Excel-Beispielen zum Thema "versteckte Tabelle einblenden, wenn ..."