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, 6986 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
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Exchange Server
gelöst Microsoft Excange Server 2007 auf Windows Server 2003 Installieren? (9)

Frage von Herbrich19 zum Thema Exchange Server ...

Exchange Server
Exchange 2003 auf 2007 Implace Migration (18)

Frage von Herbrich19 zum Thema Exchange Server ...

Microsoft Office
Excel 2007: Sortierung ohne ins Datenblatt zu springen (2)

Frage von JoSiBa zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...