Hallo alle zusammen,
wenn ich mit VBA aus einer anderen Datenquelle ein Datum einlese, dass leider ein Format "Standard" hat, z.B. 31.12.2010 wird daraus in der neuen Tabelle 31122010.
Code ist für das Kopieren:
...
shQuelleK.UsedRange.Copy
shZielK.Range("A11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Code ist für das Einfügen (damit ich keine Formeln kopiere):
...
shZielK.Activate
'Werte in Zahlen umwandeln:
Dim BereichK As Range
Dim MyArK
Dim AK As Long, BK As Long
Set BereichK = ActiveSheet.Range("A11:G510")
MyArK = BereichK
For AK = 1 To UBound(MyArK)
For BK = 1 To UBound(MyArK, 2)
If IsNumeric(MyArK(AK, BK)) And MyArK(AK, BK) "" Then MyArK(AK, BK) = MyArK(AK, BK) * 1
Next BK
Next AK
BereichK = MyArK
Application.DisplayAlerts = True
End If
Wie bekomme ich es wieder auf 31.12.2010, heißt, mit Pünktsche dazwischen.
Dazu brauch ich wohl kein VBA, sondern Excel-Formatierung, oder?
Vielen Dank vorab für die Hilfe
Nico