Thema Datum  Von Nutzer Rating
Antwort
21.11.2015 14:37:41 Philipp
NotSolved
Blau  Ereignisse von verschiedenen Datumsreihen ablgeichen
 21.11.2015 17:51:17 BigBen
NotSolved
21.11.2015 18:43:42 Gast80141
NotSolved
21.11.2015 20:21:29 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
21.11.2015 17:51:17		 Views:
719		 Rating:
     
Antwort:
  Ja
Thema:
Ereignisse von verschiedenen Datumsreihen ablgeichen

Hallo,

folgende Sub prüft einen Bereich und verschiebt die Zeilen ab Spalte 2 bei Bedarf um eine Zeile nach unten:

Sub CheckAndFixDates(CheckRange As Range)
    Dim rngRw As Range, rngInsert As Range
    Dim datWeek As Date, datTrading As Date
    Dim iRw As Integer
    iRw = 1
    Do While iRw < CheckRange.Rows.Count
        Set rngRw = CheckRange.Rows(iRw)
        rngRw.Select
        If IsDate(rngRw.Cells(1)) And IsDate(rngRw.Cells(2)) Then
            datWeek = rngRw.Cells(1)
            datTrading = rngRw.Cells(2)
            If DateDiff("d", datWeek, datTrading) < 0 Then
                Set rngInsert = Intersect(rngRw, rngRw.Offset(0, 1))
                rngInsert.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            End If
        End If
        iRw = iRw + 1
    Loop
End Sub

Der Aufruf wäre in der Beispieldatei:

CheckAndFixDates ActiveWorkbook.Worksheets(1).Range("A2:K31")

VG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.11.2015 14:37:41 Philipp
NotSolved
Blau  Ereignisse von verschiedenen Datumsreihen ablgeichen
 21.11.2015 17:51:17 BigBen
NotSolved
21.11.2015 18:43:42 Gast80141
NotSolved
21.11.2015 20:21:29 BigBen
NotSolved