Hallo,
ich möchte Zahlen, die in Spalte A stehen, Wertebereichen zuordnen und anschließend den Wertebereichen entsprechend bewerten.
In in Spalte A z.B die Werte:
0,1
1
1,4
2
5
9
10
19
20
25
40
50
99
100
ordnet das unten stehende Makro den Werten aus Spalte A in Spalte B nicht die angedachten Werte zu.
Was ist verkehrt?
Mit freundlichen Grüßen
Samuel
Sub Bereiche()
Dim a, amax As Double
amax = Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For a = 2 To amax
If Sheets("Tabelle1").Cells(a, 1).Value < "1,5" Then
Sheets("Tabelle1").Cells(a, 2).Value = "100"
ElseIf Sheets("Tabelle1").Cells(a, 1).Value >= "1,5" And Sheets("Tabelle1").Cells(a, 1).Value < "4" Then
Sheets("Tabelle1").Cells(a, 2).Value = "90"
ElseIf Sheets("Tabelle1").Cells(a, 1).Value >= "4" And Sheets("Tabelle1").Cells(a, 1).Value < "10" Then
Sheets("Tabelle1").Cells(a, 2).Value = "60"
ElseIf Sheets("Tabelle1").Cells(a, 1).Value >= "10" And Sheets("Tabelle1").Cells(a, 1).Value < "20" Then
Sheets("Tabelle1").Cells(a, 2).Value = "20"
ElseIf Sheets("Tabelle1").Cells(a, 1).Value >= "20" Then
Sheets("Tabelle1").Cells(a, 2).Value = "1"
End If
Next
End Sub
|