Datumsformatierung



Excel-Version: 2000
  

Re: Datumsformatierung

von: Hajo
Geschrieben am: 13.04.2002 - 13:08:04


Hallo Martin

wenn die Werte in Spalte A stehen


Sub Datum()
    Dim Letzte As Long
    Dim As Long
    Dim Wert As Date
    If [a65536] = "" Then
        Letzte = [a65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    On Error Resume Next
    For I = 1 To Letzte
        Wert = Mid(Cells(I, 1), 1, 4) & "." & Mid(Cells(I, 1), 5, 2) & "." & Mid(Cells(I, 1), 7, 2)
        Cells(I, 1).NumberFormat = "yyyy/mm/dd"
        Cells(I, 1) = Wert
    Next I
End Sub

Gruß Hajo

  

Bitte im Forum bleiben

von: Hajo
Geschrieben am: 13.04.2002 - 16:27:55


Hallo Martin

Bitte im Forum bleiben, Mails nur nach Aufforderung


Sub Datum()
    Dim Letzte As Long
    Dim As Long
    Dim Wert As Date
    If [a65536] = "" Then
        Letzte = [a65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    On Error Resume Next
    For I = 1 To Letzte
        If IsDate(Cells(I, 1)) = False Then
            Wert = Mid(Cells(I, 1), 1, 4) & "." & Mid(Cells(I, 1), 5, 2) & "." & Mid(Cells(I, 1), 7, 2)
            Cells(I, 1).NumberFormat = "yyyy/mm/dd"
            Cells(I, 1) = Wert
        End If
    Next I
End Sub

Gruß Hajo

nach unten

Betrifft: Datumsformatierung
von: Martin
Geschrieben am: 13.04.2002 - 12:55:30

Hallo zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte einen Zahlenstring stehen z.B. 20010101, den wollte ich in ein Datum Umwandel z. B. 2001.01.01, aber das Excel kann es anscheinend nicht. Es wäre nett wenn mir jemand einen Tip geben könnte.
Wenn ich das Datum nur einmal hätte wäre es einfach, aber ich habe ca. 10.000 Zeilen mit dem Datum.
Ich bedanke mich schon im voraus.
mfg
Martin
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Module/Userform kopieren"