Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox für Zeiteingabe definieren

Forumthread: TextBox für Zeiteingabe definieren

TextBox für Zeiteingabe definieren
24.07.2024 13:27:40
Saffi
Hallo werte Community,

ich habe ein Fourmlar mit diversen Textboxen. In denen ich Einträge verschiedenster Art vornehme. Was mich allerdings zur Verzweiflung bringt, ist die richtige Formatierung einer TextBox für Zeiteingabe. Ich möchte gern, das mittels AfterUpdate die Eingabe von bspw. 1230 auf 12:30 (Stunden Minuten) gesetzt wird, um eine benutzerfreundliche Eingabe zu erhalten. Aber, dieser Wert soll dann später auch als Zeitwert in einer Tabelle eingetragen werden.

Erster Ansatz brachte nicht den erwünschten Erfolg: 

Private Sub TextBoxDruckzeit_AfterUpdate()



    Dim a As String

    a = Len(Me.TextBoxDruckzeit)

    If a = 2 Then

        Me.TextBoxDruckzeit = Left(Me.TextBoxDruckzeit, a) & ":" & 0

    End If

    TextBoxDruckzeit = Format(Me.TextBoxDruckzeit.Value, "hh:mm")



End Sub


Hier erhalte ich bei der Eingabe 1230 nur eine 00:00.

Meine Daten werden aus dem Formular mittels dieser Befehlszeile: 



Druckzeit = Me.TextBoxDruckzeit.Text

....

Cells(last, 12).Value = Druckzeit
(Auszug aus meinem Code)

eingetragen.

Im Anschluss formatiere ich sogar das Tabellenblatt nochmals.

Beispiel: 



    Columns("J").NumberFormat = "#,##0.00 €"    'Betrag

    Columns("K").NumberFormat = "@"             'Kommentar

    Columns("L").NumberFormat = "hh:mm"         'Zeit


Ist nur ein Auszug!

Vielen Dank im Voraus für Anregung und Hilfe. ;)
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox für Zeiteingabe definieren
24.07.2024 14:08:00
Saffi
Habe nun mal versucht den ersten Codeschnipsel aussen vor zu lassen. nun wird 1230 zwar übergeben, aufgrund meiner Nachformatierung der Tabellenspalte steht dann auch wieder 00:00 drin. Unter Zellformatierung kann ich aber mittels Format Zahl die 1230 auslesen. Vielleicht ist das für euch noch ein weiterer Ansatz dazu. Danke euch!
Anzeige
AW: TextBox für Zeiteingabe definieren
29.07.2024 11:04:06
daniel
Hi
verwende in diesem Fall LIKE um festzustellen was der Anwender eingegeben hat.
LIKE hat einen Joker für Ziffern #, damit kann man dann explizt prüfen: 

With TextBoxDruckzeit

    if .Text like "##:##" then

        'nix machen

    elseif .Text like "#:##" Then

        .Text = "0" & .Text

    elseif .Text like "####" or .Text like "###" then

        .Text = Format(Clng(.text), "00\:00")

    else

    end if

    if Isdate(.Text) then 

        Cells(last, 12).Value = CDate(.Text)

    else

        Msgbox "Bitte korrekte Uhrzeit in der Form ""12:30"" oder ""1230"" eingeben.

    end if

end with


Gruß Daniel
Anzeige
AW: TextBox für Zeiteingabe definieren
24.07.2024 14:14:03
Oberschlumpf
Hi,

ich weiß keine Lösung, aber...

Vielleicht hilft es anderen Antwortern, wenn du per Upload eine Bsp-Datei mit Bsp-Daten und Textboxen zeigst und innerhalb der Datei erklärst, was du versucht hast, was dann anders rausgekommen ist, wie du es haben willst.

Ciao
Thorsten
Anzeige
AW: TextBox für Zeiteingabe definieren
24.07.2024 14:34:43
Saffi
Danke für Deinen Hinweis.

