Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlermeldung Prozedur zu groß

Fehlermeldung Prozedur zu groß
17.10.2006 13:34:19
Torge
Hallo,
kann jemand einen Hinweis geben, wie ich die Fehlermeldung umgehen kann bzw. die Prozedur teilen?
Code ist ziemlich lang.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
'Einblenden von Button in Abhängikeit der PW-Eingabe
Const TZ = "_" ' Trennzeichen
Dim s(50) As String, i%
' Übereinstimmungen  B1  K7
'A
s(1) = "A" & TZ & "?"
s(2) = "A" & TZ & "Bestand"
s(3) = "A" & TZ & "Neubau"
s(4) = "A" & TZ & "Neubau - Kauf"
s(5) = "A" & TZ & "Umschuldung"
'B
s(6) = "B" & TZ & "?"
s(7) = "B" & TZ & "Bestand"
s(8) = "B" & TZ & "Neubau"
s(9) = "B" & TZ & "Neubau - Kauf"
s(10) = "B" & TZ & "Umschuldung"
'C1
s(11) = "C" & TZ & "?"
s(12) = "C" & TZ & "Bestand"
s(13) = "C" & TZ & "Neubau"
s(14) = "C" & TZ & "Neubau - Kauf"
s(15) = "C" & TZ & "Umschuldung"
'C2
s(16) = "C" & TZ & "?"
s(17) = "C" & TZ & "Bestand"
s(18) = "C" & TZ & "Neubau"
s(19) = "C" & TZ & "Neubau - Kauf"
s(20) = "C" & TZ & "Umschuldung"
'C3
s(21) = "C" & TZ & "?"
s(22) = "C" & TZ & "Bestand"
s(23) = "C" & TZ & "Neubau"
s(24) = "C" & TZ & "Neubau - Kauf"
s(25) = "C" & TZ & "Umschuldung"
'C4
s(26) = "C" & TZ & "?"
s(27) = "C" & TZ & "Bestand"
s(28) = "C" & TZ & "Neubau"
s(29) = "C" & TZ & "Neubau - Kauf"
s(30) = "C" & TZ & "Umschuldung"
'D
s(31) = "D" & TZ & "?"
s(32) = "D" & TZ & "Bestand"
s(33) = "D" & TZ & "Neubau"
s(34) = "D" & TZ & "Neubau - Kauf"
s(35) = "D" & TZ & "Umschuldung"
'E
s(36) = "E" & TZ & "?"
s(37) = "E" & TZ & "Bestand"
s(38) = "E" & TZ & "Neubau"
s(39) = "E" & TZ & "Neubau - Kauf"
s(40) = "E" & TZ & "Umschuldung"
'F
s(41) = "F" & TZ & "?"
s(42) = "F" & TZ & "Bestand"
s(43) = "F" & TZ & "Neubau"
s(44) = "F" & TZ & "Neubau - Kauf"
s(45) = "F" & TZ & "Umschuldung"
'G
s(46) = "G" & TZ & "?"
s(47) = "G" & TZ & "Bestand"
s(48) = "G" & TZ & "Neubau"
s(49) = "G" & TZ & "Neubau - Kauf"
s(50) = "G" & TZ & "Umschuldung"
If Not Application.Intersect(Target, Range("B1:K13")) Is Nothing Then
s(0) = Sheets("Zinskondition").Range("A1").Value & TZ & _
Range("K13").Value
For i = 1 To 50
If s(i) = s(0) Then ' Übereinstimmung gefunden
SetButton i
Exit Sub
End If
Next i
SetButton 0 ' Alle ausblenden wenn keine Übereinstimmung
End If
End Sub

'Einblenden der Button in Abhängigkeit der Auswahl

