Eigentlich nur ´ne Kleinigkeit
21.01.2005 10:24:55
Melanie
Da ich kurz vor der Verzweiflung stehe, möchte ich Euch doch noch mal bemühen. Der Code ist mit Sicherheit umständlich geschrieben - sorry. Aber bis auf ein klitzekleines Problem läuft er zumindest.
Und zwar liegt das Problem meines Erachtens darin, dass er das errechnete Datum in Spalte 8 nicht als Datum versteht(obwohl ich das als NumberFormat vorgegeben habe), denn in der If-Abfrage liefert er mir immer nur den Wert "J" oder "Prüfung durch Technik"
Ich habe die entsprechende Datei angehängt - vielleicht könnt ihr mir ja mal das Brett vor´m Kopf entfernen.
'Versorgungsende
wksBasis.Cells(i, 28).Value = _
Application.WorksheetFunction.VLookup(wksBasis.Cells(i, 1), wkbQuelle6.Worksheets("matstwerk7"). _
Range("A1:AV50000"), 44, False)
'
If Cells(i, 28).Value = "00.00.0000" Then
Cells(i, 6).Value = "00.00.0000"
Cells(i, 6).Font.ColorIndex = xlAutomatic
Else
Cells(i, 6).Value = "=DATEVALUE(RC[22])"
Cells(i, 6).NumberFormat = "dd.mm.yyyy"
If Cells(i, 6).Value Cells(i, 6).Font.ColorIndex = 3
Else
Cells(i, 6).Font.ColorIndex = xlAutomatic
End If
End If
wksBasis.Cells(i, 7).FormulaR1C1 = "=RC[3]/((RC[6]*0.2)+(RC[7]*0.3)+(RC[8]*0.5))*12"
wksBasis.Cells(i, 7).NumberFormat = "0"
wksBasis.Cells(i, 8).FormulaR1C1 = "=TODAY() + (RC[-1]/12*365)"
wksBasis.Cells(i, 8).NumberFormat = "dd.mm.yyyy"
If wksBasis.Cells(i, 6).Value = "00.00.0000" Then
wksBasis.Cells(i, 9).Value = "Prüfung durch Technik"
Else
If wksBasis.Cells(i, 8).Value > wksBasis.Cells(i, 6).Value Then
wksBasis.Cells(i, 9).Value = "J"
wksBasis.Cells(i, 9).Font.ColorIndex = 3
Else
wksBasis.Cells(i, 9).Value = "N"
wksBasis.Cells(i, 9).Font.ColorIndex = xlAutomatic
End If
End If
Vielen tausend Dank schon mal,
Gruß
Melanie