hausboot
Goto Top

Arbeitsblätter ein- bzw ausblenden nach Zellinhalt

Ich hoffe, dass die Profis in diesem Forum mir weiterhelfen können.

Ich möchte in Excel ein Arbeitsblatt je nach Zellinhalt (z.B. Zelle A1) ein- bzw. ausblenden.
Beispiel:
Ist die Zelle A1 mit einer Zahl gefüllt, so soll das Blatt automatisch eingeblendet werden.
Ist die Zelle A1 leer, so soll das Blatt ausgeblendet werden.

Ich hoffe ihr könnt mir helfen.

Ich wünsche euch allen ein frohes Osterfest

Hausboot

Content-Key: 165070

Url: https://administrator.de/contentid/165070

Printed on: April 19, 2024 at 19:04 o'clock

Member: bastla
bastla Apr 22, 2011 at 13:20:09 (UTC)
Goto Top
Hallo Hausboot!

Der Code dafür wäre etwa:
With Worksheets("Tabelle1")  
    If .Range("A1") = "" Then  
        .Visible = False
    Else
        .Visible = True
    End If
End With
oder etwas knapper:
Worksheets("Tabelle1").Visible = Worksheets("Tabelle1").Range("A1") <> ""
- die Frage ist nur, bei welcher Gelegenheit er ausgeführt werden soll ...

Um zB den Code beim Öffnen der Mappe auszuführen, müsstest Du ihn in als
Sub Workbook_Open()
unter "DieseArbeitsmappe" einfügen ...

Grüße
bastla
Member: Hausboot
Hausboot Apr 22, 2011 at 14:10:43 (UTC)
Goto Top
Hallo bastla,

vielen Dank für die schnelle Antwort.
Der Code soll ausgeführt werden, wenn in der Arbeitsmappe eine Berechnung (Auswertung) durchgeführt wurde (nicht beim Öffnen der Arbeitsmappe). Das Ergebnis kopiere ich in ein gesondertes Blatt (z.B. Tabelle 1).
Ist hier die Zelle A1 leer, soll das Blatt ausgeblendet werden. Bei gefüllter Zelle A1 eingeblendet.

Grüße
Hausboot
Member: bastla
bastla Apr 22, 2011 at 14:19:26 (UTC)
Goto Top
Hallo Hausboot!

Dann kannst Du nach einem Rechtsklilck auf das Blattregister des "auslösenden" Blattes und "Code anzeigen" im VBA-Editor aus dem linken Dropdown "Worksheet" und aus dem rechten Dropdown das passendste Ereignis (zB "Calculate" oder "Change") wählen und den Code in das entsprechende "Sub" einfügen ...

Wenn ein anderes Blatt aus- bzw eingeblendet werden soll, passt die kurze Code-Variante (mit entsprechender Anpassung der Blattnamen) besser ...

Grüße
bastla
Member: Hausboot
Hausboot Apr 22, 2011 at 14:45:57 (UTC)
Goto Top
Hallo bastla,

vielen Dank. Es funktioniert einwandfrei.

Ich wünsche Dir und deinen Angehörigen schöne Ostertage

Gruß

Hausboot