Private Sub SetButton(intParam%)
Select Case intParam
'Bei Eingabe 0
Case 0
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton4.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton6.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton9.Visible = False
Sheets("Passwort").CommandButton10.Visible = False
Sheets("Passwort").CommandButton11.Visible = False
Sheets("Passwort").CommandButton12.Visible = False
Sheets("Passwort").CommandButton13.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Case 1
' Erste Bedingung s(1) = "A" & TZ & "?"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Case 2
' Bedingung s(2) = "A" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Case 3
' Bedingung s(3) = "A" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Case 4
' Bedingung s(4) = "A" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Case 5
' Bedingung s(5) = "A" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Case 6
' Bedingung s(6) = "B" & TZ & "?"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Case 7
' Bedingung s(7) = "B" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = False
Case 8
' Bedingung s(8) = "B" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = False
Case 9
' Bedingung s(9) = "B" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = True
Sheets("Fin.-Anfrage").CommandButton3.Visible = False
Case 10
' Bedingung s(10) = "B" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Case 11
' Bedingung s(11) = "C1" & TZ & "?"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton9.Visible = False
Sheets("Passwort").CommandButton10.Visible = False
Sheets("Passwort").CommandButton11.Visible = False
Sheets("Passwort").CommandButton12.Visible = False
Sheets("Passwort").CommandButton13.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 12
' Bedingung s(12) = "C1" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton12.Visible = True 'B
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton6.Visible = False
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = False
Sheets("Tilgungsvergleich").CommandButton1.Visible = False
Sheets("Tilgungsvergleich").CommandButton5.Visible = True
Sheets("Tilgungsvergleich").CommandButton10.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = True
Sheets("BSV 10 Jahre").CommandButton10.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = True
Sheets("BSV 12 Jahre").CommandButton10.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = False
Sheets("Daten pro-direct").CommandButton3.Visible = True
Sheets("Daten pro-direct").CommandButton4.Visible = False
Sheets("Daten pro-direct").CommandButton8.Visible = False
Sheets("Daten europace").CommandButton3.Visible = True
Sheets("Daten europace").CommandButton4.Visible = False
Sheets("Daten europace").CommandButton9.Visible = False
Case 13
' Bedingung s(13) = "C1" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton11.Visible = True 'NB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton6.Visible = False
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = False
Sheets("Tilgungsvergleich").CommandButton1.Visible = True
Sheets("Tilgungsvergleich").CommandButton5.Visible = False
Sheets("Tilgungsvergleich").CommandButton10.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = True
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 10 Jahre").CommandButton10.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = True
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton10.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = False
Sheets("Daten pro-direct").CommandButton3.Visible = False
Sheets("Daten pro-direct").CommandButton4.Visible = True
Sheets("Daten pro-direct").CommandButton8.Visible = False
Sheets("Daten europace").CommandButton3.Visible = False
Sheets("Daten europace").CommandButton4.Visible = True
Sheets("Daten europace").CommandButton9.Visible = False
Case 14
' Bedingung s(14) = "C1" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton13.Visible = True 'KfB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = True
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton6.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton6.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton8.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = True
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 10 Jahre").CommandButton10.Visible = True
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = True
Sheets("Tilgungsvergleich").CommandButton1.Visible = False
Sheets("Tilgungsvergleich").CommandButton5.Visible = False
Sheets("Tilgungsvergleich").CommandButton10.Visible = True
Sheets("Daten europace").CommandButton3.Visible = False
Sheets("Daten europace").CommandButton4.Visible = False
Sheets("Daten europace").CommandButton10.Visible = True
Sheets("Daten pro-direct").CommandButton3.Visible = False
Sheets("Daten pro-direct").CommandButton4.Visible = False
Sheets("Daten pro-direct").CommandButton10.Visible = True
Case 15
' Bedingung s(15) = "C1" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 16
' Bedingung s(11) = "C2" & TZ & "?"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton9.Visible = False
Sheets("Passwort").CommandButton10.Visible = False
Sheets("Passwort").CommandButton11.Visible = False
Sheets("Passwort").CommandButton12.Visible = False
Sheets("Passwort").CommandButton13.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 17
' Bedingung s(12) = "C2" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButto12.Visible = True 'B
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton6.Visible = False
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = False
Sheets("Tilgungsvergleich").CommandButton1.Visible = False
Sheets("Tilgungsvergleich").CommandButton5.Visible = True
Sheets("Tilgungsvergleich").CommandButton10.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = True
Sheets("BSV 10 Jahre").CommandButton10.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = True
Sheets("BSV 12 Jahre").CommandButton10.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = False
Sheets("Daten pro-direct").CommandButton3.Visible = True
Sheets("Daten pro-direct").CommandButton4.Visible = False
Sheets("Daten pro-direct").CommandButton8.Visible = False
Sheets("Daten europace").CommandButton3.Visible = True
Sheets("Daten europace").CommandButton4.Visible = False
Sheets("Daten europace").CommandButton9.Visible = False
Case 18
' Bedingung s(13) = "C2" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton11.Visible = True 'NB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton6.Visible = False
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = False
Sheets("Tilgungsvergleich").CommandButton1.Visible = True
Sheets("Tilgungsvergleich").CommandButton5.Visible = False
Sheets("Tilgungsvergleich").CommandButton10.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = True
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 10 Jahre").CommandButton10.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = True
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton10.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = False
Sheets("Daten pro-direct").CommandButton3.Visible = False
Sheets("Daten pro-direct").CommandButton4.Visible = True
Sheets("Daten pro-direct").CommandButton8.Visible = False
Sheets("Daten europace").CommandButton3.Visible = False
Sheets("Daten europace").CommandButton4.Visible = True
Sheets("Daten europace").CommandButton9.Visible = False
Case 19
' Bedingung s(14) = "C2" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton13.Visible = True 'KfB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = True
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton6.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton6.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton8.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = True
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 10 Jahre").CommandButton10.Visible = True
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = True
Sheets("Tilgungsvergleich").CommandButton1.Visible = False
Sheets("Tilgungsvergleich").CommandButton5.Visible = False
Sheets("Tilgungsvergleich").CommandButton10.Visible = True
Sheets("Daten europace").CommandButton3.Visible = False
Sheets("Daten europace").CommandButton4.Visible = False
Sheets("Daten europace").CommandButton10.Visible = True
Sheets("Daten pro-direct").CommandButton3.Visible = False
Sheets("Daten pro-direct").CommandButton4.Visible = False
Sheets("Daten pro-direct").CommandButton10.Visible = True
Case 20
' Bedingung s(15) = "C2" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 21
' Bedingung s(11) = "C3" & TZ & "?"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton9.Visible = False
Sheets("Passwort").CommandButton10.Visible = False
Sheets("Passwort").CommandButton11.Visible = False
Sheets("Passwort").CommandButton12.Visible = False
Sheets("Passwort").CommandButton13.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 22
' Bedingung s(12) = "C3" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton12.Visible = True 'B
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("Tilgungsvergleich").CommandButton1.Visible = False
Sheets("Tilgungsvergleich").CommandButton5.Visible = True
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = True
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = True
Sheets("Daten pro-direct").CommandButton3.Visible = True
Sheets("Daten pro-direct").CommandButton4.Visible = False
Sheets("Daten europace").CommandButton3.Visible = True
Sheets("Daten europace").CommandButton4.Visible = False
Case 23
' Bedingung s(13) = "C3" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton11.Visible = True 'NB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = True
Sheets("Tilgungsvergleich").CommandButton1.Visible = True
Sheets("Tilgungsvergleich").CommandButton5.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = True
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = True
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Sheets("Daten pro-direct").CommandButton3.Visible = False
Sheets("Daten pro-direct").CommandButton4.Visible = True
Sheets("Daten europace").CommandButton3.Visible = False
Sheets("Daten europace").CommandButton4.Visible = True
Case 24
' Bedingung s(14) = "C3" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton13.Visible = True 'KfB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = True
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton6.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton6.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton8.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = True
Sheets("BSV 10 Jahre").CommandButton10.Visible = True
Sheets("BSV 12 Jahre").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = True
Sheets("Tilgungsvergleich").CommandButton10.Visible = True
Sheets("Daten europace").CommandButton10.Visible = True
Sheets("Daten pro-direct").CommandButton10.Visible = True
Case 25
' Bedingung s(15) = "C3" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 26
' Bedingung s(11) = "C4" & TZ & "?"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton9.Visible = False
Sheets("Passwort").CommandButton10.Visible = False
Sheets("Passwort").CommandButton11.Visible = False
Sheets("Passwort").CommandButton12.Visible = False
Sheets("Passwort").CommandButton13.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 27
' Bedingung s(12) = "C4" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton12.Visible = True ' B
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton1.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = True
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("Tilgungsvergleich").CommandButton1.Visible = False
Sheets("Tilgungsvergleich").CommandButton5.Visible = True
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = True
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = True
Sheets("Daten pro-direct").CommandButton3.Visible = True
Sheets("Daten pro-direct").CommandButton4.Visible = False
Sheets("Daten europace").CommandButton3.Visible = True
Sheets("Daten europace").CommandButton4.Visible = False
Case 28
' Bedingung s(13) = "C4" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton11.Visible = True 'NB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
'Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = True
Sheets("Tilgungsvergleich").CommandButton1.Visible = True
Sheets("Tilgungsvergleich").CommandButton5.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = True
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = True
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Sheets("Daten pro-direct").CommandButton3.Visible = False
Sheets("Daten pro-direct").CommandButton4.Visible = True
Sheets("Daten europace").CommandButton3.Visible = False
Sheets("Daten europace").CommandButton4.Visible = True
Case 29
' Bedingung s(14) = "C4" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton13.Visible = True 'KfB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton6.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton8.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton8.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = True
Sheets("BSV 10 Jahre").CommandButton10.Visible = True
Sheets("BSV 12 Jahre").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = True
Sheets("Tilgungsvergleich").CommandButton10.Visible = True
Sheets("Daten europace").CommandButton10.Visible = True
Sheets("Daten pro-direct").CommandButton10.Visible = True
Case 30
' Bedingung s(15) = "C4" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 31
' Bedingung s(16) = "D" & TZ & "?"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton9.Visible = False
Sheets("Passwort").CommandButton10.Visible = False
Sheets("Passwort").CommandButton11.Visible = False
Sheets("Passwort").CommandButton12.Visible = False
Sheets("Passwort").CommandButton13.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 32
' Bedingung s(17) = "D" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = True
Sheets("Passwort").CommandButton9.Visible = True 'B
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = True
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = True
Case 33
' Bedingung s(18) = "D" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton4.Visible = True 'NB
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = True
Sheets("BSV 10 Jahre").CommandButton1.Visible = True
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = True
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Case 34
' Bedingung s(19) = "D" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = True
Sheets("Passwort").CommandButton10.Visible = True 'KfB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton6.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton8.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = True
Sheets("BSV 10 Jahre").CommandButton10.Visible = True
Sheets("BSV 12 Jahre").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = True
Sheets("Tilgungsvergleich").CommandButton10.Visible = True
Sheets("Daten europace").CommandButton10.Visible = True
Sheets("Daten pro-direct").CommandButton10.Visible = True
Case 35
' Bedingung s(20) = "D" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 36
' Bedingung s(21) = "E" & TZ & "?"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton9.Visible = False
Sheets("Passwort").CommandButton10.Visible = False
Sheets("Passwort").CommandButton11.Visible = False
Sheets("Passwort").CommandButton12.Visible = False
Sheets("Passwort").CommandButton13.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 37
' Bedingung s(22) = "E" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton9.Visible = True 'B
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton1.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = True
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = True
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = True
Case 38
' Bedingung s(23) = "E" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton4.Visible = True 'NB
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = True
Sheets("BSV 10 Jahre").CommandButton1.Visible = True
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = True
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Case 39
' Bedingung s(24) = "E" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton8.Visible = True
Sheets("Passwort").CommandButton13.Visible = True 'KfB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton6.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton8.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = True
Sheets("BSV 10 Jahre").CommandButton10.Visible = True
Sheets("BSV 12 Jahre").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = True
Sheets("Tilgungsvergleich").CommandButton10.Visible = True
Sheets("Daten europace").CommandButton10.Visible = True
Sheets("Daten pro-direct").CommandButton10.Visible = True
Case 40
' Bedingung s(25) = "E" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 41
' Bedingung s(26) = "F" & TZ & "?" IFVS
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 42
' Bedingung s(27) = "F" & TZ & "Bestand"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton9.Visible = True 'B
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton1.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = True
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = False
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = False
Sheets("BSV 10 Jahre").CommandButton1.Visible = False
Sheets("BSV 10 Jahre").CommandButton5.Visible = True
Sheets("BSV 12 Jahre").CommandButton1.Visible = False
Sheets("BSV 12 Jahre").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = True
Case 43
' Bedingung s(28) = "F" & TZ & "Neubau"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton4.Visible = True 'NB
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = False
Sheets("Fin.-Anfrage").CommandButton3.Visible = True
Sheets("Eingabe Finanzierungsplan").CommandButton2.Visible = False
Sheets("Eingabe Finanzierungsplan").CommandButton3.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton2.Visible = True
Sheets("Ergebnis (Fin.-Plan-Neubau)").CommandButton10.Visible = True
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton7.Visible = False
Sheets("Grunddaten (Tilg.-Modelle)").CommandButton1.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton2.Visible = False
Sheets("Annuitäten-Tilgung").CommandButton3.Visible = True
Sheets("BSV 10 Jahre").CommandButton1.Visible = True
Sheets("BSV 10 Jahre").CommandButton5.Visible = False
Sheets("BSV 12 Jahre").CommandButton1.Visible = True
Sheets("BSV 12 Jahre").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (40%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton5.Visible = False
Sheets("BSV 15 Jahre (35%)").CommandButton1.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton5.Visible = False
Case 44
' Bedingung s(29) = "F" & TZ & "Neubau - Kauf"
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Passwort").CommandButton5.Visible = True
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = True
Sheets("Passwort").CommandButton10.Visible = True 'KfB
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton5.Visible = True
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton1.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton2.Visible = False
Sheets("Eingabe (Finanzg.-Prüfung)").CommandButton5.Visible = True
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton1.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton2.Visible = False
Sheets("Grunddaten (Tilg.-Verlauf)").CommandButton4.Visible = True
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton2.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton3.Visible = False
Sheets("Tilg.-Verlauf und Vergleich 1").CommandButton4.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton6.Visible = True
Sheets("Ergebnis (Fin.-Plan-Bestand)").CommandButton8.Visible = True
Sheets("Annuitäten-Tilgung").CommandButton7.Visible = True
Sheets("BSV 10 Jahre").CommandButton10.Visible = True
Sheets("BSV 12 Jahre").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (35%)").CommandButton10.Visible = True
Sheets("BSV 15 Jahre (40%)").CommandButton10.Visible = True
Sheets("Tilgungsvergleich").CommandButton10.Visible = True
Sheets("Daten europace").CommandButton10.Visible = True
Sheets("Daten pro-direct").CommandButton10.Visible = True
Case 45
' Bedingung s(30) = "F" & TZ & "Umschuldung"
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton6.Visible = True
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton1.Visible = False
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = False
Case 46
' Bedingung s(31) = "G" & TZ & "?" tt
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = True
Case 47
' Bedingung s(32) = "G" & TZ & "Bestand"
'Sheets("Passwort").CommandButton1.Visible = False
'Sheets("Passwort").CommandButton2.Visible = True
'Sheets("Passwort").CommandButton3.Visible = False
'Sheets("Passwort").CommandButton5.Visible = False
'Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = True
Case 48
' Bedingung s(33) = "G" & TZ & "Neubau"
'Sheets("Passwort").CommandButton1.Visible = False
'Sheets("Passwort").CommandButton2.Visible = True
'Sheets("Passwort").CommandButton3.Visible = False
'Sheets("Passwort").CommandButton5.Visible = False
'Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = True
Case 49
' Bedingung s(34) = "G" & TZ & "Neubau - Kauf"
'Sheets("Passwort").CommandButton1.Visible = False
'Sheets("Passwort").CommandButton2.Visible = True
'Sheets("Passwort").CommandButton3.Visible = False
'Sheets("Passwort").CommandButton5.Visible = False
'Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = True
Case 50
' Bedingung s(35) = "G" & TZ & "Umschuldung"
'Sheets("Passwort").CommandButton1.Visible = False
'Sheets("Passwort").CommandButton2.Visible = True
'Sheets("Passwort").CommandButton3.Visible = False
'Sheets("Passwort").CommandButton5.Visible = False
'Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = True
End Select
End Sub

Hab schon versucht einiges zu kürzen aber hilft leider auch nicht.
Vielen Dank an der Stelle.
Gruß Torge

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung Prozedur zu groß
17.10.2006 13:58:25
Rudi
Hallo,
da kannst du aber noch viel kürzen.
sowas:
Sheets("Passwort").CommandButton1.Visible = False
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = False
Sheets("Passwort").CommandButton4.Visible = False
Sheets("Passwort").CommandButton5.Visible = False
Sheets("Passwort").CommandButton6.Visible = False
Sheets("Passwort").CommandButton7.Visible = False
Sheets("Passwort").CommandButton8.Visible = False
Sheets("Passwort").CommandButton9.Visible = False
Sheets("Passwort").CommandButton10.Visible = False
Sheets("Passwort").CommandButton11.Visible = False
Sheets("Passwort").CommandButton12.Visible = False
Sheets("Passwort").CommandButton13.Visible = False
würde ich in eine andere Prozedur auslagern oder zumindest in With-Rahmen packen:
With Sheets("Passwort")
.CommandButton1.Visible = False
.CommandButton2.Visible = True
.CommandButton3.Visible = False
.CommandButton4.Visible = False
.CommandButton5.Visible = False
.CommandButton6.Visible = False
.CommandButton7.Visible = False
.CommandButton8.Visible = False
.CommandButton9.Visible = False
.CommandButton10.Visible = False
.CommandButton11.Visible = False
.CommandButton12.Visible = False
.CommandButton13.Visible = False
End with
Gruß
Rudi
Anzeige
AW: Fehlermeldung Prozedur zu groß
17.10.2006 14:15:13
Rudi
Hallo,
Beispiel für Case 0:

Sub tt()
Dim wks As Worksheet, arrCMD, arrVisible
Set wks = Worksheets("Passwort")
arrCMD = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)
arrVisible = Array(0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
CmdEinAus wks, arrCMD, arrVisible
Set wks = Sheets("Eingabe (Quick-Check)")
arrCMD = Array(1, 2, 5)
arrVisible = Array(0, 0, 0)
CmdEinAus wks, arrCMD, arrVisible
End Sub



Sub CmdEinAus(wks As Worksheet, arrCMD, arrVisible)
Dim i As Integer
For i = 0 To UBound(arrCMD)
wks.Shapes("CommandButton" & i + 1).Visible = arrVisible(i) * -1
Next i
End Sub

Gruß
Rudi
Anzeige
AW: Fehlermeldung Prozedur zu groß
17.10.2006 15:42:50
Torge
Hallo Rudi,
vielen Dank, kann ich Deinen Vorschlag auch auf die anderen Anweisungen übertragen ( case1 bis 50?
Das Ein-und Ausblenden der Button bezieht sich ja auf die Eingabe in den entsprechenden Zellen (s(0) = Sheets("Zinskondition").Range("A1").Value & TZ & Range("K13").Value)! Ich bin da nicht so bewandert leider, darum meine Frage.
Gruß Torge
AW: Fehlermeldung Prozedur zu groß
17.10.2006 16:10:48
Rudi
Hallo,
ja, sonst hätte ich ihn nicht gemacht.
Gruß
Rudi
AW: Fehlermeldung Prozedur zu groß
17.10.2006 17:41:12
Torge
Hy Rudi,
na dann vielen Dank komme leider heute nicht mehr zum probieren und umsetzten. Werd's aber so schnell wie möglich machen und hoffe bekomme es hin.
Also vielen Dank noch, wünsch Dir einen schönen Abend.
Gruß Torge
Anzeige
AW: Fehlermeldung Prozedur zu groß
17.10.2006 16:19:17
Reinhard
Hi Torge,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
'Einblenden von Button in Abhängikeit der PW-Eingabe
Const TZ = "_" ' Trennzeichen
Dim s(50) As String, i%, n, z
' Übereinstimmungen  B1  K7
For n = 1 To 46 Step 5
z = z + 1
s(n + 0) = Chr(64 + z) & TZ & "?"
s(n + 1) = Chr(64 + z) & TZ & "Bestand"
s(n + 2) = Chr(64 + z) & TZ & "Neubau"
s(n + 3) = Chr(64 + z) & TZ & "Neubau - Kauf"
s(n + 4) = Chr(64 + z) & TZ & "Umschuldung"
Next n
If Not Application.Intersect(Target, Range("B1:K13")) Is Nothing Then
s(0) = Sheets("Zinskondition").Range("A1").Value & TZ & Range("K13").Value
For i = 1 To 50
If s(i) = s(0) Then ' Übereinstimmung gefunden
SetButton i
Exit Sub
End If
Next i
SetButton 0 ' Alle ausblenden wenn keine Übereinstimmung
End If
End Sub
'Einblenden der Button in Abhängigkeit der Auswahl
Private Sub SetButton(intParam%)
Call AlleVerbergen
Call Zeigen
Select Case intParam
'Bei Eingabe 0
Case 0, 5, 6
Sheets("Passwort").CommandButton2.Visible = True
Case 2, 3, 4
Sheets("Passwort").CommandButton1.Visible = True
Sheets("Passwort").CommandButton2.Visible = True
Sheets("Passwort").CommandButton3.Visible = True
Sheets("Eingabe (Quick-Check)").CommandButton2.Visible = True
Case 7....50
Case Else
End Select
End Sub
Sub AlleVerbergen()
Dim Blattname As String, n As Integer, CB As Shape
Blatt = Array("Passwort", "Eingabe (Quick-Check)", "Eingabe (Finanzg.-Prüfung)") 'Anpassen
For n = 0 To UBound(Blattname)
For Each CB In Worksheets(Blattname(n)).Shapes
If CB.Name Like "Command*" Then CB.Visible = False
Next CB
Next n
End Sub
Sub Zeigen()
'Hier alle Commandbuttons sichtbar machen die sichtbar sein sollen
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Fehlermeldung Prozedur zu groß
01.12.2006 15:15:21
Torge
Hallo Reinhard,
entschuldige bitte meine etwas sehr späte Antwort. Ich war zu anderen Aufgaben im Einsatzt, so dass ich meine Anliegen nicht weiter verfolgen konnte.
Also auf jeden Fall ein großes Dankeschöne für Deine hilfe.
Dein Vorschlag bzw. Hineis funktioniert super.
Also vielen Dank nochmals.
Wünsch Dir ein schönes Wochenende.
Gruß Torge

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige