ich habe in Spalte C in meinem
Sheet Nummern. Nun möchte ich die
Nummern von 1-5000 entsprechend in Text umwandeln.
1-1999 = "klein"
2000-2999 = "mittel"
3000-3999 = "groß"
4000-4999= "Extra groß"
5000-5999= "nicht vorhanden"
Sub suche
Dim bereich as Range
Dim Zelle as Range
Set bereich = Range("c2:c1500")
For Each Zelle in Bereich
If Zelle.value <= 2000 Then
Zelle.value = "klein"
end if
Next
........wie gehts weiter
End Sub
Hat jemand eine Idee, wie ich die
Zahlen in die oben genannten Text
umwandeln kann.