Datumsformat.............VBA
26.11.2007 20:11:00
Sonnenpeter
ich habe folgendes Problem:
Ich kopiere "Mo.26.11.2007" mit einem Makro in eine andere Tabelle
Sheets("Gelöschte Daten").Range("A15:D15".Value = _
Sheets("Jahresdaten").Range("A25:D25").Value
Als Ergebnis erhalte ich "11/28/2007" (als Text) obwohl die Zeilen in "Gelöschte Daten" richtig mit "TTT.TT.MM.JJJJ" formartiert sind.
Ehm? Was muss ich tun?
Das vollständige Makro im Nachgang:
Sub Löschen_Uebertragen()
Datum = CDate(Me.Range("A3").Value)
Fertig = 50
With Sheets("Jahresdaten").Columns("A:A")
For i = 1 To Fertig
Set c = .Find(Datum, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
FZ = c.Row
Gesamt = ""
Zeilen = Application.WorksheetFunction.CountIf(Sheets("Gelöschte Tagesberichte"). _
Columns(2), Gesamt) + 1
Sheets("Gelöschte Daten").Range("A" & Zeilen & ":D" & Zeilen).Value = _
Sheets("Jahresdaten").Range("A" & FZ & ":D" & FZ).Value
'LZ = FZ & ":" & FZ
Sheets("Jahresdaten").Rows(FZ & ":" & FZ).Delete Shift:=xlUp
Else
Exit Sub
End If
Next i
End With
End Sub
Gruß Sonnenpeter
Anzeige