If Then
14.12.2004 15:27:21
Fitz
Ich habe eine If Then Abrage erstellt, jetzt sollte wenn die abfrage abgearbeitet wurde auf die nächste unter Zelle gesprungen werden und die abfrage erneut abgearbeitet werden ( insgesamt 6 mal).
wie könnte man so etwas erstellen ansatz war For Next Schleife hier mein versuch.
Sub Notentest()
Range("H5").Select
For i = 1 To 3
If ActiveCell > Cells(20, 2) And ActiveCell < Cells(20, 1) Then
ActiveCell.Offset(1, 0) = "1"
ElseIf ActiveCell > Cells(21, 2) And ActiveCell < Cells(21, 1) Then
ActiveCell.Offset(1, 0) = "2"
ElseIf ActiveCell > Cells(22, 2) And ActiveCell < Cells(22, 1) Then
ActiveCell.Offset(1, 0) = "3"
ElseIf ActiveCell > Cells(23, 2) And ActiveCell < Cells(23, 1) Then
ActiveCell.Offset(1, 0) = "4"
ElseIf ActiveCell > Cells(24, 2) And ActiveCell < Cells(24, 1) Then
ActiveCell.Offset(1, 0) = "5"
End If
Next i
End Sub