7
Excel 2003-2007 - Bildlaufleiste ein-ausblenden
Hallo,
gegeben sind mehrere Tabellenblätter wo die Bildlaufleisten ausgeblendet sind. Jetzt möchte ich für ein Tabellenblatt die Bildlaufleisten wieder einblenden.
Ich habe es mit folgenden Code probiert und keinen Erfolg gehabt:
Komme leider nicht mehr weiter.
have a nice day...
DockM@ster
gegeben sind mehrere Tabellenblätter wo die Bildlaufleisten ausgeblendet sind. Jetzt möchte ich für ein Tabellenblatt die Bildlaufleisten wieder einblenden.
Ich habe es mit folgenden Code probiert und keinen Erfolg gehabt:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Tabelle9" Then
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Else
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End If
End SubKomme leider nicht mehr weiter.
have a nice day...
DockM@ster
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 168123
Url: https://administrator.de/contentid/168123
Ausgedruckt am: 20.11.2024 um 15:11 Uhr
7 Kommentare
Neuester Kommentar
probier mal folgendes: ersetze in Zeile 02. das ActiveSheet.Name durch Sh.Name
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Tabelle9" Then
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Else
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End If
End Sub
brachte leider keinen Erfolg.
DockM@ster
DockM@ster
Hallo DockMaster-de!
Und hast Du diesen Code auch in 'Diese Arbeitsmappe' eingefügt?
Gruß Dieter
Und hast Du diesen Code auch in 'Diese Arbeitsmappe' eingefügt?
Gruß Dieter
Der Code steht in 'Diese Arbeitsmappe'
have a nice day...
DockM@ster
have a nice day...
DockM@ster
Hallo DockMaster-de!
Handelt es sich dabei auch um einen normale Arbeitsmappe?
Wenn ja, habe ich leider keine Erklärung dafür, zumal Dein Code bei mir (Excel-Version 2002) problemlos funktioniert.
Hast Du im Debugger auch mal einen Haltepunkt für die Sub gesetzt, um zu prüfen, ob die Ereignis-Routine beim Sheet-Wechsel überhaupt aufgerufen wird?
Gruß Dieter
Handelt es sich dabei auch um einen normale Arbeitsmappe?
Wenn ja, habe ich leider keine Erklärung dafür, zumal Dein Code bei mir (Excel-Version 2002) problemlos funktioniert.
Hast Du im Debugger auch mal einen Haltepunkt für die Sub gesetzt, um zu prüfen, ob die Ereignis-Routine beim Sheet-Wechsel überhaupt aufgerufen wird?
Gruß Dieter
Die Sub wird nicht aufgerufen! Bin dann in den VBA-Editor gegangen und wollte die Sub mit F5 starten (Haltepunkt gesetzt). Es öffnete sich das Fenster mit der Makro-Auswahl (warum?). Da alle 'Private Sub' sind kann man auch nichts auswählen. Danach wollte ich per F8 debuggen und nichts passierte. Alle anderen Subs funktionieren.
have a nice day...
DockM@ster
have a nice day...
DockM@ster
Hallo DockMaster-de!
Das das Debuggen mit der F8-Taste nicht funktioniert ist klar, da die Sub ja einen Parameter benötigt (ByVal...). Dazu müsstest Du z.B eine Sub Test definieren und die Ereignis-Proz mit ActiveSheet als Übergabe-Parameter aufrufen.
Füge mal diese Sub ein und starte diese im VB-Editor:
Ereignis-Aufrufe aktiviert/deaktiviert = Wahr/Falsch
Gruß Dieter
Das das Debuggen mit der F8-Taste nicht funktioniert ist klar, da die Sub ja einen Parameter benötigt (ByVal...). Dazu müsstest Du z.B eine Sub Test definieren und die Ereignis-Proz mit ActiveSheet als Übergabe-Parameter aufrufen.
Füge mal diese Sub ein und starte diese im VB-Editor:
Sub test()
MsgBox Application.EnableEvents
End SubGruß Dieter
