Dateiblätter bei bestimmten Ergebnis einblenden

Silvia · 2018-03-12T20:08:23+00:00

Hallo Zusammen ich benötige mal wieder Eure Hilfe. Ich habe eine Tabelle mit einen bestimmten End-Ergebnis z.B. EU (siehe grünes Feld), dann soll ein Tabellenblatt "ZMP EU" automatisch eingeblendet werden - alle anderen aber nicht. https://www.herber.de/bbs/user/120372.xlsx Ergibt sich ein anderes End-Ergebnis (z.B. Nat), dann soll nur das Tabellenblatt "ZMP Nat" eingeblendet werden die anderen nicht. Generell sollen also jeweils nur 2 Tabellenblätter offen sein Matrix und das passende ZMP-Tabellenblatt Ist das möglich? Für Eure Unterstützung bedanke ich mich sehr herzlich LG Silvia

Hallo Silvia,
folgenden Code ins Codemodul von DieseArbeitsmappe.
Makroeditor öffnen Alt+F11-Doppelklick auf diese Arbeitsmappe-Code rechts ins Codefenster kopieren

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Matrix" Then
ws.Visible = False
End If
Next ws
End Sub

Dadurch werden beim Start der Datei alle Blätter ausgeblendet, außer Matrix
Folgenden Code ins Codemodul vom Blatt "Matrix"
Rechtsklick auf den Tabellenblattreiter-Code anzeigen-Code rechts ins Codefenster kopieren

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strBlatt As String, ws As Worksheet
If Target.Address(0, 0) = "A2" Then
If Not Target Is Nothing Then
Select Case Target.Offset(1, 4).Value
Case 1, 3, 5, "EU", "Nat"
strBlatt = "ZMP " & Target.Offset(1, 4).Value
For Each ws In ThisWorkbook.Worksheets
If ws.Name = strBlatt Or ws.Name = "Matrix" Then
ws.Visible = True
Else
ws.Visible = False
End If
Next ws
Case Else
End Select
End If
End If
End Sub

Makro startet, sobald im Blatt Matrix in A2 eine Änderung erfolgt. Entsprechend der Ausgabe in Zelle E3 wird das dazugehörige Blatt eingeblendet.
Gruß Werner

Hallo Silvia,
ich würde die Formeln in E3 und F3 noch um eine Prüfung ob A2 leer ergänzen.
=WENN(A2"";WENN($A$2$B$7; C$7)))));"")
Und hier der Code für das Blatt "Matrix" nochmal. Jetzt mit einer Ergänzung. Es wird eine Meldung ausgegeben, wenn eines der Tabellenblätter noch nicht existiert. In deiner Beispielmappe gibt es z.B. die Mappe "ZMP 1" nicht.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strBlatt As String, ws As Worksheet, boVorhanden As Boolean
If Target.Address(0, 0) = "A2" Then
If Not Target Is Nothing Then
Select Case Target.Offset(1, 4).Value
Case 1, 3, 5, "EU", "Nat"
strBlatt = "ZMP " & Target.Offset(1, 4).Value
For Each ws In ThisWorkbook.Worksheets
If ws.Name = strBlatt Or ws.Name = "Matrix" Then
If ws.Name = strBlatt Then boVorhanden = True
ws.Visible = True
Else
ws.Visible = False
End If
Next ws
Case Else
End Select
End If
End If
If Not boVorhanden And Target  "" Then
MsgBox "Das Tabellenblatt " & """" & strBlatt & """" & " existiert nicht"
End If
End Sub

Gruß Werner

Dateiblätter bei bestimmten Ergebnis einblenden

Forumthread: Dateiblätter bei bestimmten Ergebnis einblenden

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Dateiblätter bei bestimmten Ergebnis einblenden

Forumthread: Dateiblätter bei bestimmten Ergebnis einblenden

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread