---

Wie bekomme ich am einfachsten ein Textfeld in der Form "May 11 2007" so umgewandelt das es als Datum erkannt wird ?

Axel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Axel,

erlaube mir bitte eine Gegenfrage: Meinst Du tatsächlich ein Textfeld - oder eine Zelle, deren Inhalt evtl. als Text formatiert ist? Hilft dann die Formatierung als Datum?

------------------
Gruß,
Frederik

DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tag zusammen,
hiermit melde ich mich wieder zurück vom Strand 
Textfelder sind doof, wenn Du die Möglichkeit hast, das andersrum zu machen?
Also das Textfeld über eine Zelle befüllen lassen, und später auf die Zelle und nicht das Textfeld zugreifen, das wär einfacher, aber scheinen wir uns hier nicht aussuchen zu können...

Mal eben so, ohne VBA-Umweg IMHO nicht machbar, aber ich bin noch im Urlaubshalbschlaf, lasse mich gerne belehren ;-)

Vorschlag:

Code:

---

Public Sub Wandel()
Dim x
x = Split(Tabelle1.Shapes.Item(8).AlternativeText, " ", 4) 'vorher die richtige Indexnummer des Textfeldes rausfinden, bei mir war's jetzt die Nummer 8; die 4 am Ende paßte halt zu Deinen Vorgaben, sonst ändern
Tabelle1.Range("A1") = x(1) & x(2) & x(3) 'hier wird's zusammengeführt und wieder in die Tabelle geschrieben, das Feld sollte vorher als Datum formatiert sein
End Sub

---

Vorschlag für benutzerdefiniertes Datums-Format:  [$-407]T MMM JJJJ;@
dann stimmen Textfeld und Ausgabe in der Zelle optisch überein.

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Auch Hallo,

sowas vielleicht ?

lg, Bernd
--

Code:

---

Option Explicit

Const strMonth = "Jan:Feb:Mar:Apr:May:Jun:Jul:Aug:Sep:Oct:Nov ec"
Const strIndex = "001:002:003:004:005:006:007:008:009:010:011:012"

Function mydate(ByVal s As String) As Date
  Dim ar As Variant, iPos As Integer
 
  ar = Split(s, " ")
  iPos = InStr(strMonth, ar(0))
  If iPos > 0 Then ar(0) = Mid(strIndex, iPos + 1, 2)
  mydate = DateSerial(ar(2), ar(0), ar(1))
End Function

Sub x()
  Debug.Print mydate("Jan 01 2008")
  Debug.Print mydate("May 11 2007")
  Debug.Print mydate("Dec 24 2007")
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für Eure Antworten. Ich habe es jetzt halb manuell gemacht die Monate durch Zahlen ersetzt und dann in einer Zwischenspalte das Datum zusammengesetzt mit links, rechts und teil.

Axel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP