kann jemand helfen? Hab hier so eine ellenlange Prozedur, kann man die irgendwie kürzen, wenn nicht, kann man das ganze dann auch in ein Makro legen oder gibt da irgend eine andere Lösung. Ich sterbe hier bald ab. Einmal bekomme ich die Fehlermeldung Prozedur zu groß, ein andermal funktioniert alles nicht mehr. Füge den Code mal hier bei, die Datei ist leider 4 MB, also nicht zum hochladen geeignet.
Danke schon mal an der Stelle.
'Einblenden von Button in Abhängikeit der PW-Eingabe
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(60) As String, i%
' Übereinstimmungen B1 K7
'A
s(1) = "A" & TZ & "?"
s(2) = "A" & TZ & "ETW zur Kapitalanlage"
s(3) = "A" & TZ & "Bestandsobjekt"
s(4) = "A" & TZ & "Neubau"
s(5) = "A" & TZ & "Neubau - Wunschberechnung"
s(6) = "A" & TZ & "Neubau - Kauf vom Bauträger"
s(54) = "A" & TZ & "?"
s(55) = "A" & TZ & "ETW zur Kapitalanlage"
s(56) = "A" & TZ & "Bestandsobjekt"
s(57) = "A" & TZ & "Neubau"
s(58) = "A" & TZ & "Neubau - Wunschberechnung"
s(59) = "A" & TZ & "Neubau - Kauf vom Bauträger"
If Not Application.Intersect(target, Range("B1:K15")) Is Nothing Then
s(0) = Sheets("Zinskondition").Range("B1").Value & TZ & _
Range("K15").Value
For i = 1 To 60
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
Case 1
' Erste Bedingung s(1) = "A" & TZ & "?"
Case 2
' Bedingung s(2) = "A" & TZ & "ETW zur Kapitalanlage"
Case 3
' Bedingung s(3) = "A" & TZ & "Bestandsobjekt"
Case 4
' Bedingung s(4) = "A" & TZ & "Neubau"
Case 5
' Bedingung s(5) = "A" & TZ & "Neubau - Wunschberechnung"
Case 6
' Bedingung s(5) = "A" & TZ & "Neubau - Kauf vom Bauträger"
Case 60
' Bedingung s(5) = "A" & TZ & "Neubau - Kauf vom Bauträger"
End Select
End Sub
Gr. T.