|
Hallo liebes Forum,
ich habe eine dringende Frage zu diesem Excelcode:
In der Spalte 24 sind mehrere Charakteristika aufgezählt, jedoch aucch mehrere in einer.
Immer wenn auch nur einmal "Development" oder "Process Change" (oder einzeln) vorkommt, soll "tbd" in Spalte 5 erscheinen.
Wenn dies nicht der Fall ist, soll "-" in Spalte 5 erscheinen.
Bisher ist das Problem, dass nur das Process Change Kriterium zutrifft, da das Development Kriterium von zuvor überschrieben wird.
Ich benötige also eine Art "oder" Funktion im VBA, damit beide Befehle ausgeführt werden.
Ich bitte um schnelle Hilfe!
Tausend Dank.
'Check if FC_ACT_FIN_DATE exists
If .Cells(i, 16).Text = "" Then
'Set Textcolor to red if no FC_FIN_DATE exists and FC_PLAN_DATE is already in the past
If .Cells(i, 5) <> "" And .Cells(i, 5).Value < Now() Then .Cells(i, 5).Font.Color = RGB(255, 0, 0)
'Check if Type of Implementation contains Development, if not FC date can be set to ---
If InStr(1, .Cells(i, 24), "Development") = 0 Then
.Cells(i, 5).Value = "-"
.Cells(i, 5).HorizontalAlignment = xlCenter
'If Type of Implementation contains Development set date to 'tbd'
Else
.Cells(i, 5).Value = "tbd"
.Cells(i, 5).HorizontalAlignment = xlCenter
.Cells(i, 5).Font.Color = RGB(0, 0, 0)
end if
'Check if Type of Implementation contains Process Change, if not FC date can be set to ---
If InStr(1, .Cells(i, 24), "Process Change") = 0 Then
.Cells(i, 5).Value = "-"
.Cells(i, 5).HorizontalAlignment = xlCenter
'If Type of Implementation contains Process Change set date to 'tbd'
Else
.Cells(i, 5).Value = "tbd"
.Cells(i, 5).HorizontalAlignment = xlCenter
.Cells(i, 5).Font.Color = RGB(0, 0, 0)
End If
'FC_ACT_FIN_DATE exists
Else
'if FC_ACT_FIN_DATE exists copy to column D, set font bold and align right
.Cells(i, 16).Copy .Cells(i, 5)
.Cells(i, 5).Font.Bold = True
.Cells(i, 5).HorizontalAlignment = xlRight
End If |