Ich habe mal eine abgespeckte Version erstellt. Vielleicht kann mir einer dabei helfen. Danke.

https://www.herber.de/bbs/user/171229.xlsm

AW: TextBox für Zeiteingabe definieren
24.07.2024 15:06:28
peter
Hallo

Probier mal 



Private Sub TextBoxDruckzeit_AfterUpdate()



    Dim a As String

    

    a = Me.TextBoxDruckzeit



    If Len(a)  4 Then

        a = "0" & a

    End If

    a = Mid(a, 1, 2) & ":" & Mid(a, 3, 2)



    Me.TextBoxDruckzeit = a

  

    TextBoxDruckzeit = CDate(Me.TextBoxDruckzeit.Value)



End Sub


Peter
Anzeige
AW: TextBox für Zeiteingabe definieren
24.07.2024 15:12:09
Saffi
Der Wahnsinn. Hat auf Anhibe geklappt. Werde dies nun in meine bestehende Datenbank einbauen. Das hat mir sehr geholfen. ;O)
AW: TextBox für Zeiteingabe definieren
27.07.2024 20:37:41
Saffi
Hallo Peter,

vielleicht liest du das noch.

Der Code klappt soweit sehr gut. Ich habe aber ein kleines Phänomen beobachtet.

Wenn ich im Formular meine Zeit eintrage und ich mittels Tab-Taste weitergehe, kommt ein Laufzeitfehler 13 / Typen unverträglich

Wenn ich aber meine Eingabe tätige und mit der Maus von Feld zu Feld gehe, dann kommt keine Fehlermeldung

Die Zeile, wo der Fehler erscheint ist 

TextBoxDruckzeit = CDate(Me.TextBoxDruckzeit.Value)


Dein gesamter Codeschnipsel war: 

Private Sub TextBoxDruckzeit_AfterUpdate()



    Dim a As String

    

    a = Me.TextBoxDruckzeit



    If Len(a)  4 Then

        a = "0" & a

    End If

    a = Mid(a, 1, 2) & ":" & Mid(a, 3, 2)



    Me.TextBoxDruckzeit = a

  

    TextBoxDruckzeit = CDate(Me.TextBoxDruckzeit.Value)



End Sub


Vielleicht hast Du noch einen Lösungsansatz für mich.

Besten dank im Voraus.
Anzeige
AW: TextBox für Zeiteingabe definieren
29.07.2024 10:39:07
peter
Hallo

Wenn schon eine "richtige" Uhrzeit drinnen ist kommt es zum Fehler.

Probier mal 



Private Sub TextBoxDruckzeit_AfterUpdate()



    Dim a As String

    

    a = Me.TextBoxDruckzeit



    If Len(a)  4 Then

        a = "0" & a

    End If

    

    If Len(a) = 4 Then

        a = Mid(a, 1, 2) & ":" & Mid(a, 3, 2)

    End If

    

    Me.TextBoxDruckzeit = a

  

    TextBoxDruckzeit = CDate(Me.TextBoxDruckzeit.Value)

End Sub


Peter
Anzeige
AW: TextBox für Zeiteingabe definieren
05.08.2024 10:57:45
Saffi
Hallo Peter,

sorry für die späte Rückmeldung, war im Urlaub.

Habe soeben den Code ergänzt. Es funktioniert jetzt.

Prima, vielen Dank nochmal.
AW: TextBox für Zeiteingabe definieren
25.07.2024 08:16:52
hary
Moin
Da du ein Listobjekt benutzt.
Code fuer den Button: 
Private Sub CB_WE_Click()

With Worksheets("Tabelle1").ListObjects("Tabelle1")

 .ListRows.Add 'neue Zeile

  .ListRows(.ListRows.Count).Range.Value = Array(.ListRows.Count, Format(TextBoxDruckzeit, "hh:mm")) 'eintragen

End With

End Sub

gruss hary
Anzeige
;

Forumthreads zu verwandten Themen

