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, 7075 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 ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ä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 ...

Heiß diskutierte Inhalte
CPU, RAM, Mainboards
Kaufberatung für mind. 8 verschiedene HighEnd-Mainboards (23)

Frage von yperiu zum Thema CPU, RAM, Mainboards ...

Mac OS X
Mac kann nicht im LAN pingen alle anderen schon (19)

Frage von smartino zum Thema Mac OS X ...

Hardware
gelöst PCI-Express-Adapterfrage (14)

Frage von DerWoWusste zum Thema Hardware ...

Linux Netzwerk
DHCP IP-vergabe erst nach 1-2 Minuten (11)

Frage von Maik82 zum Thema Linux Netzwerk ...