Hallöchen zusammen,

ich habe mir eine Makro gebaut, um über ein Dropdown Menü etwas auszuählen zu können und demenstrechend dann unterschiedliche Berechnungsschemata für unterschiedliche Drop Down Optionen zu haben. Leider funktioniert das nicht mehr, sobald eine Zeile, in der Informationen für die Berechnung stehen ausgeblendet ist. In der Vergangenheit hat das soweit ich weiss aber keine Probleme gemacht und ist erst seit meinem Upgrade auf Excel 2016 der Fall. Es kommt dann eine Fehlermeldung und Excel hängt sich auf und ich kann es nur noch über den Task-Manager schließen. Leider bin ich nicht die Erfahrenste was VBA Programmierungen angeht und habe nach stundenlangen Versuchen keine Lösung gefunden. Ich hoffe einem von euch fällt es leichter und kann mir damit hoffentlich weiterhelfen.

Das ist der Code um den es geht:

Sub Dropdown392_BeiAenderung()
Dim drpdwn As DropDown
Set drpdwn = ActiveSheet.DropDowns(Application.Caller)
Select Case drpdwn.ListIndex

Case 0
'no selection, do nothing

Case 1
X1

Case 2
X2

Case 3
X3

Case 4
X4

Case 5
X5

Case 6
X6

Case 7
affilated_company

Case 8
affilated_company

Case 9
affilated_company

Case 10
X7

Case 11
X8

Case 12
X9

Case 13
X10

Case 14
X11

End Select

'Surcharge Ratios and Exchange Rates deleted
Sheets("Basicdata").Select
Range("D52:D56").ClearContents
Range("D58:E58").ClearContents
Range("C65:F78").ClearContents
Range("G84:G123").ClearContents
Range("C130:D138").ClearContents
Rows("50:50").EntireRow.Hidden = True
Rows("59:59").EntireRow.Hidden = True

End Sub

Ich hoffe einer von euch kennt sich damit besser aus und erkennt vlt den Fehler. Schreibt gerne auch nur Ansätze zur Lösung rein. Ich freue mich über jede Hilfe

Liebe Grüße

Larisaa