Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 7320 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
CSS
gelöst CSS: Menü ein- und ausblenden (6)

Frage von honeybee zum Thema CSS ...

Batch & Shell
gelöst Powershell Mauszeiger ausblenden (11)

Frage von Marabunta zum Thema Batch & Shell ...

Exchange Server
Exchange 2003 auf 2007 Implace Migration (18)

Frage von Herbrich19 zum Thema Exchange Server ...

Windows Update
Microsoft Patch mit fehlern dauerhaft ausblenden? (2)

Frage von Thor01 zum Thema Windows Update ...

Neue Wissensbeiträge
Viren und Trojaner

Link: Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...

Switche und Hubs
gelöst VLAN für Gäste WLAN einrichten über FritzBox und Switch (10)

Frage von Elo-14 zum Thema Switche und Hubs ...