bestimmten Befehl zu bestimmten Uhrzeit

Karsten · 2009-03-01T01:15:29+00:00

Hallo, ich würde gern zu einer bestimmten Uhreit einen bestimmten Befehl ablaufen lassen. Z.B. jeden Tag 15:00 den und 16:00 den anderen. Nun ist in Excel einer bestimmten Uhrzeit eine bestimmte Zahl zugeordnet, die mir nichts nützt, weil sie ein ganzes Datum wiedergibt. Kennt jemand eine Möglichkeit so etwas nicht Datumbezogen zu machen? Danke für eure Hilfe. Gruß Karsten

Hallo Karsten,
dann nimm diesen Code.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub nextAppointment()
  Dim lngDay As Long, lngCol As Long, lngRow As Long, strRng As String, dblTime As Double

  lngDay = Weekday(Date, vbMonday)

  If lngDay > 5 Then lngDay = 1

  lngCol = (lngDay - 1) * 3 + 1

  On Error GoTo ErrExit

  With ActiveSheet
    If lngDay <> Weekday(Date, vbMonday) Then
      lngRow = 3
    Else
      strRng = .Range(.Cells(1, lngCol), .Cells(50, lngCol)).Address
      dblTime = Evaluate("MAX(IF((" & strRng & "<=(NOW()-INT(NOW())))*(" & strRng & "<>0)," & strRng & "))")
      lngRow = Application.Match(dblTime, .Range(strRng), 0)
    End If
    Application.Goto .Cells(lngRow, lngCol)
  End With

  ErrExit:
End Sub

Gruß Sepp

Hallo Sepp,
Außerhalb der Zeiten in meinem Stundenplan landet die aktive Zelle durch u.st. Befehl auf: Montag, Dienstag usw. bis Freitag
With ActiveCell
Range(.Offset(0, 1), .Offset(0, 1)).Select
End With
Wenn dieser Fall eintritt, sollte mein Makro beendet werden. Ich bekomme es allein aber nicht hin. Der komplette Befehl ist nochmal hier.
Dim lngDay As Long, lngCol As Long, lngRow As Long, strRng As String, dblTime As Double
lngDay = Weekday(Date, vbMonday)
If lngDay > 5 Then lngDay = 1~f~
lngCol = (lngDay - 1) * 3 + 1
On Error GoTo ErrExit
With ActiveSheet
~f~ If lngDay <> Weekday(Date, vbMonday) Then~f~
lngRow = 3
Else
strRng = .Range(.Cells(3, lngCol), .Cells(50, lngCol)).Address
~f~ dblTime = Evaluate("MIN(IF((" & strRng & ">=(NOW()-INT(NOW())))*(" & strRng & "<>0)," & strRng & "))")~f~
lngRow = Application.Match(dblTime, .Range(strRng), 0)
End If
Application.Goto .Cells(lngRow, lngCol)
End With
With ActiveCell
Range(.Offset(0, 1), .Offset(0, 1)).Select
End With
'wenn aktive Zelle=Montag usw. ist, dann Ende'
Application.Run "Lehrbericht"
Danke für deine Hilfe. (Die musste ich setzen, damit ich überhaupt absenden konnte.)
Gruß
Karsten

bestimmten Befehl zu bestimmten Uhrzeit

Forumthread: bestimmten Befehl zu bestimmten Uhrzeit

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

bestimmten Befehl zu bestimmten Uhrzeit

Forumthread: bestimmten Befehl zu bestimmten Uhrzeit

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread