Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum und TextBox | Herbers Excel-Forum

Datum und TextBox
07.01.2010 11:25:20
abu

Hallo Zusammen,
kann mir vllt. jemand auf die Spruenge helfen?
Habe eine Userform mit der ich unter anderem eine TextBox fuer ein Datum benutze.
Folgenden Code habe ich dafuer.
Um es vom blatt in die Userform zu holen hab ich diesen Code:
.TextBox45.Value = Sheets("Customer complaints").Cells(Target.Row, 8).Value
Um es zureuck zu schreiben diesen:
.Cells(CInt(Me.Tag), 8).Value = CDate(TextBox45)
Als Beispiel nehmen wir das Datum 07-01-2010
lade ich die Userform zeigt er mir 07-01-2010 an,
schliesse ich die Userform zeigt er im Blatt 07-01-2010 an,
lade ich die Userform erneut zeigt er mir 01-07-2010 an,
schliesse ich die Userform wieder zeigt er 01-07-2010an
mach ich das selbe noch mal wird es wieder richtig angezeigt, im Blatt auch und das geht immer so weiter
Will ich diesen Code aendern:
.TextBox45.Value = Sheets("Customer complaints").Cells(Target.Row, 8).Value
in
.CDate(TextBox45) = ....
bleibt er immer haengen.
Kann mir jemand bitte helfen?
Gruss abu

