Tabellenblatt einblenden, wenn Bedingung erfüllt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Steffi,
C12 eine Eingabe oder Formel?
Formel ist mir zu aufwendig.
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C12").Address Then Worksheets("Januar Projekt 1").Visible = Target "" Worksheets("Februar Projekt 1").Visible = Target "" End If End Sub

Hallo Matthias,
Du konntest mir tatsächlich gut weiterhelfen, auch wenn dein Code so nicht funktioniert hat... habe etwas dran getüftelt und plötzlich hat es geklappt :) Habe das dann auch noch zum Ausblenden, wenn die Zelle leer ist gemacht und das Ein- und Ausblenden auch für Projekt 2 geschrieben. Sind jetzt also 4 Module draus geworden.
Das Einblenden sieht jetzt so aus:

Sub Arbeitsblätter_Projekt_1_ausblenden()
If Range("E14") = "" Then
Sheets("Januar Projekt 1").Visible = False
Sheets("Februar Projekt 1").Visible = False
Sheets("März Projekt 1").Visible = False
Sheets("April Projekt 1").Visible = False
Sheets("Mai Projekt 1").Visible = False
Sheets("Juni Projekt 1").Visible = False
Sheets("Juli Projekt 1").Visible = False
Sheets("August Projekt 1").Visible = False
Sheets("September Projekt 1").Visible = False
Sheets("Oktober Projekt 1").Visible = False
Sheets("November Projekt 1").Visible = False
Sheets("Dezember Projekt 1").Visible = False
Sheets("Januar Projekt 1").Visible = False
End If
End Sub

Damit die Makros automatisch ablaufen, habe ich ein Worksheet Change angelegt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E14"))  "" Then
Call Arbeitsblätter_Projekt_1_einblenden
End If
If Range("E14") = "" Then
Call Arbeitsblätter_Projekt_1_ausblenden
End If
End Sub

Das klappt auch prima bei Projekt 1.
Leider funktionieren jetzt aber die Dropdown-Listen in dem Arbeitsblatt nicht mehr und ich bekomme die Fehlermeldung "Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt"
Warum passiert das? Welche Befehlszeile fehlt?
Und ich bekomme in das Worksheet keine weiteren If eingefügt. Die Autofunktion soll ja nicht nur bei Projekt 1 funktionieren... es gibt 5 Projekte.
Kannst Du mir da helfen?
Oder vielleicht jemand anderes?
Gruß
Steffi

Beliebteste Forumthreads (12 Monate)

Tabellenblatt einblenden, wenn Bedingung erfüllt

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

52 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblatt einblenden, wenn Bedingung erfüllt

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

52 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread