Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsformat und Textboxen

Datumsformat und Textboxen
05.05.2014 07:57:24
Florian
Hallo liebe Forengemeinde,
folgendes Problem tritt bei einer meiner Excel-Lösungen auf und ich bekomme es einfach nicht in den Griff.
Für unsere Produktion habe ich eine Userform zur Produktionsdatenerfassung angelegt, hauptsächlich um die in Papierform vorliegenden Auftragskarten zu erfassen. Userform deshalb, damit weniger geschultes Personal die Datenerfassung machen kann und die gewünschte Information immer in der gewünschten Zelle steht. In dieser Userform gibt es unter anderem zwei Textfelder, die der Datumseingabe für das Rüsten dienen:
Rüstbeginn mit Datum und Uhrzeit
Rüstende mit Datum und Uhrzeit
Diese Textboxen werden mit afterupdate und isdate() geprüft. Anschließend wird der Wert in zwei nebeneinander liegende Zellen geschrieben. Um bei der Eingabe der gesamten Information schneller zu sein, haben sich die Bediener angewöhnt das Datum wie folgt einzugeben:
02/05/14 6:00, also zweiter Mai 2014 um 6 Uhr in der Früh. Das wird soweit auch angenommen nur jetzt passiert etwas Komisches: Der gleiche Eintrag wird beim Rüstbeginn im amerikanischen Datumsformat in die Zelle eingetragen und beim Rüstende im Europäischen. Die Formatierung der beiden Zellen ist gleich, der Code ist gleich und ich weiß nicht warum das passiert.
Hoffentlich kann einer von euch helfen! Bis hierher schonmal danke fürs Lesen!
Grüße
Flo

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

Betreff
Datum
Anwender
Anzeige
MusterDatei?
05.05.2014 09:13:50
UweD

AW: MusterDatei?
05.05.2014 09:27:38
Florian
Hallo UweD und auch für alle anderen eine Beispieldatei:
https://www.herber.de/bbs/user/90483.xlsm
In der Userform bitte auf "extra rüsten" klicken.
Hoffentlich hilft das weiter.
Grüße
Flo

AW: Passwort ?
05.05.2014 09:40:18
UweD
Hilft nicht viel, da der VBA Bereich per Passwort gesperrt ist

AW: MusterDatei?
05.05.2014 10:19:32
Florian
ach so ja, das Kontrollkästchen hat auch noch gefehlt.
Immer noch ungelöst

Anzeige
AW: Datumsformat und Textboxen
05.05.2014 09:24:55
Ewald
Hallo Florian,
ist zwar eine blöde Angewohnheit dies so einzugeben, aber teste mal 

Private Sub TextBox1_AfterUpdate()
If IsDate(TextBox1.Text) Then
TextBox1.Text = Format(TextBox1.Text, "DD.MM.YYYY hh:mm")
End If
End Sub
Private Sub CommandButton1_Click()
Range("G3").Value = CDate(TextBox1.Text)
End Sub
Gruß Ewald

AW: Datumsformat und Textboxen
05.05.2014 09:54:53
Florian
Hallo Ewald,
ja, das funktioniert, löst das Problem aber nur teilweise, weil in einer weiteren Ansicht 90 TextBoxen vorhanden sind und davon einige ein Datum enthalten sollen.
Aktuell werden die alle mit einer Schleife ausgelesen (Controls(textbox&i)). Da kann ich die Formatänderung so nicht durchführen, meine ich. werde ich aber auch nochmal testen.
Gruß und Danke
Flo
P.S: freilich ist das eine blöde Angewohnheit, spart aber wirklich Zeit, wenn man den Capslock drin lassen kann

Anzeige
AW: Datumsformat und Textboxen
05.05.2014 11:36:44
Ewald
Hallo Florian,
wenn das über eine Schleife gehen soll, dann vielleicht so
Dim i As Long
Dim wert
For i = 1 To 8
Select Case i
Case 1, 3    'Textboxen mit Datum
wert = CDate(Controls("TextBox" & i).Text)
Case Else
wert = Controls("TextBox" & i).Text
End Select
Cells(2, i).Value = wert
Next
in die erste Case-Anweisung kommen die Textboxen mit Datum
Gruß Ewald

AW: Datumsformat und Textboxen
05.05.2014 12:59:42
Florian
Hallo zusammen,
die Vorschläge von Ewald eliminieren zwar das Problem, liefern aber keine Erklärung für das Auftreten.
Wie kann es sein, dass die gleiche Eingabe in zwei gleiche TextBoxen und deren Ausgabe durch den gleichen Code in zwei gleich formatierte Zellen zwei unterschiedliche Ergebnisse ergibt?
Hat einer von euch dafür eine Erklärung?
Flo
P.S: ich habe das auch in einer anderen Umgebung mit Office 2007 getestet und bekomme das gleiche Ergebnis....

Anzeige
AW: Datumsformat und Textboxen
05.05.2014 13:00:41
Florian
und dann fehlt wie das Ungelöst-Häkchen....

AW: Datumsformat und Textboxen
05.05.2014 15:04:54
Ewald
Hallo Florian,
das Problem ist die Eingabe, denn dieses Format ist auch ein gültiges Datumsformat.
Wenn du es jetzt Excel überläßt das Datum zu erkennen, kann es zu diesen Fehlern kommen.
Excel übersetzt dann mal in das locale Datumsformat und mal auch nicht.
Erschwerend ist dann noch die Kombination von Datum und Zeit.
Wenn Datumseingaben im lokalen Datumsformat erfolgen gibt es dieses Problem nicht.
Gruß Ewald

AW: Datumsformat und Textboxen
05.05.2014 15:47:21
Florian
Hm, danke für die Antwort.
allerdings ist das ziemlich unbefriedigend. Naja wurscht, dann muss ich halt doch die aufwendige Lösung umsetzen.
Danke für die Hilfe
Flo
Anzeige

308 Forumthreads zu ähnlichen Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Anzeige
Datum als Text kopieren
Thomas3

Hallo zusammen,
ich habe folgendes Problem.
Aus einer Datei werden aus einer Spalte das Tagesdatum in eine andere Datei kopiert.
Das ist kein Problem.
Aus der zweiten Datei werden dann mittels Serienbrief diese Daten ausgelesen.
Und nun beginnt das Problem.
Das Datum ko...
16.09.2008 18:22:00
Thread-ID: 1010173
4 Beiträge
Datumsüberschreitung und Textfelder zählen
Lemmi

Hallo Beate,
Hallo zusammen,
leider hat Diene Formel noch nicht das gewünschte Ergebnis erbracht !
Es sollen Textfelder und Datums Überschreitungen gezählt werden!
Könnten jemand oder /und Beate noch einmal schauen?
Siehe Datei!
https://www.herber.de/bbs/user/55582.xls <...
22.09.2008 21:16:00
Thread-ID: 1011578
3 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Formatiert Text nicht als Datum
Günter

Hallo Zusammen,
ich habe wieder ein sicherlich einfaches Problem.
In Spalte A stehen Werte wie "18.12 15:30".
Die Spalte ist als Datum formatiert.
Um nun ein komplettes Datum mit Jahr zu bekommen habe ich folgendes Makro geschrieben:
Sub JahrErgaenzen() Dim Z As Integer F...
21.12.2008 08:20:33
Thread-ID: 1034520
11 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
3
5
3
2
10
1
12
4
10
3
1
4
5
2
1
2
3
6
3
5
3
7
6
6
2