Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Filter Auslösung wenn Uhrzeit

Filter Auslösung wenn Uhrzeit
Thomas
Hallo,
ich hab ein paar Fragen.
1.Wie bekomme ich eine laufende Uhrzeit mit Sekunden in Excel.
2. Wie kann ich dann eine wenn Bedingung einführen z. B wenn 14:30:15 dann schreibe in Zelle A2 Alert ansonsten nichts
3. Oder wie kann ich zu einer bestimmten zeit von einer Zelle A2 den Inhalt auf Zelle A3 kopieren.
Danke für jeden Hinweis.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Filter Auslösung wenn Uhrzeit
08.07.2012 16:01:59
Hajo_Zi
zu 2 wenn(Jetzt()-Heute()="14:30:15"*1;"Alert";"")
Du hast nur das Problem das Du im Sekundentakt die Taste F9 betätigen mußt.

AW: Filter Auslösung wenn Uhrzeit
08.07.2012 16:14:55
Thomas
danke Hajo, aber das ist das Problem ich möchte nicht dauern F9 drücken.
da muss es doch eine andere Lösung geben.
AW: Filter Auslösung wenn Uhrzeit
08.07.2012 18:48:52
Hajo_Zi
ja mit einem Code der jede Sekunde ausgelöst wird. Suche mal nach OnTime
Gruß Hajo
AW: Filter Auslösung wenn Uhrzeit
08.07.2012 17:19:22
Josef

Hallo Thomas,
ein einfaches Beispiel.
https://www.herber.de/bbs/user/80899.xlsm

« Gruß Sepp »

Anzeige
AW: Filter Auslösung wenn Uhrzeit
08.07.2012 19:37:31
Thomas
Perfekt. Jedoch würde ich gerne zur einer bestimmten Zeit z.b 18Uhr den Inhalt einer bestimmten Zelle z.B A1 in ein anderes Blatt kopieren. Nächsten Tag 18 Uhr darunter und soweiter.
Für Tips wäre ich dankbar.
AW: Filter Auslösung wenn Uhrzeit
09.07.2012 20:10:04
Josef

Hallo Thomas,
das geht z. B. so.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  StopTimer
End Sub


Private Sub Workbook_Open()
  StartTimer
End Sub


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

Option Explicit

Public RunWhen As Double
Public Const cRunWhat = "copyCell"

Sub StartTimer()
  RunWhen = TimeSerial(18, 0, 0) 'Startzeit 18:00:00
  
  Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
    schedule:=True
  
End Sub


Sub StopTimer()
  On Error Resume Next
  Application.OnTime earliesttime:=RunWhen, _
    procedure:=cRunWhat, schedule:=False
  
End Sub


Sub copyCell()
  With Sheets("Tabelle2") 'Zieltabelle
    .Cells(Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row + 1), 1) = _
      Sheets("Tabelle1").Range("A1").Value 'Quellzelle
  End With
End Sub


« Gruß Sepp »

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige