Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1680to1684
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
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Uhrzeit einfacher eingeben

Uhrzeit einfacher eingeben
26.03.2019 11:08:13
Robert
Ich habe eine Tabelle zur Erfassung von gearbeiteten Stunden.
Es wird eine Frühschicht und eine Spätschicht erfasst.
Dabei muss die Uhrzeit immer wie folgt eingegeben werden:
von(1) "05:30"
bis(1) "10:00"
von(2) "17:00"
bis(2) "21:30"
Die Zellen sind als "benutzerdefiniert hh:mm" formatiert.
Man muss immer penibel darauf achten, den Doppelpunkt einzufügen.
Wünschenswert wäre die Eingabe von "0530" und die Zelle interpretiert es automatisch als "05:30".
Ist so etwas möglich?

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Uhrzeit einfacher eingeben
26.03.2019 11:22:38
{Boris}
Hi,
quick and dirty - Bereich habe ich jetzt noch nicht eingeschränkt:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Target = Format(Target, "00\:00")
Application.EnableEvents = True
On Error GoTo 0
End Sub
VG, Boris
AW: Uhrzeit einfacher eingeben
26.03.2019 13:24:13
Herbert
Hallo Boris,
na das ist mal eine prima kurze Version! Ich habe dafür immer eine uralte Version von Jörg Lorenz verwendet. OK, sie hat auch funktioniert, aber deine ist mir wesentlich lieber, da sie so schön kurz ist! Vielen Dank dafür!
Servus
Anzeige
Achte doch bitte auf die Position in Thread
26.03.2019 14:14:21
EtoPHG
Herbert,
Es verwirrt mich, wenn Du Günther mit Boris ansprichst.
Im Übrigen: Lies den verlinkten Artikel von Günther, dann wirst du sehen, dass die Methode von Boris den entscheidenden Nachteil hat, dass aus der Zahl ein Text entsteht und kein Zeitwert!
Gruess Hansueli
AW: Achte doch bitte auf die Position in Thread
26.03.2019 14:23:24
Herbert
Du meine Güte, schon wieder so ein Oberlehrer! Ich bin halt um eins verrutscht. Na gut! Aber nachdem ja sowieso alle im Thread eine Benachrichtigung bekommen, spielt das doch auch keine große Rolle! Und wenn Günther nicht Boris ist, ist er auch nicht gemeint! Nix für ungut, Günther!
WIrst du jetzt empfindlich, aufs ALter? (owT)
26.03.2019 14:25:29
EtoPHG

AW: Achte doch bitte auf die Position in Thread
26.03.2019 18:05:20
{Boris}
Hi Hansueli,
ist die Zelle mit hh:mm formatiert, kommt auch ne Zahl an ;-)
VG, Boris
Anzeige
Die ultimative Eingabe
26.03.2019 13:21:16
lupo1
Da die Zeiten 1: und 2: verhältnismäßig selten vorkommen, könnte man 01:30 als q13 und 02:00 als q2 eingeben (das q ist in der Nähe von 1 und 2).
Dann besteht freie Bahn für alle anderen Zeiten:
03:40 - 34
06:00 - 6
09:15 - 915
11:00 - 11
21:30 - 213
http://xxcl.de/0018.htm
___________________________________________________________________________________________
Die VBA-Alternative dazu hat irgendwo einen Fehler; vielleicht findet den ja jemand heraus:
Private Sub Worksheet_Change(ByVal T As Range)
'Ereignis in den Code der gewünschten Tabelle kopieren
'Vorher B:B als Zeit formatieren und dort Shortcutzeiten eingeben
'Shortcuts siehe http://xxcl.de/0018.htm
If T.Column = 2 Then
Application.EnableEvents = False
T = "=--TEXT(LEFT(SUBSTITUTE(IF(ABS(CODE(" & T & ")-54)

