11.06.2018, 12:49
Hallo Leute,
ich hoffe jemand kann mir helfen mit einem mehrwürdigen Verhalten das Excel bei mir aufzeigt.
Ich nutze den folgenden Code um das User Interface in einem Excel Tool zu verschlanken. Funktioniert auch absolut einwandfrei solange bis ich eine Tabelle (um die es in dem Tool geht) manuell erweitere (blaue Ecke rechts unten um eine Zeile nach unten ziehen). Dann funktioniert kein Event mehr (gar keines mehr!) außer das Ein und Ausklappen der CommandBar"Ribbon".
In einem anderen Forum meinte jemand es könnte an einer Custom User Function liegen ich nutze aber keine um das schonmal auszuschließen. Ich nutze jedoch anderen per Event gestarteten Code der sich auf diese Tabelle bezieht. Werde diesen Code jetzt mal Stück für Stück ausschalten und sehen ob der Fehler nicht mehr auftritt ab irgend einer Stelle.
Vielleicht ist ja hier ein Excelcrack der die Lösung des Problems schon erkennt. Vielen Dank schonmal an jeden für eure Hilfe.
ich hoffe jemand kann mir helfen mit einem mehrwürdigen Verhalten das Excel bei mir aufzeigt.
Ich nutze den folgenden Code um das User Interface in einem Excel Tool zu verschlanken. Funktioniert auch absolut einwandfrei solange bis ich eine Tabelle (um die es in dem Tool geht) manuell erweitere (blaue Ecke rechts unten um eine Zeile nach unten ziehen). Dann funktioniert kein Event mehr (gar keines mehr!) außer das Ein und Ausklappen der CommandBar"Ribbon".
In einem anderen Forum meinte jemand es könnte an einer Custom User Function liegen ich nutze aber keine um das schonmal auszuschließen. Ich nutze jedoch anderen per Event gestarteten Code der sich auf diese Tabelle bezieht. Werde diesen Code jetzt mal Stück für Stück ausschalten und sehen ob der Fehler nicht mehr auftritt ab irgend einer Stelle.
Vielleicht ist ja hier ein Excelcrack der die Lösung des Problems schon erkennt. Vielen Dank schonmal an jeden für eure Hilfe.
Code:
Private Sub Workbook_Activate()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
If Application.CommandBars("Ribbon").Height > 150 Then
Application.CommandBars.ExecuteMso "MinimizeRibbon"
End If
Sheets("LOP").Activate
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
If Application.CommandBars("Ribbon").Height < 150 Then
Application.CommandBars.ExecuteMso "MinimizeRibbon"
End If
End Sub