in meiner 'Not' poste ich an diesem ausgewiesenermassen EXPERTEN Forum mein Problem.
Ich erfrage in einem Rhythmus von 15 min. Aktienkurse mittels Webquery im Web.
Hierzu habe ich einen entsprechenden VBA Code - funzt auch prima.
Die ganze Aktion lässt sich mittels zweier (Formular)Button auch grundsätzlich
an- bzw. ausschalten. Soweit sogut.
Versuche ich dies mittels eines (Steuerungs)ToggleButton zu realisieren,
gelingt es mir nur die Prozedur anzuschalten, leider aber nicht auszuschalten.
Habe auch keine Idee mehr ... Vielleicht weiss ja einer der Profis etwas.
Hier der dazu gehörige Code:
Code Toggle Button
Private Sub UserForm_Initialize()
ToggleButton1.Value = False
ToggleButton1.Caption = "Autom. Aktualisierung Off"
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Autom. Aktualisierung On"
Call AktienkursAktuell
Else
ToggleButton1.Caption = "Autom. Aktualisierung Off"
Call StopRefresher
Application.StatusBar = False
Range("A22").Select
End If
End Sub
Code AktienkursAktuell
Sub AktienkursAktuell()
'
' AktienkursAktuell Makro
Dim blnStop As Boolean
blnStop = False
If Not blnStop Then
Application.StatusBar = "Abfrage aktiv - letzte Aktualisierung " + Format(Now, "DD.MM.YYYY HH:MM:SS") + " - (Aktualisierung alle 15 Min.)"
Application.OnTime Now + TimeValue("00:02:00"), "AktienkursAktuell"
Range("K3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("P3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Application.Run "CDE_StockList.xls!LiveValue"
Else
Application.StatusBar = False
End If
End Sub
Code StopRefresher
blnStop = True
Range("I27").Select
Application.StatusBar = False
Range("A2").Select
End Sub
Vielen Dank schon einmal im voraus.
Chris