Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Rubinia vom 29.05.2019, 14:50 Options
Etwas zu einem bestimmten zeitpunkt in einer Excel Zelle anzeigen lassen?
Hallo!
Ist es möglich angelehnt an die Systemuhr, Excel zu sagen das er zu einem bestimmten Datum und zu einer bestimmten Zeit etwas in einer Zelle anzeigen lassen soll? Ich denke da an soetwas ähnliches wie eine "Wenn Funktion" muss aber nicht sein...
Danke !
mfg Rubinia
Ist es möglich angelehnt an die Systemuhr, Excel zu sagen das er zu einem bestimmten Datum und zu einer bestimmten Zeit etwas in einer Zelle anzeigen lassen soll? Ich denke da an soetwas ähnliches wie eine "Wenn Funktion" muss aber nicht sein...
Danke !
mfg Rubinia
Antwort 1 von Excilianer vom 02.06.2019, 16:00 Options
Hi,
Versuchs mal so:
Wenn in Zelle E2 ein Zeitwert steht
=WENN(JETZT()>=E2;"Die Zeit ist reif";"")
oder auch
=WENN(JETZT()>=ZEIT(15;48;30)+DATWERT("02.06.2007");"Es ist Zeit";"Noch zu Früh")
Wenn es am 2.6.07 nach 15Uhr 48Min und 30Sekunden passieren soll
viel Erfolg
Versuchs mal so:
Wenn in Zelle E2 ein Zeitwert steht
=WENN(JETZT()>=E2;"Die Zeit ist reif";"")
oder auch
=WENN(JETZT()>=ZEIT(15;48;30)+DATWERT("02.06.2007");"Es ist Zeit";"Noch zu Früh")
Wenn es am 2.6.07 nach 15Uhr 48Min und 30Sekunden passieren soll
viel Erfolg
Antwort 2 von fedjo vom 03.06.2019, 12:47 Options
Hallo Rubinia ,
den Code in das Codefenster in "DieseArbeitsmappe" eintragen.
Nach einer Eingabe oder Änderung in SpalteA
wird nach der eingestellten Zeit (Sekunden) eine MsgBox aufgerufen und in ZelleB1 erfolgt ein Eintrag oder..........
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Cells(Target.Row, Target.Column) <> "" Then
Dim dblSeconds As Double
Dim dblWaitTimerStart As Double
Dim dblWaitTimerLast As Double
dblWaitTimerLast = 0
dblWaitTimerStart = Timer
TryAgain:
dblWaitTimerLast = Timer
DoEvents
If dblWaitTimerLast - dblWaitTimerStart <= dblSeconds Then
Do
If Timer - dblWaitTimerLast >= 1.1 Then 'Tatsächliche Dauer der Warteschleife in Sekunden
Exit Do
End If
DoEvents
Loop
If Timer > dblWaitTimerLast Then
GoTo TryAgain
End If
End If
Range("B1").Value = "Es ist Zeit"
MsgBox ("In B1 Hinweis beachten")
End If
End Sub
den Code in das Codefenster in "DieseArbeitsmappe" eintragen.
Nach einer Eingabe oder Änderung in SpalteA
wird nach der eingestellten Zeit (Sekunden) eine MsgBox aufgerufen und in ZelleB1 erfolgt ein Eintrag oder..........
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Cells(Target.Row, Target.Column) <> "" Then
Dim dblSeconds As Double
Dim dblWaitTimerStart As Double
Dim dblWaitTimerLast As Double
dblWaitTimerLast = 0
dblWaitTimerStart = Timer
TryAgain:
dblWaitTimerLast = Timer
DoEvents
If dblWaitTimerLast - dblWaitTimerStart <= dblSeconds Then
Do
If Timer - dblWaitTimerLast >= 1.1 Then 'Tatsächliche Dauer der Warteschleife in Sekunden
Exit Do
End If
DoEvents
Loop
If Timer > dblWaitTimerLast Then
GoTo TryAgain
End If
End If
Range("B1").Value = "Es ist Zeit"
MsgBox ("In B1 Hinweis beachten")
End If
End Sub
Ähnliche Themen
Excel: Zeilenlänge > X anzeigen?
Arantxa 08.08.2007 - 52 Hits - 4 Antworten
Datum zählen in Excel
xxxy 09.10.2007 - 131 Hits - 3 Antworten
Excel : In einer Zelle hinterlegter Hyperlink in Zelle daneben in Textform anzeigen lassen
Taka 10.12.2007 - 237 Hits - 12 Antworten
Word Dokument in Excel-Tabelle anzeigen lassen
Gras 28.01.2008 - 67 Hits - 1 Antwort
Excel - Wert in leere Zelle schreiben lassen? //*CLOSED*//
Strampe 29.02.2008 - 256 Hits - 12 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
