Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Datum

Betrifft: Datum von: Silvie
Geschrieben am: 20.09.2004 15:04:41

Hallo Experten!
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"
....

  


Betrifft: denke "DATE" (o.T.) von: geri
Geschrieben am: 20.09.2004 15:55:40

gruss geri


  


Betrifft: @geri von: Silvie
Geschrieben am: 20.09.2004 16:02:47

Hallo Geri!
Danke erstmal, aber wo kommt "DATE" hin?

Silvie


  


Betrifft: AW: @geri von: geri
Geschrieben am: 20.09.2004 16:30:39

Hallo Silvie



Columns("B:B").Select
Selection.NumberFormat = "d/mm/yy;@"
Range("D1").Select
die Zeile wo steht funkt nicht wechseln

gruss geri