Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Datums format | Herbers Excel-Forum


Betrifft: Datums format von: abu
Geschrieben am: 17.12.2009 11:56:27

Hallo Zusammen,

habe mir ein Userform gebaut um Daten uebersichtlich anzuzeigen. Nun habe ich ein Probleme und hoffe mir kann da jemand weiterhelfen.

Habe eine Box die mir ein Datum anzeigt und natuerlich eine Zelle in der das Datum gespeichert wird.
In der Userform wird das Datum auch immer korrekt angezeigt dd-mm-yy. Im Arbeitsblatt immer umgekehrt mm-dd-yy. Ich kann die Zelle formatieren wie ich will und ueberschreiben wie ich will, sobald ich es in die Userform lade und wieder zurueckschreibe, hab ich wieder mm-dd-yy.

Hat da jemand eine Loesung fuer mich?

Gruss
abu

  

Betrifft: AW: Datums format von: Hajo_Zi
Geschrieben am: 17.12.2009 12:01:45

Hallo abu,

ist es in der Zelle Text Range("A1")=Textbox1 oder ein Datum Range("A1")=Cdate(textbox1) ???

GrußformelHomepage


  

Betrifft: AW: Datums format von: abu
Geschrieben am: 17.12.2009 12:07:25

Hallo Hajo,

sprichst du vom VBA Editor? Da habe ich fuer die Box jetzt keine ich sag mal Formatierung vorgenommen.
In der Userform bekomm ich ja auch immer die korrekte Anzeige: dd-mm-yy.

Ich denke mal ich muss das tun?

Gruss abu


  

Betrifft: AW: Datums format von: Hajo_Zi
Geschrieben am: 17.12.2009 12:10:35

Hallo Abu,

Dir ist schon bekannt das eine Textbox Text enthält und wenn Du keine Umwandlungsfunktion benutzt hast, hast Du Text in die Zelle geschrieben. Der aussieht wie ein Datum.

Gruß Hajo


  

Betrifft: AW: Datums format von: abu
Geschrieben am: 17.12.2009 12:13:04

OK, versteh ich aber wenn ich nicht mit dem Datum rechne, sollte das doch ok sein.
Wie auch immer wie loese ich denn jetzt mein Problem?


  

Betrifft: AW: Datums format von: Hajo_Zi
Geschrieben am: 17.12.2009 12:17:52

Hallo Abu,

formatieren ist auf der gleichen Stufe wie rechnen. Wenn Du das willst solltest Du nicht Text in die Zelle schreiben.

Gruß Hajo


  

Betrifft: AW: Datums format von: Reinhard
Geschrieben am: 17.12.2009 12:30:58

Hallo Abu,

ich verstehe dein Problem nicht,

Private Sub UserForm_Initialize()
TextBox1 = Date
Range("A1") = TextBox1         ' A1 hat 17.12.2009
End Sub

Private Sub UserForm_Initialize()
TextBox1 = Date
Range("A1") = Format(TextBox1, "mm.dd.yyyy")    ' A1 hat 12.17.2009
End Sub
Gruß
Reinhard


  

Betrifft: AW: Datums format von: Hajo_Zi
Geschrieben am: 17.12.2009 12:40:55

Hallo Reinhard,
getestet hast Du Deinen Code nicht. Es ist Text der aussieht wie Datum.

Tabelle1

 AB
117.12.20092

verwendete Formeln
Zelle Formel
B1 =TYP(A1)

Tabellendarstellung in Foren Version 5.0



Gruß Hajo


  

Betrifft: AW: Datums format von: Reinhard
Geschrieben am: 17.12.2009 12:44:19

Hallo Hajo,

ich habe das da:

"OK, versteh ich aber wenn ich nicht mit dem Datum rechne, sollte das doch ok sein. "

so gedeutet daß nicht gerechnet wird.

Gruß
Reinhard


  

Betrifft: AW: Datums format von: Hajo_Zi
Geschrieben am: 17.12.2009 12:45:34

Hallo Reinhard,

er möchte aber formatieren und Text kannst Du nicht formatieren.

Gruß Hajo


  

Betrifft: AW: Datums format von: Reinhard
Geschrieben am: 17.12.2009 12:54:44

Hallo Hajo,

aber, eine Tetbox hat doch Text, den formatiere ich doch und schreibe ihn formatiert in A1!?

Frage noch offen wegen Abus nachfrage.

Gruß
Reinhard


  

Betrifft: AW: Datums format von: Hajo_Zi
Geschrieben am: 17.12.2009 12:58:04

Hallo Reinhard,

