Frage : Störung 2029, die versucht, das Seriendatum des Datums zu erhalten formatiert als „General“


Ich nehme ein Anfangdatum und ein Enddatum über msgbox vom Benutzer, dem ich in Seriendatum dann mich umwandele, muss nur Daten zwischen dieser Strecke des Datums zeigen.  Das Format der Zellen, die die Daten formatiert als „General“ enthalten, also ich anwenden Datumserienfunktion - und erhalten Störung 2029.   Ich kann sie nicht herausfinden!!
Ich anbringe Verteilungsbogen e
Ich erhalte die Störung an dieser Linie
Wenn (Zelle. Wert) < 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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:

VorDateRange ()
Schwaches d als Doppeltes
I als Variante verdunkeln

Cel als Strecke, celStart verdunkeln als Strecke, celEnd als Strecke, rg als Strecke, Del As Range
StartDate als lang, EndDate als lang verdunkeln

StartDate = CLng (CDate (Application.InputBox („Anfangsdatum bitte erreichen“, schreiben: =2)))
Wenn StartDate = 0 dann Unterseeboot herausnehmen
EndDate = CLng (CDate (Application.InputBox („Enddatum bitte erreichen“, schreiben: =2)))
Wenn EndDate = 0 dann Unterseeboot herausnehmen

    Strecke („J2“). Auserwählt
  'Versuch using die Datumserie
    Strecke („J2“) .FormulaR1C1 = „=DATESERIAL (MITTLER (J2,7,4), VERLASSEN (J2,2), MITTLER (J2,4,2))“

'
 Rg = erste des Datums „J2“ der Strecke () 'Zelle einstellen
 Rg = Strecke (rg, Zellen (Rows.Count, rg einstellen. Spalte). Ende (xlUp)) 'Alle Daten in dieser Spalte

Wenn EndDate < StartDate="" Then="" d="EndDate" EndDate="StartDate" StartDate="d" End="" If="" Application=""> EndDate dann
       Wenn Del Is Nothing dann
          Del = Zelle einstellen
          Sonst: Del = Anschluss (del, Zelle) einstellen
      Beenden wenn
   Beenden wenn
Folgende Zelle

 Auf Störungs-Zusammenfassung zunächst
 del.EntireRow.Delete

Application.ScreenUpdating = ausrichten en
  
    
Enden-Unterseeboot
Zubehöre:
 
forTesting2.xls (23 KBs) (Akten-Art Details) 
Verteilungsbogendaten
 

Antwort : Störung 2029, die versucht, das Seriendatum des Datums zu erhalten formatiert als „General“

IDK, Bediener nicht wiederbegonnen worden… orden, aber es scheint, die Einstellungen gehalten zu haben nachdem dritter Versuch.
Weitere Lösungen  
 
programming4us programming4us