Textbox Blau hinterlegen für Eingabeaufforderung
k

Hallo,
habe eine Userform und möchte gern, nach dem Start der Userform die Texbox 25 Markiert wird und blau hinterlegt wird - so dass der User sofort sieht - da soll ich also was eintragen.
Sobald er in der Textbox ist, soll die markierung wieder weg sein...
Wie kann ich das machen...
27.07.2009 14:06:21
Thread-ID: 1091610
3 Beiträge
Check- & Textoxen deaktiveren für die Eingabe
Kay

Hallo,
habe in einer Userform 2 Optionsfelder (Druck, Export) und 5 Cceckboxen (Zum Anhaken, welche Daten gedruckt werden sollen) und 5 Textboxen (jeweils zur Chekcbox (für die Anzahl der Kopien).
Nun möchte ich gern, dass wenn auf Export die Option fällt, die Check & Textboxen dea...
04.08.2009 23:15:04
Thread-ID: 1093623
3 Beiträge
Zeichen bis zum ersten Buchsaben löschen
Karsten

Hallo,
ich möchte per VBA Zeichen bis zum ersten Buchsaben löschen (Akt. Zelle).
z.B. aus:
-Filiale zu Filiale
( ungenau- zu ungenau-
Kann mir jemand dabei helfen? Danke.
Gruß
Karsten
19.12.2011 15:01:05
Thread-ID: 1242850
5 Beiträge
Anzeige
Tabulator in Userform für TextFelder
braleta

Hallo Excel-ianer,
ich habe eine Userform mit einer Reihe von TextFeldern, die über Tabulator angesprungen werden können.
Als Text-Event habe ich immer eine _AfterUpdate-Routine.
Wenn ich in einem Textfeld stehe, analysiere ich vor dem Verlassen den Inhalt der Zelle, und im Fehlerfa...
27.02.2012 19:35:08
Thread-ID: 1252669
5 Beiträge
Anzeige
Text-Datei als Schlüssel für Tabelle verwenden
Tim

Hallo an alle,
ich suche nach einer Lösung für folgendes Problem:
Ich habe eine Text-Datei, die sich im gleichen Ordner wie meine Tabelle befindet, jedoch ist die Text-Datei im Gegensatz zur Tabelle versteckt, d.h. für andere User standardmäßig nicht zu sehen.
Gibt es eine Möglich...
18.07.2012 08:03:53
Thread-ID: 1271583
6 Beiträge
Label für freien Text
Peter

Hallo Leute,
nach langer Pause bin ich mal wieder dabei mein kleines Programm zu vollenden, muss mich dazu aber erstmal wieder rein fuchsen.
Habe in meinem Userform ein Label erstellt und möchte nach dem ausführen des UserForm dieses Label mit Zahlen füllen. kann mir da jemand weiterhe...
06.02.2013 18:40:39
Thread-ID: 1298030
4 Beiträge
Textfeldeingabe in UserForm für Turniertabelle
Michael

Hallo,
ich würde meine Userform gerne um folgende Funktion erweitern. Es wäre sehr hilfreich, wenn bei der Eingabe von bereits vorhandenen Namen der Name nicht jedes mal wieder komplett im Textfeld eingegeben werden muss, sondern nur die ersten 2 bis 3 Buchstaben bis der komplette Name im T...
04.09.2018 12:17:25
Thread-ID: 1643203
9 Beiträge
Löschen ab drittem Sonderzeichen bis zum Komma
Andre
Guten Morgen zusammen,
ich habe in einer Zeile mehrere Kommagetrennte Werte, die innerhalb Kommas auch nochmal mit Doppelpunkt unterteilt sind.
Ich würde gern immer ab dem dritten doppelpunkt bis zum nächsten Komma abschneiden. Hat jemand bitte einen Tipp?

Beispiel:
A:B:c:d:e,F:...
18.08.2023 07:55:59
Thread-ID: 1943505
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige