wait
21.10.2013 07:35:08
Lothar
hab da ein kleines Problem.
Ich habe mir ein Makro gebastelt, das auf einem Blatt einiges ausführt.
Dieses Blatt ("Daten") ist für Basiseingaben . Wenn diese erledigt sind soll das Makro zum Blatt ("QIP") wechseln, in dem dann die speziellen Eingaben gemacht werden sollen .Zwischendurch soll es aufs Blatt ("TSB RWE")wechseln und dort einige Sekunden verharren, nur um zu sehen ob alle Eingaben korrekt sind, es werden keine Eingaben oder sonstiges in diesem Blatt getätigt.Das Makro funktioniert im allgemeinen perfekt, nur das mit dem wait klappt nicht, es wartet die eingestellte Zeit bevor es überhaupt was macht und rennt dann voll durch. Welchen Fehler habe ich gemacht ?
Private Sub CommandButton2_Click()
Dim s As String
Application.ScreenUpdating = False
Range("B65536").End(xlUp).Offset(0, -1).Select
s = ActiveCell
Sheets("QIP").Range("K7") = s
ActiveCell.Offset(0, 3).Value = Date
Call FormelÜbertragen
Sheets("TSB RWE").Select
Application.Wait (Now + TimeValue("0:00:05"))
Sheets("QIP").Select
Application.ScreenUpdating = True
End Sub
Gruß Lothar