Schleife Offset
01.12.2004 11:00:14
Andy
Ich möchte mit einer Schleife Mehrere Zellen durchlaufen die Werte in Spalte A mit einem Schlüssel den Zellen D1:E5 Vergleichen und ein bestimmten Wert in Spalte C Schreiben, hier ein von mehreren versuchen(Die im Text angeführten Zellen sind nur ein vereinfachtes Beispiel).
Sub Note4()
Dim i
For i = 5 To 12
If ActiveCell.Offset(i, -1) > Cells(20, 2) And Cells(5, 8) < Cells(20, 1) Then
ActiveCell = "1"
ElseIf ActiveCell.Offset(i, -1) > Cells(21, 2) And Cells(5, 8) < Cells(21, 1) Then
ActiveCell = "2"
ElseIf ActiveCell.Offset(i, -1) > Cells(22, 2) And Cells(5, 8) < Cells(22, 1) Then
ActiveCell = "3"
ElseIf ActiveCell.Offset(i, -1).Offset(0, -1) > Cells(23, 2) And Cells(5, 8) < Cells(23, 1) Then
ActiveCell = "4"
ElseIf ActiveCell.Offset(i, -1) > Cells(24, 2) And Cells(5, 8) < Cells(24, 1) Then
ActiveCell = "5"
End If
Next i
End Sub
Es würde mich freuen wenn jemand helfen Könnte
Anzeige