keine Aktionen, obwohl Code abgearbeitet
14.10.2004 14:35:20
zdena
kann mir nicht erklären, dass obwohl über Debugger angezeigt wird, dass der Programmcode abgearbeitet wird, nichts passiert:
Ausgangssituation:
Öffne eine Excel-Liste als schreibgeschützt durch eine Start .xls:
*************************************
Dim a As Variant
On Error Resume Next
'Schreibschutz setzen
On Error Resume Next
SetAttr "\\Si39467\atmo2$\ATMO-Tools\Prozessubersichtsliste\light\PUEL_Liste.xls", vbReadOnly
Workbooks.Open FileName:= _
"\\Si39467\atmo2$\ATMO-Tools\Prozessubersichtsliste\light\PUEL_Liste.xls", _
Notify:=True
ThisWorkbook.Close
*************************************
in der schreibgeschützen Datei, bei der die Zeilen 3 - 7 ausgeblendet sind, wird zum Einblenden gerade dieser Zeilen folgende Prozedur aufgerufen und abgearbeitet.
**************************************************************
Sub ShowTools()
'Unhide the top most rows
ActiveSheet.Rows("3:7").Select
Selection.EntireRow.Hidden = False
ActiveSheet.Cells(1, 3).Activate
'Set the mode to full screen
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Ansicht").Controls("Ganzer Bildschirm").Execute
Application.CommandBars(1).Enabled = False
Application.CommandBars("Full Screen").Enabled = False
Tools.Show
End Sub
**************************************************************
es passiert aber nichts! Kein Einblenden der Zeilen 3 - 7, obwohl Programmcode
ganz klar sagt, bitte einblenden ...
Wenn ich an dieser Stelle nachträglich über Debugger Prozedur ablaufen lasse, wird alles korrekt gemacht. Ich verstehe es nicht mehr.
Habt Ihr eine Antwort darauf. Bin für jede Rückmeldung dankbar.