und wie ich schon geschrieben habe enthält eine TextBox Text und ein Datum ist eine Zahl

Gruß Hajo


  

Betrifft: AW: Datums format von: Jens
Geschrieben am: 17.12.2009 13:05:18

Hallo

Wie Hajo bereits schrieb geht das mit Format nicht.
Du kannst Text formatieren wie Du willst, es bleibt Text.
Dafür mußt du es "umwandeln":

Range("A1") = CDate(Textbox1)

Dann steht in der Zelle ein Datum und kein Text.

Gruß Jens


  

Betrifft: AW: Datums format von: abu
Geschrieben am: 17.12.2009 12:48:43

Hallo Reinhard,

ich hab gleich 2 Probleme, ich kann kein VBA und wie bereits beschrieben wird mir das Datum falsch angezeigt.

Habe deins ausprobiert und es wuerde funktionieren wenn ich nicht hiermit arbeite:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 2 And Target.Value <> "" Then

kann ich das auch irgendwie in deinen Code reinbauen?

Gruss
Abu


  

Betrifft: Was willst Du denn mit... von: Jens
Geschrieben am: 17.12.2009 13:08:28

Hallo abu

... mit dem Doppelklick erreichen? Bzw. was soll da passieren?

Gruß Jens


  

Betrifft: AW: Was willst Du denn mit... von: abu
Geschrieben am: 17.12.2009 13:16:29

Hallo Jens,

mit dem Doppelklick werden mir alle Daten zu diesem Fall aufgerufen.
Pro Zeile ein Fall.

Wenn ich die Loesung von Reinhard nehme, muss ich ja eine feste Zelle bestimmen z.b. A1. aber das geht ja nicht... Die Textbox fuer das Datum wird immer aus der selben Spalte genommen aber die Zeilen sind ja immer unterscheidlich.

Gruss Abu



  

Betrifft: AW: Was willst Du denn mit... von: Jens
Geschrieben am: 17.12.2009 13:31:00

Hi abu

Nur zum Verständnis:

Du möchtest in die Spalte B doppelklicken, und wenn die Zelle nicht leer ist, soll aus der gleichen Zeile (Spalte A) das Datum in der Textbox angezeigt werden?

Dann so: Textbox1 = Range("A" & target.row)

Falls ich das falsch verstanden habe, dann lad mal bitte die Datei (oder eine baugleiche Datei) hoch.

Gruß Jens


  

Betrifft: AW: Was willst Du denn mit... von: abu
Geschrieben am: 17.12.2009 13:48:09

Jens,

Du hast es schon richtig verstanden aber leider bin ich zu dumm es umzusetzen.
Habe jetzt mal die Datei hochgeladen aber bitte nicht lachen, ich kann kein VBA, ich kann nur suchen und es zusammenstricken....
https://www.herber.de/bbs/user/66663.zip
Kannst Du bitte helfen. Textbox45 wird in Spalte H gespeichert. Datum ist der 04. Dez.
Gruss abu


  

Betrifft: AW: Was willst Du denn mit... von: Jens
Geschrieben am: 17.12.2009 14:14:51

Hi abu

Erstmal:
Wer auslacht, ist selber lächerlich. Alle haben mal klein angefangen.

Hab den Code mal überflogen, da mir grad die Zeit fehlt. Schau mal, ob das jetzt so passt:

https://www.herber.de/bbs/user/66664.zip

Gruß Jens


  

Betrifft: AW: Was willst Du denn mit... von: abu
Geschrieben am: 17.12.2009 14:48:50

Hey Jens,

danke. Jetzt klappts auch mit dem Datum.
Super.

Gruss
Abu


  

Betrifft: Danke für Rückmeldung (oT) von: Jens
Geschrieben am: 17.12.2009 14:52:29




  

Betrifft: Datum wird immer noch falsch angezeigt von: abu
Geschrieben am: 18.12.2009 12:09:01

Hallo,

hatte gestern ja das Problem mit dem Datum das mir falsch angezeigt wird und dachte es wurde geloest.
Bei mir funktioniert diese Loesung auch aber die Arbeitsmappe ist shared und wenn ein anderer die Userform aufruft und wieder speichert hab ich wieder das falsche Datum. Geh ich rein oeffne und schliesse sie hab ich wieder das gute Datum. Hat jemand eine Erklaerung? Die aenderungen wurden ja im Code gemacht also sollte das Ergebnis doch bei jedem User gleich sein, oder?

Gruss
Abu


Beiträge aus den Excel-Beispielen zum Thema "Datums format"