Datum
20.09.2004 15:04:41
Silvie
Brauch wieder mal Hilfe. Also ich kopiere eine Spalte (in der 2. Zeile steht ein Datum) in eine andere Tabelle, funktioniert auch soweit nur das Datumsformat steht nicht in der Zelle. Was mach ich falsch?
Gruß
Silvie
Sub Spalten_einfuegen_und_kopieren()
Application.ScreenUpdating = False
Dim a As Variant
a = ActiveSheet.Cells(1, 1).End(xlToRight).Column
Columns(Cells(1, 1).End(xlToRight).Column + 1).Select
Selection.Insert Shift:=xlToRight
Workbooks("Datei 1").Activate
ActiveSheet.Range("H2").Copy
Workbooks("Datei 2 Grafik").Sheets("Daten").Activate
ActiveSheet.Cells(2, a + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
'-----------------------------------------------
ActiveSheet.Rows("2:2").NumberFormat = "d/ mmm" 'funktioniert irgendwie nicht
'-----------------------------------------------
ActiveSheet.Cells(1, a + 1).FormulaR1C1 = "=KALENDERWOCHE(R[1]C)"
Selection.NumberFormat = "General"
....