Schleife Notenschlüssel per VBA
11.01.2005 15:39:11
Fitz
Ich möchte einen prozentsatz mit einem Schlüssel vergleichen und eine Note eintragen lassen,und das Ganze über mehrere Zellen.
Untenstehend mein Ansatz:
Sub Note()
Dim c As Range
For Each c In Range("I5:I12")
If ActiveCell.Offset(0, -1) > Cells(20, 2) And Cells(5, 8) ActiveCell = "1"
ElseIf ActiveCell.Offset(0, -1) > Cells(21, 2) And Cells(5, 8) ActiveCell = "2"
ElseIf ActiveCell.Offset(0, -1) > Cells(22, 2) And Cells(5, 8) ActiveCell = "3"
ElseIf ActiveCell.Offset(0, -1).Offset(0, -1) > Cells(23, 2) And Cells(5, 8) ActiveCell = "4"
ElseIf ActiveCell.Offset(0, -1) > Cells(24, 2) And Cells(5, 8) ActiveCell = "5"
End If
Next
Ps:unbedingt VBA