5
« am: Juni 26, 2015, 15:48:44 Nachmittag »
Hallo,
Ich habe eine Excel Tabelle mit ein paar Tausend Datensätzen. Diese habe ich als Quelltabelle umbenannt. Die Zeilen enthalten neben Kundenummer auch ein Eintrittsdatum und Austrittsdatum. Was ich möchte ist, dass er mir alle Datensätze markiert die folgende Bedingung enthalten:
Alle Datensätze, bei denen die Kundenummer gleich ist, soll er das erste (älteste) Eintrittsdatum + 120 Tage berechnen und mit allen nachfolgenden Zeilen vergleichen. Alle Datensätze die zwischen diesen beiden Datum sind markieren. Ich habe folgenden Code erstellt aber komme da einfach nicht weiter. Kennt einer die Lösung?
Sub Datum()
Dim zeile As Long
Dim ZeileMax As Long
Dim spalte As Long
Dim SpalteMax As Long
Dim MDC As String
Dim AufnDATUM As Date
Dim AufnDATUMMIN As Date
Dim EntlDATUM As Date
Dim i As Integer
With Tabelle2
ZeileMax = .UsedRange.Rows.Count
SpalteMax = .UsedRange.Columns.Count
For zeile = 2 To ZeileMax
For spalte = 1 To SpalteMax
MDC = .Cells(zeile, 11)
AufnDATUM = .Cells(zeile, 3)
EntlDATUM = .Cells(zeile, 4)
'AufnDATUMMIN = .Min.Cells(zeile, 3)
If Application.WorksheetFunction.CountIf(Columns(1), Cells(zeile, 1).Value) > 1 _
And WorksheetFunction.Min(.Cells(zeile, 3)) - AufnDATUM + zeile _
Then
.Cells(zeile, spalte).Interior.ColorIndex = 4
Else: .Cells(zeile, spalte).Interior.ColorIndex = xlColorIndexNone
End If
Next spalte
Next zeile
End With
End Sub
Ich wäre über eine Hilfe sehr zufrieden. Danke
Gruss
zero