Frage : Format-Datum-Wert in der Spalte

Hallo möchten Experten,

I Expertenhilfe fordern, um eine zusätzliche Eigenschaft im angebrachten Index hinzuzufügen. Wie man den Pastendatenwert bei Column_B ist immer mit Datumformat (DD-mmm)? sicherstellt. Hoffnung-Experten können mir helfen. Brachte den Teil des Codes für Expertendurchsicht an. 
1:
2:
3:
4:
5:
6:
7:
8:

Set WB = Workbooks.Open (strFilePath)
        WB. Aktivieren
        intSrcRows = WB. Arbeitsblätter (1).Cells (Cells.Rows.Count, „A“). Ende (xlUp). Reihe
        copyRange = WB einstellen. Arbeitsblätter (1).Range („B6: B“ u. intSrcRows)
        copyRange = Anschluss (copyRange, copyRange.Offset, einstellen (, 4), copyRange.Offset (, 6).Resize (, 6))
        copyRange.Copy
        
        Stellen lcTargetCell = ThisWorkbook.Worksheets ein (2).Range („A“ u. Rows.Count). Ende (xlUp). Versatz (1)

Antwort : Format-Datum-Wert in der Spalte

Warum haben Sie das ganzes aktivierenmaterial?

Ich habe ein Gefühl, dem es mucking oben Ihr PasteSpecial konnte und möglicherweise dort veranlassen, zu sein nichts, wirklich zu kleben.

Sie konnten den Auftrag betrachten auch wünschen, den Sie Sachen tun.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

Wahl ausdrücklich

VorCopy_Paste3 ()
Schwache WB als Arbeitsbuch
Schwaches objFileDLG als Office.FileDialog
Schwaches strFilePath, lcTargetCell
Schwache intSrcRows als ganze Zahl
Schwache intTgtRows als ganze Zahl

    ChDir „D:\Data\“
    objFileDLG = Application.FileDialog (msoFileDialogFilePicker) einstellen
    copyRange als Strecke verdunkeln

    intTgtRows = 2

    Tun, wenn zutreffend
        strFilePath = ""
        Mit objFileDLG
            . Filters.Add „Excel archiviert“, „*.xls“, 1
            .FilterIndex = 1
            .AllowMultiSelect = falsch
            . Titel = „wählen das Arbeitsbuch vor, um von zu kopieren“
            Wenn. () 0 <> dann zeigen
                strFilePath = .SelectedItems (1)
            Beenden wenn
        Mit beenden

        Wenn Ordnung (strFilePath) = "" dann herausnehmen, tun

        Einstellen WB = Workbooks.Open (strFilePath)

        intSrcRows = WB. Arbeitsblätter (1).Cells (Cells.Rows.Count, „A“). Ende (xlUp). Reihe

        copyRange = WB einstellen. Arbeitsblätter (1).Range („B6: B“ u. intSrcRows)

        copyRange = Anschluss (copyRange, copyRange.Offset, einstellen (, 4), copyRange.Offset (, 6).Resize (, 6))

        copyRange.Copy

        Stellen lcTargetCell = ThisWorkbook.Worksheets ein (2).Range („A“ u. Rows.Count). Ende (xlUp). Versatz (1)

        lcTargetCell.PasteSpecial Paste: =xlPasteValuesAndNumberFormats, Betrieb: = _
                                  xlNone, SkipBlanks: =False, stellen um: =False

        ThisWorkbook.Worksheets (2).Range („B: B“) .NumberFormat = „DD-mmm“

        Application.CutCopyMode = falsch
        
        WB. Abschluss
        
        Einstellen WB = nichts

        intTgtRows = intTgtRows + intSrcRows - 1
        
    Schleife
    'neue Linien

    Auf Störungs-Zusammenfassung zunächst

    ThisWorkbook.Worksheets (1).Columns (1).SpecialCells (xlBlanks) .EntireRow.Delete
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us