Anzeige
AW: Uhrzeit einfacher eingeben
26.03.2019 14:04:04
Robert
Danke für eure schnelle Hilfe. Ich kenne mich mit VBA zwar überhaupt nicht aus, aber ich habe es geschafft, den kurzen Codeschnipsel im Editor unterzubringen. Und siehe da: Es funktioniert!
AW: Uhrzeit einfacher eingeben
26.03.2019 14:57:37
Robert
Ich habe gerade festgestellt, dass das Skript von Boris über das Ziel hinaus schiesst!
Auf dem selben Tabellenblatt befindet sich noch ein Feld, wo ich den Resturlaub aus dem Vorjahr eintragen möchte. Trage ich dort "3" ein, erhalte ich auch eine Uhrzeit (00:03:00)!
Kann man das irgendwie auf den Tabellenbereich beschränken?
AW: Uhrzeit einfacher eingeben
26.03.2019 15:13:58
UweD
Hallo
Ändere den Code wie folgt. (den Bereich musst du noch anpassen)
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Range("B2:B200"), Target) Is Nothing Then
        Application.EnableEvents = False
        Target = Format(Target, "00\:00")
        Application.EnableEvents = True
        On Error GoTo 0
    End If
End Sub
LG UweD
Anzeige
AW: Uhrzeit einfacher eingeben
26.03.2019 17:37:23
Robert
Danke UweD! Das scheint zu funktionieren!

302 Forumthreads zu ähnlichen Themen

"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Anzeige
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Wenn Funktion mit *
Stan

Hallo,
Ich habe eine WENN Funktion eingebaut die prüft Inhalt G2 und dann multipliziert andere Zellen.
Beispiel ==WENN(G2="A12";M2*4;WENN(G2="B12";M2*2;"Fehler")). Es kommen verschiedene Werte nach A und B vor (A12, A22, A27 usw.)
Kann ich nur erste Stelle Abfragen und die nächsten...
21.11.2008 13:27:00
Thread-ID: 1026711
3 Beiträge
Anzeige
Wenn-Formel mit 12 Bedingugen
Lars

Hallo.
Ich habe eine Frage zur Wenn-Formel. Ich möchte in Zelle A3 einen Wert ausgelesen bekommen.
Wenn A1 = D1 dann Wert aus D3
Wenn A1 = F1 dann Wert aus F3
usw.
Insgesamt sind es 12 bedingungen. Die Spalten liegen nicht nebeneinander.
10.12.2008 12:51:00
Thread-ID: 1031660
4 Beiträge
WENN Funktion mit mehr als 8 Bezügen
AcJoker

Hallo,
ich versuche eine Exceltabelle zu erstellen bei der in Spalte A etwas steht das 20 Verschieden Werte annehmen kann.
In Spalte B hätte ich gerne im Bezug auf Spalte A einen Wert stehen.
Im Hintergrund z.B. auf AA und AB gibt es eine "Übersetzung" der 20 möglichen Werte von Spa...
03.01.2009 16:13:58
Thread-ID: 1036563
6 Beiträge
Wenn Funktion mit mehreren Argumenten
Britta

Hallo Zusammen,
im moment steh ich total aufm Schlauch, ich habe mit Funktionen lange nicht gearbeitet und bekomme es grade nicht so recht hin.
Also hier das Ding: ich habe eine Tabelle in der in B2 eine Eingabe erfolgt, diese kann nur 16 oder 18 sein, sollte es anders sein, soll ein F...
07.03.2009 09:41:28
Thread-ID: 1057522
11 Beiträge
wenn dann funktion
jannis

Hallo zusammen
wäre super wenn mir einer weiterhelfen könnte!
3 lösungen bräuchte ich für folgende berechnungen
1.Beispiel
wenn das Ergebniss gößer als das Ziel dann 1 ; wenn das Ergebniss kleiner dann -1
wenn gleich bleibend dann 0
2. Beispiel (ich weis nicht ob man hi...
09.03.2009 15:02:36
Thread-ID: 1058181
22 Beiträge
Zuschlagszeit aus Arbeitszeit ermitteln mit Pause
Jürgen

Hallo Zusammen,
ich möchte aus einer Arbeitszeit die Zuschlagzeit ermitteln und eine darin evtl. enthaltene Pause abziehen. Das mit der Zuschlagszeit hab ich schon hinbekommen, bloß mit der Pause klappts einfach nicht.
Alles weitere siehe Beispielmappe:
Die Datei https://www.herber....
18.05.2009 11:16:23
Thread-ID: 1075832
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
8
5
2
10
3
5
10
21
6
3
4
1
23
2
14
11
2
6
40
16
2
1
8
5