Vraag : Fout 2029 die de periodieke datum van datum geformatteerd proberen te krijgen zoals „algemeen“


Ik neem een begindatum en een beëindigende datum via msgbox van gebruiker die ik in periodieke datum toen I behoefte omzet om slechts gegevens tussen dat gamma van datum te tonen.  Het formaat van de cellen die de data bevatten is geformatteerd „algemeen“ zodat pas ik datum periodieke functie toe en krijg fout 2029.   Ik kan niet het uit voorstellen!!
Ik maak spreadsheet vast
Ik krijg de fout bij deze lijn
Als (cel. Waarde) < StartDate="" Or=""> EndDate 
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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

Sub DateRange ()
Schemerige D zoals Dubbel
Schemerige I als Variant

Schemerige cel als Waaier, celStart als Waaier, celEnd als Waaier, rg als Waaier, del As Range
Schemerige StartDate zoals lang, EndDate zoals lang

StartDate = CLng (CDate (Application.InputBox („te gaan gelieve beginnende datum in“, Type: =2)))
Als StartDate = 0 dan Sub weggaat
EndDate = CLng (CDate (Application.InputBox („te gaan gelieve het einde van datum in“, Type: =2)))
Als EndDate = 0 dan Sub weggaat

    Waaier („J2“). Selecteer
  'probeer gebruikend de datumserie
    Strek me („J2“) .FormulaR1C1 = „=DATESERIAL uit (MEDIO (J2,7,4), LINKER (J2,2), MEDIO (J2,4,2))“

'
 Plaats rg Eerste de datumcel = van de Waaier („J2“) '
 Plaats rg = Waaier (rg, Cellen (Rows.Count, rg. Kolom). Eind (xlUp)) 'Alle data in die kolom

Als EndDate < StartDate="" Then="" d="EndDate" EndDate="StartDate" StartDate="d" End="" If="" Application=""> EndDate toen
       Als del Is Nothing toen
          Reeks del = cel
          Anders: Reeks del = Unie (del, cel)
      Eind als
   Eind als
Volgende cel

 Op Fout hervat daarna
 del.EntireRow.Delete

Application.ScreenUpdating = Waar
  
    
Sub van het eind
Gehechtheid:
 
forTesting2.xls (23 KB) (de Details van het Type van Dossier) 
spreadsheet gegevens
 

Antwoord : Fout 2029 die de periodieke datum van datum geformatteerd proberen te krijgen zoals „algemeen“

IDK, server is niet opnieuw begonnen… maar het schijnt om de montages na derde poging gehouden te hebben.
Andere oplossingen  
 
programming4us programming4us