Sub bleibt hängen
01.11.2004 00:07:42
Barbara
hab ein kleines Problem.
Mein Programm funktioniert unter bestimmten Voraussetzungen.
Wenn ich es in Excel über das Makromenü (Alt+F8) oder direkt im VBA-Fenster starte, dann geht es.
Wenn ich es aber über Strg+Shift+x starte, dann bleibt es hängen, sobald es an eine Variable kommt, die im Bereich Option Explicit definiert ist.
Hat sicher was mit Public und Private zu tun, ein Bereich wo ich eigentlich keinen Durchblick habe.
Hier die wichtigesten Schritte:
In "Modul 1" steht:
Option Explicit
Dim sName As Integer 'Spaltennummer von Name
-------------------
Sub Statistik()
Dim Game As Worksheet 'Tabelle des Spiels
Dim varFile 'Was da wohl hergehört, wäre eine Nebenfrage
...
sName = 5 'hier bleibt das Programm stehen
...
End Sub
In "Diese Arbeitsmappe" steht:
Private Sub Workbook_Open()
Application.OnKey "^+{x}", "Statistik"'Das erlaubt den Aufruf mit einem Shortcut
End Sub
Wie kann das Problem behoben werden?
Nebenbei: Ich habe in einer früheren Frage hier in diesem Forum die Ursache dem
Application.ScreenUpdating = True 'Bildschirmanzeige ein
zugeordnet.
Udo hat mir darauf geschrieben, dass es damit nichts zu tun hat. Danke, Udo. Das hat mich nach längerem Suchen auf hier beschriebenes Problem gebracht.
LG, Barbara
Anzeige