ich möchte in einem Makro 1 Sekunde "schlafen", also die weitere Ausführung um
1 Sekunde verzögern. Dieses immer wieder in einer Schleife.
Anscheinend gibt es den Befehl SLEEP aber gar nicht.
Gibt es eine andere Möglichkeit?
Gruß
Holger
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
MsgBox (Timer)
Sleep 1000
MsgBox (Timer)
End Sub
Grüße,Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intCol As Integer
If Target.Cells.Count And Target.Address = "$L$10" Then
intCol = 14
If Columns("N:R").Hidden = True Then
Call GetPublishesExtended(ActiveSheet)
For intCol = 14 To 18
Columns(intCol).Hidden = False
Application.Wait (Now + TimeSerial(0, 0, 1))
Next intCol
Target.Interior.Color = vbYellow
Else
For intCol = 18 To 14 Step -1
Columns(intCol).Hidden = True
Application.Wait (Now + TimeSerial(0, 0, 1))
Next intCol
Target.Interior.Color = vbBlack
End If
End If
End Sub
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intCol As Integer
If Target.Cells.Count And Target.Address = "$L$10" Then
intCol = 14
If Columns("N:R").Hidden = True Then
Call GetPublishesExtended(ActiveSheet)
For intCol = 14 To 18
Columns(intCol).Hidden = False
'Application.Wait (Now + TimeSerial(0, 0, 1))
sleep 500
Next intCol
Target.Interior.Color = vbYellow
Else
For intCol = 18 To 14 Step -1
Columns(intCol).Hidden = True
'Application.Wait (Now + TimeSerial(0, 0, 1))
sleep 500
Next intCol
Target.Interior.Color = vbBlack
End If
End If
End Sub
Aber Application.Wait (Now + TimeSerial(0, 0, 0.5)) müsste auch funktionieren, oder?