22
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
versuche es mal so...
07.01.2010 11:35:08
Tino
Hallo,
, habe ich jetzt nicht getestet.
Lesen in UF 
.TextBox45.Value = Format(CDate(Sheets("Customer complaints").Cells(Target.Row, 8).Value2), "dd-mm-yyyy")
Schreiben in die Zelle 
.Cells(CLng(Me.Tag), 8).Value = DateValue(Replace(TextBox45, "-", "."))
Gruß Tino
AW: versuche es mal so...
07.01.2010 12:41:03
abu
Hallo Tino,
danke fuer die schnelle Antwort. Habs getestet und wenn ich richtig liege hast du einen kleinen Denkfehler beim laden (konntest du ja nicht wissen). Es wird ja nur mit der Userform eingegeben also steht in der Zelle nie ein '.' der ersetzt werden muss und ich bekomm immer eine Fehlermeldung.
Habs geaendert in:
.Cells(CLng(Me.Tag), 8).Value = DateValue(TextBox45)
und es funzt.
1A, Danke.
Gruss abu
Anzeige
Du schreibst doch...
07.01.2010 12:50:21
Tino
Hallo,
das in der Textbox "07-01-2010" steht und
diese "-" ersetze ich durch einen Punkt.
Ist aber auch egal, es läuft ja jetzt bei Dir.
Gruß Tino
AW: Du schreibst doch...
07.01.2010 13:15:55
abu
oder sorum, egal klappt
danke.
AW: Du schreibst doch...
07.01.2010 14:11:45
abu
Muss doch noch mal nachfragen: Wenn jemand vergisst ein Datum einzutragen bleibt er haengen, sollte aber dann nicht passieren sondern einfach leer bleiben. Gibts da auch ne Loesung fuer?
Gruss abu
AW: Du schreibst doch...
07.01.2010 15:07:55
Tino
Hallo,
baue es doch in eine If, z. Bsp. so
With Sheets("Customer complaints").Cells(Target.Row, 8)
If .Value <> "" And IsDate(.Value) Then
.TextBox45.Value = Format(CDate(.Value2), "dd-mm-yyyy")
Else
.TextBox45.Value = ""
End If
End With
Von der Textbox in die Zelle machst Du auch eine Abfrage, eben wie zuvor schon mal beschrieben.
Gruß Tino
Anzeige
AW: Du schreibst doch...
07.01.2010 15:49:20
abu
Hallo Tino,
habe es so geaendert falls jemand was eintreagt aber kein Datum
With Sheets("Customer complaints").Cells(Target.Row, 8)
If .Value <> "" And IsDate(.Value) Then
.TextBox45.Value = Format(CDate(.Value2), "dd-mm-yyyy")
Else
.TextBox45.Value = Sheets("Customer complaints").Cells(Target.Row, 8).Value
End If
End With
Er bleibt aber in der zweiten Zeile haengen mit der Meldung:
Object doesn't support this property or method
Gruss abu
AW: Du schreibst doch...
07.01.2010 15:50:15
abu
sorry in der Zeile
.TextBox45.Value = Format(CDate(.Value2), "dd-mm-yyyy")
die Userform fehlt noch...
07.01.2010 16:04:33
Tino
Hallo,
entweder einfach
TextBox45.Value = ...
oder
Me.TextBox45.Value = ...
oder
Userform1.TextBox45.Value = ....
Gruß Tino
Anzeige
AW: die Userform fehlt noch...
07.01.2010 16:44:09
abu
so und die letzte fuer heute (hoffe ich).
kannst du mir noch sagen was ich falsch mache beim zurueckschreiben, es laeuft durch allerdings wenn ich den Wert der Box aendere und dann die Userform schliesse, hab ich wieder den ausgangswert da stehen:
With Sheets("Customer complaints").Cells(CLng(Me.Tag), 8)
If Ausgabe.TextBox45.Value <> "" And IsDate(.Value) Then
.Cells(CLng(Me.Tag), 8).Value = Format(CDate(.Value2), "dd-mm-yyyy")
Else
.Cells(CInt(Me.Tag), 8).Value = TextBox45.Value
End If
End With
AW: die Userform fehlt noch...
07.01.2010 16:55:17
Tino
Hallo,
teste mal
With Sheets("Customer complaints").Cells(CLng(Me.Tag), 8)
If Ausgabe.TextBox45.Value <> "" Then
.Cells(CLng(Me.Tag), 8).Value = DateValue(Replace(Ausgabe.TextBox45.Value, "-", "."))
Else
.Cells(CLng(Me.Tag), 8).Value = ""
End If
End With
Gruß Tino
Anzeige
AW: die Userform fehlt noch...
07.01.2010 17:01:38
abu
nee leider auch nicht. Fehlermeldung Type missmatch in Zeile 3.
versteh ich nicht ganz deinen Code: moechte ja eigentlich nur das ich den Wert in TextBox45 wieder aendern kann und er keine Fehlermeldung gibt selbst wenn da Buchstaben stehen.
Muss jetzt leider weg aber wuerde mich gerne Morgen frueh weiter mit dir unterhalten.
Wuensch dir einen schoenen abend.
Gruss
abu
AW: hier ein einfaches Beispiel...
08.01.2010 08:42:39
abu
Guten Morgen Tino,
dein Beispiel funtioniert leider auch nicht...
Gruss abu
Anzeige
bei funktioniert es unter xl2007 u. 2003
08.01.2010 09:19:52
Tino
Hallo,
was soll ich dazu nun sagen, habe es soeben unter xl2003 nochmal getestet und es funktioniert.
Gruß Tino
AW: bei funktioniert es unter xl2007 u. 2003
08.01.2010 09:26:29
abu
Hallo,
habe auch 2003 und egal was ich probiere, bleibt er im Sub SchreibeDatum in der 3 Zeile stecken mit der Fehlermeldung Type missmatch.
Selbst wenn ich nichts am Datum aendere und es wie es war ins sheet zurueck schreiben alssen will.
Gruss
abu
AW: bei funktioniert es unter xl2007 u. 2003
08.01.2010 09:37:48
Tino
Hallo,
schau mal ob diese Verweise bei Dir gesetzt sind.
Im VBA unter Extras -> Verweise
Userbild
Wie ist die Ländereinstellung für Datumsformate auf Deinem System, vielleicht liegt es auch daran?
Vielleicht geht es auch mit dieser Version.
https://www.herber.de/bbs/user/67067.xls
Gruß Tino
Anzeige
AW: bei funktioniert es unter xl2007 u. 2003
08.01.2010 10:26:52
abu
Ms Forms 2.0 hab ich nicht, koennte es daran liegen?
Leider finde ich keine Seite von der ich downloaden kann (hier sind bestimmte Seiten gesperrt) und selbst auf der MS-Seite kann ich es nicht finden. Aber auch wenn ich es finde und installiere, werde ich weiter probleme haben da die arbeitsmappe shared ist und mehrere user daruf zugreifen, muesste es von IT irgendwie installiert bekommen so das es bei jedem user eingebunden ist und das kann ich glaub ich in dem laden hier vergessen...
Ms Forms 2.0 wird automatisch gesetzt.
08.01.2010 10:48:16
Tino
Hallo,
wenn Du eine UF erstellst wird dieser Verweis automatisch gesetzt,
versuche es mal in einer neuen Excel- Datei.
Sonst müsstest Du dich an Deinen IT- Beauftragten wenden oder einen
Admin der Dein Excel nochmal Installiert.
Gruß Tino
Anzeige
AW: Ms Forms 2.0 wird automatisch gesetzt.
08.01.2010 11:11:07
abu
Hallo Du hast recht, mit Userform ist MS Forms auch da.
Zu meinem eigentlichen Problem:
Ich habe diesen Code um zurueckzuschreiben:
With Sheets("Customer complaints").Cells(CLng(Me.Tag), 8)
If Ausgabe.TextBox45.Value <> "" And IsDate(.Value) Then
.Cells(CLng(Me.Tag), 8).Value = DateValue(TextBox45)
Else
.Cells(CInt(Me.Tag), 8).Value = TextBox45.Value
End If
End With
Wenn ich z.B 04-01-2010 schreibe, alles ok
Wenn ich 04.01.2010 schreibe bekomm ich Fehlermeldung (Type missmatch). Warum? ist doch auch ein Datum und selbst wenn excel das nicht als Datum erkennt, muss er doch von If in Else springen.
Selbe gilt wenn ich Text schreibe, dann muss er doch ins Else und es als normalen Text schreiben aber ich bekomm dieselbe Fehlermeldung.
Wo liegt mein Denkfehler?
Gruss
Abu
Anzeige
AW: Ms Forms 2.0 wird automatisch gesetzt.
08.01.2010 11:21:12
Tino
Hallo,
die Zeilen müssten so aussehen.
With Sheets("Customer complaints").Cells(CLng(Me.Tag), 8)
If IsDate(Ausgabe.TextBox45.Value) Then
.Value = DateValue(Ausgabe.TextBox45.Value)
Else
.Value = ""
End If
End With
Gruß Tino
AW: Ms Forms 2.0 wird automatisch gesetzt.
08.01.2010 11:35:21
abu
Perfekt!
Hab noch dieses geandert: .Value = TextBox45.Value
Jetzt hab ich es Idiotensicher.
1000 x Danke fuer deine Hilfe und Geduld.
Gruss abu

307 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

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