Bitte um Hilfe!
Wie kann ich via VBA aus der Arbeitsmappe >>Datenbank>210507/1400 in eine 2.Arbeitsmappe >>Übersicht >>Montag, 21.05.2007 14:00 Vielen Dank für Eure Hilfe
Gruß Gerhard
Sub DatZeit()
Dim loZeile As Long, lstrWert As String
For loZeile = 3 To Sheets("Datenbank").Cells(Rows.Count, 2).End(xlUp).Row
lstrWert = Replace(Sheets("Datenbank").Range("B" & loZeile).Value, "/", " ")
lstrWert = Left(lstrWert, 2) & "." & Mid(lstrWert, 3, 2) & "." & Mid(lstrWert, 5, 5) _
& ":" & Right(lstrWert, 2) & ":00"
Sheets("Übersicht").Range("B" & loZeile).Value = Format(CDate(lstrWert), "dddd, dd/ _
mm/yyyy hh:nn")
Next
End Sub
Hier werden im Tabellenblatt "Datenbank" in Spalte B, ab Zeile 3 bis letzte Zeile die Werte "210507/1400"
zuerst in datumsfähige Werte, z Bsp 21.05.07 14:00 umgewandelt (siehe Zeilen mit lstrWert), und dann werden diese Datumswerte ins Tabellenblatt "Übersicht" mit dem Format "Tag(Vollanzeige), Datum(8-stellig) Uhrzeit(5-stellig) übertragen.
Konnte ich helfen?
Ciao
Thorsten
Sub DatZeit()
Dim loZeile As Long, lstrWert As String
With Workbooks("Datenbank.xls").Sheets("Tabelle1")
For loZeile = 3 To .Cells(Rows.Count, 2).End(xlUp).Row
lstrWert = Replace(.Range("B" & loZeile).Value, "/", " ")
lstrWert = Left(lstrWert, 2) & "." & Mid(lstrWert, 3, 2) & "." & Mid(lstrWert, _
5, 5) & ":" & Right(lstrWert, 2) & ":00"
With Workbooks("Übersicht.xls").Sheets("Tabelle1")
.Range("B" & loZeile).Value = CDate(lstrWert)
.Range("B" & loZeile).NumberFormat = "dddd, dd/mm/yyyy hh:mm"
End With
Next
End With
End Sub
Beide Excel-Dateien müssen geöffnet sein.
In welche Datei du den Cod einfügst, ist egal . aber Datenbank biete sich als Quell-Datei an, oder?
Das Wert#-Problem, welches du beschrieben hast, ergibt sich wohl aus der früheren Code-Zeile mit Format(...).
Das habe ich nun gändert, in dem ich das Excel-eigene Format und nicht mehr die Format-Funktion aus VBA verwende - letzteres gibt wohl einen String und nicht ein Datum zurück.
Auf jeden Fall ergibt nun die Formel
21.05.2007 14:00:00 + Zeit(22;0;0) = Dienstag, 22.05.2007 12:00:00
Konnte ich helfen?
Ciao
Thorsten