Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Uhrzeit

Uhrzeit
22.06.2006 07:25:49
Erich
Hallo Excelaner....
Habe ein Problem das ich nicht lösen kann.
In Zelle "B1" steht "08:00" Format ( hh:mm )
In Zelle "C1" steht "16:00" Format ( hh:mm )
Nun möchte ich, wenn Time innerhalb der Zeit ist,
in einem Label auf der UF einen Hinweis geben z.B. "Tageszeit".
Wenn außerhalb " Heute nicht "
Mit If und And oder If und Or komme ich nicht weiter.
Kann mir jemand einen Tipp in VBA geben ?
Gruss Erich

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Uhrzeit
22.06.2006 07:53:28
Erich
Hallo Namnsvetter,
vielleicht so? 
   With Sheets(1)
If .Range("B1") <= Time() And Time() < .Range("C1") Then _
Label1 = "Tageszeit" Else Label1 = "Heute nicht"
End With
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Uhrzeit
22.06.2006 08:03:00
Erich
Hallo Erich....
Danke klappt perfekt.
Gruss Erich
AW: Uhrzeit
22.06.2006 08:01:11
Harald
Moin Erich,
hoffe das reicht als Tipp

Sub uhrzeit()
Dim zeit
zeit = Format(Now, "hh:mm")
If zeit >= Range("b1") And zeit < Range("c1") Then
With UserForm1
.Label1.Caption = "Heute"
.Show
End With
Else
With UserForm1
.Label1.Caption = "Heute nicht"
.Show
End With
End If
End Sub

Gruss Harald
Anzeige

Links zu Excel-Dialogen

Label UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige