Status von Ereignis prüfen
21.12.2018 19:52:07
Ereignis
ich möchte aus einer Sub Prozedur heraus ein Workbook öffnen und innerhalb einer "Do Loop" Schleife prüfen ob das Workbook offen ist "ohne Dabei auf die .Name Eigenschaft zurück zu greifen".
Mit folgendem Code lande ich nach dem Öffnen des Workbooks in einer Endlosschleife:
Private Sub DoAnything()
Dim Pfad As String
Dim wb As Object
Dim Count As Long
Pfad = "C:\Users\Public\Geldanlage & Börse\Pivot Tabellen & Auswertungen\Dividendenbewertung\ _
Dividenden-Kalkulation-Pivot.xlsm"
Count = 1
Do
Set wb = Workbooks.Open(Pfad)
DoEvents
Debug.Print Count
Count = Count + 1
Loop
End Sub
Ich weiß zum Einen nicht was an meiner DoEvents Schleife falsch ist und ich frage mich ob es nicht eine Möglichkeit gäbe das Problem mit Hilfe von "Do Until" zu lösen aber ich weiß nicht wie ich abfragen kann ob das Ereignis durchgeführt wurde.
Gruß,
Marc