ich habe eine Datenbank, die u.a. 3 Spalten mit Datumswerten (Spalte 14-16) enthält. Problem: Spalten werden aus unterschiedlichen Quellen befüllt, wobei eine ein Datumsformat liefert, dass Excel nicht erkennt bzw. sich nicht umformatieren und daher auch nicht auswerten läßt. Einzige Möglichkeit war bisher manuell den Zellinhalt auszuschneiden und in eine neue Zelle/Spalte (Spalte 40-42)einzutragen.
Um diesen grauenhaft langweiligen und manuellen Vorgang zu verkürzen, möchte ich das mittels VBA-Prg. erledigen.
Das folgende funktioniert nicht, da mit "Value" alles kopiert wird - müßte ich hier mit "FormulaLocal" arbeiten? Wenn ja wie?
Sub InhaltÜbertragen()
Dim irow As Integer
irow = 2
Do Until IsEmpty(Cells(irow, 2))
Cells(irow, 40).Value = Cells(irow, 14).Value
Cells(irow, 41).Value = Cells(irow, 15).Value
Cells(irow, 42).Value = Cells(irow, 16).Value
irow = irow + 1
Loop
End Sub
Vielen Dank für eure Hilfe!!!