Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel 2003-2007 - Bildlaufleiste ein-ausblenden

Frage Entwicklung VB for Applications

Mitglied: DockMaster-de

DockMaster-de (Level 1) - Jetzt verbinden

16.06.2011 um 13:01 Uhr, 7110 Aufrufe, 7 Kommentare

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:

01.
Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
02.
    If ActiveSheet.Name = "Tabelle9" Then 
03.
        With ActiveWindow 
04.
            .DisplayHorizontalScrollBar = True 
05.
            .DisplayVerticalScrollBar = True 
06.
        End With 
07.
    Else 
08.
        With ActiveWindow 
09.
            .DisplayHorizontalScrollBar = False 
10.
            .DisplayVerticalScrollBar = False 
11.
        End With 
12.
    End If 
13.
End Sub
Komme leider nicht mehr weiter.

have a nice day...

DockM@ster
Mitglied: colinardo
16.06.2011 um 14:38 Uhr
probier mal folgendes: ersetze in Zeile 02. das ActiveSheet.Name durch Sh.Name
01.
Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
02.
    If Sh.Name = "Tabelle9" Then 
03.
        With ActiveWindow 
04.
            .DisplayHorizontalScrollBar = True 
05.
            .DisplayVerticalScrollBar = True 
06.
        End With 
07.
    Else 
08.
        With ActiveWindow 
09.
            .DisplayHorizontalScrollBar = False 
10.
            .DisplayVerticalScrollBar = False 
11.
        End With 
12.
    End If 
13.
End Sub
Bitte warten ..
Mitglied: DockMaster-de
16.06.2011 um 15:25 Uhr
brachte leider keinen Erfolg.

DockM@ster
Bitte warten ..
Mitglied: 76109
16.06.2011 um 16:16 Uhr
Hallo DockMaster-de!

Und hast Du diesen Code auch in 'Diese Arbeitsmappe' eingefügt?

Gruß Dieter
Bitte warten ..
Mitglied: DockMaster-de
16.06.2011 um 17:51 Uhr
Der Code steht in 'Diese Arbeitsmappe'

have a nice day...

DockM@ster
Bitte warten ..
Mitglied: 76109
16.06.2011 um 19:37 Uhr
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
Bitte warten ..
Mitglied: DockMaster-de
16.06.2011 um 20:59 Uhr
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
Bitte warten ..
Mitglied: 76109
17.06.2011 um 16:26 Uhr
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:
01.
Sub test() 
02.
    MsgBox Application.EnableEvents 
03.
End Sub
Ereignis-Aufrufe aktiviert/deaktiviert = Wahr/Falsch

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel 2007 Transponieren von Gruppen oder Blöcken mit VBA (7)

Frage von Chrissy123 zum Thema Microsoft Office ...

Exchange Server
gelöst Microsoft Excange Server 2007 auf Windows Server 2003 Installieren? (11)

Frage von Herbrich19 zum Thema Exchange Server ...

Exchange Server
Exchange 2003 auf 2007 Implace Migration (18)

Frage von Herbrich19 zum Thema Exchange Server ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(4)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (41)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

LAN, WAN, Wireless
gelöst Statische Routen mit ISC-DHCP Server für Android Devices (20)

Frage von terminator zum Thema LAN, WAN, Wireless ...