Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
128to132
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
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum-formatierungs-problem

Datum-formatierungs-problem
20.06.2002 14:42:29
Hansi
Hallo Leute,

ich habe in einer listbox (dreispaltig) in der letzten spalte ein beliebiges datum stehen.
wenn ich mir das datum aber auf eine textbox rüberhole, habe ich dort nur einen zahlenwert.
eine formatierung des kompletten bereichs in excel selbst (z. B. spalte "C" -formatierung- datum bringt nichts!
in der listbox werden die datum(se) ;-) aber richtig angezeigt (tt.mm.jjjj) .
Welcher code kann mir helfen?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datum-formatierungs-problem
20.06.2002 16:04:09
Andreas
Hansi,

im Menu Daten konvertierst Du Spalte C oder eine Hilfsspalte in die Du die Originaldaten kopierst mit "Text in Spalten" und setzt das Format explizit auf Text um. Dann kannst Du den Wert weiterverarbeiten.

Andreas

Re: Datum-formatierungs-problem
20.06.2002 16:27:45
Hansi
ja, schön und gut, aber wie sieht das Ganze denn aus, wenn ich das in meine Userform mit einbinden möchte (Code)?
- gibts da vielleicht auch was von Ratiopharm?`(kleiner Scherz) ... ne, gibt's da noch ne andere Möglichkeit?
Re: Datum-formatierungs-problem
20.06.2002 22:24:38
Andreas
Hansi,

ich weiß nicht genau was Du mit Userform meinst, aber der Quelltext so wie ich Deine Frage verstanden habe, sieht so aus.

A
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2)
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige