Zeile markieren

[Jürschen175]

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

[IchBinIch]

Hi,

für 9/10 so

Code:

Application.Wait (Now + 0.000009)

Gruß
Ich

[Jürschen175]

Danke, werde es morgen gleich testen.

[Jürschen175]

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

[IchBinIch]

Guten Morgen Jürschen,

ja klar. 
Wie oben nur am Ende eine 5.

Gruß 
Ich

[Kuwer]

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

[IchBinIch]

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

[schauan]

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