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
|