Hallo Berni,
Ein Select case ist vielleicht nicht die beste Lösung. Probier mal das. Allerdings kann die Else-Bedingung sicher besser umgesetzt werden. GGf ein dritter eigener If-Zweig.
Dim row As Integer
For row = 5 To 9
If Cells(row, 4).Value = "x" Then
Cells(row + 6, 3).Value = "3"
Else
Cells(row + 6, 3).Value = ""
End If
If Cells(row, 5).Value = "x" Or Cells(row, 6).Value = "x" Or Cells(row, 7).Value = "x" Then
Cells(row + 6, 3).Value = "3"
Else
Cells(row + 6, 3).Value = ""
End If
Next row
Gruß MV
|