Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt in Abhängigkeit von Zellinhalt einblenden

Blatt in Abhängigkeit von Zellinhalt einblenden
05.03.2015 00:30:34
Zellinhalt
Hallo,
ich habe aus einem Beitrag zum Thema "Blatt in Abhängigkeit von Zellinhalt einblenden" Teile für meine Zwecke genutzt. Und soweit hat es auf funktioniert. Das einblenden hat in Abhängigkeit von einer Zellen Auswahlliste funktioniert. Das Ganze wurde im *.xls format (Excel 2010 im Kompmodus 97-2003) geschrieben. Dann wurde eine Version des Files in Excel 2010 als *.xls bearbeitet und gespeichert (mit kompatibilitäsprüfung). Und jetzt funktioniert das Einblenden in Abhängikeit der Zellen auswahlliste nicht mehr. Auch nicht als *.xlsm File. Beim Versuch as *.xlsx zu speichern kommt eine Warnung, dass die Datei ohne Makro und VB-Projekt gespeichert wird.
Am Code wurde nix geändert, ausser dass die Tabellenblätter neu benannt wurden und einige hinzugefügt wurden, die auch im Code entsprechend eingetragen wurden.
So funktioniert der Code als *.xls File: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Target, ThisWorkbook.Worksheets("Service Request").Range("C11")) Is  _
Nothing Then
Select Case Target.Row
Case 11
If UCase(Target) = "AO1-MONITORING ROOM SERVICE" Then
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("AO1-Monitoring Room Service").Visible = True
ElseIf UCase(Target) = "OS1-ON-SITE SUPPORT SERVICE" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = True
ElseIf UCase(Target) = "OS1-OFF-SITE SUPPORT SERVICE" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = True
ElseIf UCase(Target) = "OS1-ON-SITE SUPPORT TEST SERVICE" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = True
ElseIf UCase(Target) = "OS2-ON-CALL SUPPORT SERVICE" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = True
ElseIf UCase(Target) = "OS3-KEY-USER MEETING SERVICE" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = True
ElseIf UCase(Target) = "OS4-TECHNICAL WORKSHOP SERVICE" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = True
ElseIf UCase(Target) = "OS5-AD-HOC SERVICE" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = True
ElseIf UCase(Target) = "TAKE OVER SERVICE" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = True
ElseIf UCase(Target) = "LIMITED @ELBOW SUPPORT" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = True
ElseIf UCase(Target) = "CRITICAL LIMITED @ELBOW SUPPORT" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = True
ElseIf UCase(Target) = "KEY USER MEETING" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = True
ElseIf UCase(Target) = "TECHNICAL SUPPORT" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("Technical Support").Visible = True
ElseIf UCase(Target) = "RED TEAM PARTICIPATION" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = True
ElseIf UCase(Target) = "AD-HOC SUPPORT" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = True
ElseIf UCase(Target) = "ON-SITE SUPPORT" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = True
ElseIf UCase(Target) = "OFF-SITE SUPPORT" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = True
ElseIf UCase(Target) = "ON-CALL SUPPORT" Then
Sheets("AO1-Monitoring Room Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-Off-Site Support Service").Visible = xlVeryHidden
Sheets("OS1-On-Site Support Test Ser.").Visible = xlVeryHidden
Sheets("OS2-On-Call Support Service").Visible = xlVeryHidden
Sheets("OS3-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("OS4-Technical Workshop Service").Visible = xlVeryHidden
Sheets("OS5-Ad-HOC Service").Visible = xlVeryHidden
Sheets("Take Over Service").Visible = xlVeryHidden
Sheets("Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Critical Limited @Elbow Support").Visible = xlVeryHidden
Sheets("Key User Meeting").Visible = xlVeryHidden
Sheets("Technical Support").Visible = xlVeryHidden
Sheets("Red Team Participation").Visible = xlVeryHidden
Sheets("Ad-Hoc Support").Visible = xlVeryHidden
Sheets("On-Site Support").Visible = xlVeryHidden
Sheets("Off-Site Support").Visible = xlVeryHidden
Sheets("On-Call Support").Visible = True
End If
End Select
End If
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Und so funktioniert er nicht als *.xlsm File. Zumindest zeigt Excel 2010 nichts mehr an:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Target, ThisWorkbook.Worksheets("Service Request").Range("C11")) Is  _
Nothing Then
Select Case Target.Row
Case 11
If UCase(Target) = "SD-Knowledge Management" Then
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-Knowledge Management").Visible = True
ElseIf UCase(Target) = "SD-Monitoring Room Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = True
ElseIf UCase(Target) = "SD-On-Site Support Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = True
ElseIf UCase(Target) = "SD-Off-Site Support Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = True
ElseIf UCase(Target) = "SD-On-Site Test Support Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = True
ElseIf UCase(Target) = "SD-On-Call Support Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = True
ElseIf UCase(Target) = "SD-Key-User Meeting Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = True
ElseIf UCase(Target) = "SD-Technical Workshop Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = True
ElseIf UCase(Target) = "SD-Ad-HOC Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = True
ElseIf UCase(Target) = "SD-Take Over Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = True
ElseIf UCase(Target) = "BO-Key-User Meeting Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = True
ElseIf UCase(Target) = "BO-Technical Workshop Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = True
ElseIf UCase(Target) = "BO-Ad-HOC Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = True
ElseIf UCase(Target) = "BO-On-Site Support Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = True
ElseIf UCase(Target) = "BO-Off-Site Support Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = True
ElseIf UCase(Target) = "BO-On-Call Support Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = True
ElseIf UCase(Target) = "BO-@Elbow Support Service" Then
Sheets("SD-Knowledge Management").Visible = xlVeryHidden
Sheets("SD-Monitoring Room Service").Visible = xlVeryHidden
Sheets("SD-On-Site Support Service").Visible = xlVeryHidden
Sheets("SD-Off-Site Support Service").Visible = xlVeryHidden
Sheets("SD-On-Site Test Support Service").Visible = xlVeryHidden
Sheets("SD-On-Call Support Service").Visible = xlVeryHidden
Sheets("SD-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("SD-Technical Workshop Service").Visible = xlVeryHidden
Sheets("SD-Ad-HOC Service").Visible = xlVeryHidden
Sheets("SD-Take Over Service").Visible = xlVeryHidden
Sheets("BO-Key-User Meeting Service").Visible = xlVeryHidden
Sheets("BO-Technical Workshop Service").Visible = xlVeryHidden
Sheets("BO-Ad-HOC Service").Visible = xlVeryHidden
Sheets("BO-On-Site Support Service").Visible = xlVeryHidden
Sheets("BO-Off-Site Support Service").Visible = xlVeryHidden
Sheets("BO-On-Call Support Service").Visible = xlVeryHidden
Sheets("BO-@Elbow Support Service").Visible = True
End If
End Select
End If
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Woran kann das liegen? Ich finde keinen Fehler.
Gibt es eventuell unterschiede im VB code bezogen auf Excel Versionen und Kompatibilität?
Danke für eine Anwort. Bei Bedarf könnte ich aus das File zur Verfügung stellen.
gruß Bula

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt in Abhängigkeit von Zellinhalt einblenden
05.03.2015 05:53:24
Zellinhalt
Hallo Bula,
habe mir das Problem mal mit Excel 2003, 2010 & 2013.
Auch wenn ich die xls-Datei in E_2010/2013 öffne und mit Kompatibilitätsmodus E_2003
wieder speichre, läuft es hinterher immer noch wie geschmiert. Ich schicke Dir in der Zip-Datei die Versionen .xls & .xlsm.
Bitte nicht wundern. Ich habe die vielen If-ElseIf-EndIf's durch eine Liste (E_2003)/formatierte Tabelle (ab E_2007) ersetzt und regle die Sichtbarmachung der Tabellen in 1er For-Schleife.
https://www.herber.de/bbs/user/96163.zip
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Blatt in Abhängigkeit von Zellinhalt einblenden
05.03.2015 09:11:25
Zellinhalt
Hallo Luschi,
danke für die Mühe. Deine Bsp's funktionieren.
Jetzt habe ich folgendes Problem. Um die Anpassung im meiner Datei machen zu können hoffe ich das du mir dabei helfen kannst.
Die Auswahl in Zelle C11:D11 ist abhängig von einer vorher zutreffenden Auswahl in Celle (B2:C2). Dort wird A oder B ausgewählt. Entsprechend der Auswahl soll dann die Liste Auswahllliste in C11:D11 gesteuert. In meinem zweiten Code erkennst du die beiden Listen inhalte am SD- und BO-.
Desweiteren muß das Blatt Luschi beim öffnen alleine sichtbar sein. Und bei Auswahl einer Leeren Zelle (eventuell durch erweitern der Liste) oder durch löschen des inhalten von C11:D11 soll das zusätzliche Blatt wieder verschwinden - ohne Fehlermeldung.
Wie kann ich die Meldung nach Auswahl einer Position der liste in C11:D11 vermeiden?
Kurze Frage zum Code von Dir.
Muß das OPTION EXPLICIT in jedem Blatt vorhanden sein.
In Meinem ist das nicht der Fall.
Gruß Bula

Anzeige
AW: Blatt in Abhängigkeit von Zellinhalt einblenden
05.03.2015 09:42:59
Zellinhalt
Hallo Bula,
zu: Option Explicit
Dies ist im Excel-Vba-Editor 1e Einstellung unter Extras-Optionen...
Userbild
Dadurch überprüft der Debugger beim kompilieren, ob jede verwendete Variable auch vorher
deklariert wurde; zB:
Dim i As Integer
i = 5
und meckert es an, falls nicht.
Damit wird aber sichergestellt, daß man in die Variable i nur Integer-Werte abgelegen kann.
Mit diesem Häckchen sorgt der Vba-Editor dafür, daß bei Erzeugen eines Moduls / Klassenmoduls / Formularmoduls automatisch die Zeile 'Option Explicit' am Beginn des Moduls reingeschrieben wird.
Fehlt dieses Häckchen, dann kann man sowas machen:
i = 5
i= "Ich habe Hunger!"
Denn durch die nicht erforderliche Deklarierung 'Dim i As Integer' ist die Variable 'i' automatisch vom Typ 'Variant' und man kann fast jeden Datentyp in die Variable 'i zwischenparken.
Das Andere wird wohl nur mit 1er Demodatei von Dir zu lösen sein!
Gruß vn Luschi
aus klein-Paris

Anzeige
AW: Blatt in Abhängigkeit von Zellinhalt einblenden
05.03.2015 10:07:05
Zellinhalt
HI,
Ok, danke, werde ich vorbereiten.

AW: Blatt in Abhängigkeit von Zellinhalt einblenden
05.03.2015 15:22:20
Zellinhalt
So, habe die Lösung des Problems gefunden. Lag an GROSS und klein Schreibung, die notwendig ist.
Im Code:
If UCase(Target) = "SD-KNOWLEDGE MANAGEMENT" Then ....
oder
ElseIf UCase(Target) = "SD-MONITORING ROOM SERVICE" Then
Innerhalb der "" muß es GROSS geschrieben werden damit es funktioniert.
Damit ist mein Problem gelöst, Danke für deinen Variante, die ich sicherlich auch noch einbauen werde um meine Auswahllisten einfacher zu steuern.
Gruß Bula

300 Forumthreads zu ähnlichen Themen

Diagramm mit stündlicher Skalierung/X-Achse
Jan

Hallo zusammen,
ich möchte in Excel ein Diagramm erstellen. Allerdings will ich bei der Zeitachse (X-Achse) eine Unterteilung in Stunden (nicht wie üblich in Tagen).
Ist das möglich ?
Vielen Dank im voraus !
Gruss Jan
08.09.2008 12:29:00
Thread-ID: 1008115
2 Beiträge
Anzeige
Skalierung eines Diagramms (Y-Achse)
Herbert

Hallo,
ich möchte gern die Y-Achse eines erstellten Liniendiagramms skalieren. Leider kann ich diese nicht ändern. Egal, was ich eintrage, die Skalierung ändert sich nicht. Über den eigentlichen Eingabefeldern steht das Wort "Automatisch".
Was mache ich falsch?
Gruß Herbert
05.01.2009 17:06:51
Thread-ID: 1037039
2 Beiträge
Diagramm Werte und Achsen dynamisch verändern
Niko

Hallo zusammen,
ich bin ziemlich am verzweifeln, da ich nun schon seit Stunden an einem Problem sitze und auch das Internet bereits abgesucht habe, aber leider ohne Erfolg. Deshalb wende ich mich an Euch und hoffe ihr könnt helfen:
Und zwar habe ich in einer Mappe 10 Diagramme angelegt,...
28.01.2009 11:12:40
Thread-ID: 1044498
9 Beiträge
Anzeige
3D-Diagramm y-Achse Schattierung wie Legende
Martin

Liebe Leute,
ich habe ein 3-Diagramm (Oberfläche) erstellt. Die y-Werte können anhand der Oberflächen-Abschnitts-Farbe und über die Legende abgelesen werden.
Nun wäre es viel komfortabler, die Legenden-Farben direkt auf der yz-Fläche zu haben. Dann hätte man die direkte Zuordnung.
K...
10.02.2009 21:44:00
Thread-ID: 1049345
2 Beiträge
Löschen von Datenreihen in XY Diagramm
Datenreihen

Hallo Liebe Excel-Experten,
Dieses Problem habe ich bereits in einem anderen Forum gepostet. Dort konnte aber leider niemand mein Problem lösen. Deshalb habe ich es im anderen Forum als erledigt markiert und erwarte auch keine Antwort mehr.
Viel mehr hoffe ich, dass Ihr mir weiterhelfen...
17.02.2009 13:08:00
Thread-ID: 1051455
3 Beiträge
Diagramm y-Achse bei Minimum x-Achse schneiden
Marco

Hallo zusammen.
Ich erstelle per VBA aus einer generierten .txt Datei, ein Excelblatt, in dem immer 2 Datenreihen als Diagramm dargestellt werden. (3 Diagramme)
Mein Problem ist nun, dass ich die y-Achse, der Übersichtlichkeit halber, am Minimum der x-Achse Schneiden soll.
Habe geda...
05.03.2009 09:32:13
Thread-ID: 1056671
4 Beiträge
Farbumschlag von Aufwärtsbalken in Diagrammen
Aufwärtsbalken

Hallo zusammen,
ich habe folgendes Problem: Ich benutze die Darstellung von Aufwärts- und Abwärtsbalken (Pos./Neg. Abweichung) zur Darstellung von s.g. "Brückendiagrammen". Dabei stelle ich die Pos. und Neg. Abw. in unterschiedlichen Farben dar. Hierbei stoße ich auf das Problem, dass klein...
25.03.2009 07:14:34
Thread-ID: 1063552
3 Beiträge
Diagramm mit dynamischer Rubrikenachse
Dieterlem

Hallo Excelfreunde,
ich möchte ein Diagramm erstellen. Je nach dem ändert sich die Anzahl der zu anzeigenden Rubriken.
Es gibt 20 Rubriken, die ich im Datenbereich erfasst habe. In einigen Fällen werden nicht alle Rubriken verwendet (Eintrag im Datenbereich = "" Wert =0) wie kann ich da...
03.05.2009 10:53:43
Thread-ID: 1072501
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
8
2
1
2
3
2
3
5
1
1
2
4
2
2
6
3
8
2
3
5
3
8