Datum Englisch - Deutsch

[Winny]

Hi

@Günther: Zum Anzeigen geht das sicherlich, aber das Datum ist und bleibt ohne Konvertierung nunmal der 9.5.2016(42499). berechne mal damit die Tage bis zum 1.1.2017

@Castor: Warum nur klingen deine heutigen Schreiben so aggressiv für mich, liegt es an mir, schlechten Tag gehabt? Das täte mir ehrlich leid! Ich bevorzuge es Probleme so früh wie möglich anzugehen, das wäre hier beim Import und nicht irgendwann später. Deine Lösung ist für mich nur ein Notnagel wenn gar nichts anderes geht...

[snb]

evtl.

Code:

Sub M_snb()
    [A2:A743].Offset(, 10) = [index(text(A2:A743,"dd.mm.yyyy hh:mm"),)]
End Sub

[hisid1]

Also das mit dem der von euch vorgeschlagenen Lösung, einfach die Zelle auf Benutzerdefiniert zu formatieren funktioniert leider nicht so ganz. 
Will /muss aus den Daten dann eine Tabelle erstellen, allerdings "spinnen" dann die Werte. 
Die Daten werden von einem Taupunktmessgerät ausgelesen. Die erhaltene Datei ist dann eine txt Datei.

[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Also das PROBLEM ist noch NICHT GELÖST :/ 


Bin aber dankbar für jeden Hilfsansatz.

[hisid1]

evtl.

Code:

Sub M_snb()
    [A2:A743].Offset(, 10) = [index(text(A2:A743,"dd.mm.yyyy hh:mm"),)]
End Sub

Damit kann ich absolut nichts anfangen   .... dachte es gäbe eine mögliche Funktion, also keinen "Makro Code"?

[Castor]

Wenn du eine einfache Text-Datei inhaltlich nach Xl kopierst, Hisid,
käme doch genau meine (nachträgliche) Lösung mit Text-in-Spalten infrage! Hast du die übersehen! :-|
Castor

[GMG-CC]

Schreibe mir doch einmal bitte per PN deine Mail-Adresse, PM/PN kommen im Moment bei dir nicht an (lt. Nachricht vom Webmaster des Forums).

[Gast 123]

Hallo,

ich melde mich noch mal, Probleme sind zum lösen da. Anbei ein simples Makro von mir in zwei Varianten. Voraussetzung ist, das Spalte "A" beim einlesen der Daten immer auf Text formatiert sein muss!! Es hat den simplen Grund, die Automatisch Datum Funktion von Excel abschalten!  Ansonsten entsteht vielleicht wirklich "Datensalat", den einen Teil kann Excel als Datum Format erkennen und umwandeln, aber der "05.13.2016" kommt im deutschen Format nicht vor. Die Tage von 13 - 31 werden als Monat interpretiert, aber diese Monate gibt es nicht!! Also kann es passieren das in Spalte A mal ein Zahlenwert als serielles Datum vorkommt, und mal das Datum als Text.  Das auszuwerten wird ja noch komplizierter!!    

Beim Text kann ich den String zerlegen und neu zusammensetzen. Wenn es nicht stört kann die Spalte A als Text formatiert bleiben. Variante 1.  Bei Variante 2 brauche ich eine im deutschen Format formatierte Hilfsspalte, z.B. H, und setze den Text in die Hilfsspalte. Excel sollte es als Datum erkennen und richtig formatieren. Dann kopiert man diese Hilfsspalte nach Spalte A.  

So sollte es gehen     mfg  Gast 123

Code:

Option Explicit      '12.9.2016   Gast 123  für Clever Forum

Dim AC As Object, neuDatum As String
Dim sTag As String, sMonat As String
Dim sJahr As String, sZeit As String


'Modul zum tauschen von englischem Datum
'Spalte A muss als Text formatiert sein !!

'Spalte A bleibt als Text formatiert
Sub Englisches_Datum_tauschen_1()
Dim lz As Integer  'LastZelle
lz = Range("A2").End(xlDown).Row

'Schleife für Spalte A Datum in Text zerlegen
For Each AC In Range("A2:A" & lz)
  sMonat = Left(AC, 3)
  sTag = Mid(AC, 4, 3)
  sJahr = Mid(AC, 7, 6)
  sZeit = Mid(AC, 13, 8)

  'deutsches Datum aus Text zusammensetzen
  neuDatum = CStr(sTag & sMonat & sJahr & sZeit)
  AC.Value = neuDatum
Next AC
End Sub


'Hilfsspalte wird nach Spalte A kopiert
Sub Englisches_Datum_tauschen_2()
Dim lz As Integer  'LastZelle
lz = Range("A2").End(xlDown).Row

'Schleife für Spalte A Datum in Text zerlegen
For Each AC In Range("A2:A" & lz)
  sMonat = Left(AC, 3)
  sTag = Mid(AC, 4, 3)
  sJahr = Mid(AC, 7, 6)
  sZeit = Mid(AC, 13, 8)

  'deutsches Datum aus Text zusammensetzen
  neuDatum = CStr(sTag & sMonat & sJahr & sZeit)
 
  'Datum in deutsch formatierte Zelle laden
  Cells(AC.Row, "H") = neuDatum
Next AC

'Hilfsspalte nach Spalte A kopieren
Range("H2:H" & lz).Copy Range("A2")
End Sub

[Winny]

Hi

wenn es eine Textdatei ist die importiert wird dann kann man die doch gleich beim Einlesen richtig konvertieren lassen, dann entfällt das ganze Rumgeeiere, auch mit den beiden anderen Werten, welche als Dezimaltrennzeichen ja den Punkt haben

Eine Original Textdatei wäre hilfreich, müssen ja nicht alle Zeilen enthalten sein

[Kuwer]

Hallo,

Hi

wenn es eine Textdatei ist die importiert wird dann kann man die doch gleich beim Einlesen richtig konvertieren lassen, dann entfällt das ganze Rumgeeiere, auch mit den beiden anderen Werten, welche als Dezimaltrennzeichen ja den Punkt haben

Eine Original Textdatei wäre hilfreich, müssen ja nicht alle Zeilen enthalten sein

ich denke auch, dass dies der einzige sichere (verlässliche) Weg ist, die Daten korrekt umzuwandeln.

Gruß Uwe

[Castor]

Und Text-in-Spalten hat natürlich keiner ausprobiert…! :->
Ansonsten kann's bei CSV-Import natürlich gleich dabei gemacht werden, aber kommt von… deutet für mich auf ein System und eine Organisation hin, das/die nicht o.W. geändert werden kann, zumal Hisid ja auch nichts mit VBA-Pro­gram­men anfangen kann. Überlesen…?
Castor