Makro geht nicht mehr (nach Office-Update)
11.07.2016 20:40:12
Kulo
bis vor kurzem funktionierte ein DropDown Menü mit folgendem Makro bestens:
Sub Scrollen()
Dim rngZelle As Range
Dim strSuche As String
With ActiveSheet.Shapes("Dropdown 1")
' MsgBox Application.Caller
strSuche = Range("B201:B211").Cells(.ControlFormat.ListIndex).Value
Set rngZelle = Columns(1).Find(strSuche, lookat:=xlWhole)
Application.Goto reference:=rngZelle, Scroll:=True
ActiveCell.Offset(0, Month(Date)).Select
If strSuche = "Tatsächliche Flexkosten:" Then
ActiveWindow.ScrollRow = 74
Selection.End(xlDown).Offset(1, 0).Select
End If
Set rngZelle = Nothing
End With
End Sub
Am Samstag habe ich mein Office aktualisiert und die neuesten Updates aufspielen lassen. Seit dem funktioniert dieses Makro nicht mehr. Ich kann im entspr. DropDown Feld eine Auswahl treffen, aber es passiert nichts.
Wenn ich das Makro Zeilenweise im Editor laufen lasse, reagiert die Tabelle aber und es wird in die laut Dropdownfeld vorgegebene Zeile gescrollt.
Kann mir da jemand auf die Sprünge helfen?
Vielen Dank im Voraus und
VG
Kulo