Makrobearbeitung für einige Sekunden anh
06.06.2020 00:16:29
reiner
in nachfolgendem Beispielcode wird nach einer Ja Antwort die Zeile 5 eingeblendet und die bisher verdeckten Zellen angezeigt.
Nach einer Wartezeit von ca. 5 Sekunden soll die Zeile 5 wieder ausgeblendet werden.
Ich suche eine Möglichkeit, die Zeile 5 einzublenden und nach Ablauf der Wartezeit soll die Makrobearbeitung fortgesetzt und die Zeile 5 wieder ausgeblendet werden.
Private Sub chkDoppeltLösung_Click()
If chkDoppeltLösung.Value = True Then
Abfrage = MsgBox("wenn Lösung eingeblendet werden soll, " _
& vbCr _
& vbCr _
& "werden 3 Strafpunkte abgezogen; " _
& vbCr _
& vbCr _
& "Lösung trotzdem einblenden? ", _
vbYesNo + vbInformation, "L Ö S U N G einblenden?")
If Abfrage = 6 Then
Rows("5:5").Select
Selection.EntireRow.Hidden = False
End If
If Abfrage = 7 Then
chkDoppeltLösung.Value = False
chkDoppeltLösung.Enabled = False
End If
End If
Warten
Warten
Warten
Warten
Warten
Rows("5:5").Select
Selection.EntireRow.Hidden = True
End Sub
Mit Application.OnTime Now + TimeSerial(0, 0, 5) wird zwar die Bearbeitung für 5 sek. angehalten, aber die Zeile 5 wird weder ein- noch ausgeblendet.
Kennt jemand eine andere Möglichkeit?
mfg
reiner