ja bei dir geht es
Super Top.
Kurze Frage noch:
Ich hab jetzt mal eine Sekunde gemacht, würde es noch einen Tick schneller gehen ?
Oder geht es nur Sekunde.
Danke für alles
Danke, werde es morgen gleich testen.
Hallo
danke es funktioniert.
Da es ganz kkeine Zellen sind ist 9/ 10 immer noch zu laangsam
würde es um die Hälfte schneller gehen ?
Danke
Guten Morgen Jürschen,
ja klar.
Wie oben nur am Ende eine 5.
Gruß
Ich
Hallo Jürschen,
Application.Wait geht minimal eine Sekunde, egal was man da schreibt.
Mit der API-Funktion SLEEP geht es jedoch auch kürzer.
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Declare Sub Sleep Lib "Kernel32" (ByVal mS As Long)
Sub Weg1_zeigen()
Dim rngWeg As Range
Dim i As Long
Set rngWeg = Range("A4,A5,B5,C5,D5,E5,F5,G5,G6,G7,H7,I7,J7,K7,L7,M7,N7,O7,P7,Q7,R7")
Application.Intersect(rngWeg.EntireRow, rngWeg.EntireColumn).Interior.Color = xlNone
Sleep 500
For i = 1 To rngWeg.Areas.Count
rngWeg.Areas(i).Interior.Color = vbYellow
Sleep 77 'Pause in Millisekunden
Next i
End Sub
Gruß Uwe
(28.09.2016, 08:17)Kuwer schrieb: [ -> ]Application.Wait geht minimal eine Sekunde, egal was man da schreibt.
Hallo Uwe,
unbefangen davon das Dein Code deutlich handlicher ist, nimmt Application.Wait schon andere Zeitwerte.
Test 1 mit einer Sekunde und Test 2 mit 0,5 Sekunden.
Code:
Start Test1: 28.09.2016 10:11:42
Ende Test1: 28.09.2016 10:11:45
Start Test2: 28.09.2016 10:11:56
Ende Test2: 28.09.2016 10:11:56
Gruß
Ich
Hallöchen,
noch ein Hinweis vor dem Schlafen. Wait ist auch ungenauer und braucht mehr Systemressourcen.
http://www.xltips.de/ftxt/vba-api/sleep_txt.html
http://www.xltips.de/VBA-API.html --> hier fast ganz unten Beispiel 2a und 2b