Makro warten bis refresh - Fehler
23.09.2022 13:24:08
Dennis
ich habe leider ein Problem beim Warten des Makros. Ich habe den unten stehenden Code geschrieben. Dort soll eine Tabelle (Rechnungen mittels PQ) aktualisiert werden, da diese in der Vorlage leer ist. Sobald das Ergebnis da ist, soll dies genommen werden um zu gucken ob eine Schaltfläche eingeblendet wird. In Zelle(5,12) ist eine Formel hinterlegt welche die eindeutigen Ergebnisse zählt. Daher wird dort drauf verlinkt. Wenn es Einträge gibt dann muss diese erscheinen, wenn nicht dann nicht.
Es hängt vor dem x= ... Hier wartet das Makro nicht und er erkennt immer x als 0 an. Könnt ihr mir sagen wo der Fehler ist? Oder geht diese(r) Abfrage/Code auch anders?
Viele Grüße
Dennis
Sub Auswertung()
Application.ScreenUpdating = False
Set ta = Worksheets("Auswertung")
Set tb = Worksheets("Avisdaten")
ActiveWorkbook.RefreshAll
Do
DoEvents
Loop Until Application.CalculationState = xlDone
x = ta.Cells(5, 12)
If x > 0 Then
ta.Shapes.Range(Array("Rounded Rectangle 1")).Visible = True
Else
End If
Application.ScreenUpdating = True
End Sub