Abfrage



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Abfrage
von: Detlef
Geschrieben am: 23.05.2002 - 15:00:37

Hallo zusammen,
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.




nach oben   nach unten

Re: Abfrage
von: Oli
Geschrieben am: 23.05.2002 - 15:05:02

Hallo Detlef,

versuchs mit


Select Case Zelle.value
Case 1 to 1999
Zelle.value = "klein"
Case 2000 to 2999
Zelle.value = "klein"
...
End select

Oli



nach oben   nach unten

Re: Abfrage
von: Timo
Geschrieben am: 23.05.2002 - 15:05:05

Hallo Detlef!

Statt If...Then...Next würde ich benutzen:


Select Case Zelle.Value
Case To 1999
    Zelle.Value = "Klein"
Case 2000 To 2999
    Zelle.Value = "Mittel"
[...]
End Select

Gruss
Timo

nach oben   nach unten

3 Sekunden...
von: Timo
Geschrieben am: 23.05.2002 - 15:06:58

...warst du schneller... Sauerei... ;)
Aber immerhin haben wir beide das selbe geschrieben *g*

Gruss
Timo


nach oben   nach unten

Re: Abfrage
von: GraFri
Geschrieben am: 23.05.2002 - 15:07:45

Hallo


Sub suche()
Dim bereich As Range
Dim Zelle As Range

Set bereich = Range("c2:c1500")

For Each Zelle In bereich
Select Case Zelle.Value
    Case Is <= 1999: Zelle.Value = "klein"
    Case Is <= 2999: Zelle.Value = "mittel"
    Case Is <= 3999: Zelle.Value = "groß"
    Case Is <= 4999: Zelle.Value = "Extra groß"
    Case Is <= 5999: Zelle.Value = "nicht vorhanden"
End Select

Next

mfg, GraFri

nach oben   nach unten

Re: 3 Sekunden...
von: Oli
Geschrieben am: 23.05.2002 - 15:14:52

Jo. Bis auf meinen kleinen Fehler.

nach oben   nach unten

Re: Abfrage
von: Kay.O
Geschrieben am: 23.05.2002 - 15:17:25

Hi,

nimm select case.
Sub suche
Dim bereich as Range
Dim Zelle as Range
Set bereich = Range("c2:c1500")
For Each Zelle in Bereich
select case Zelle
case 1 To 1999
Zelle.value = "klein"
case 2000 To 2999
Zelle.value = "mittel"
End Select
Next

End Sub

du mußt nur weitermachen mit case ...

OK ???

cya
Kay

nach oben   nach unten

Re: 3 Sekunden...
von: Timo
Geschrieben am: 23.05.2002 - 15:22:37

Klein statt Mittel meinst du? Naja, das macht ja nix...
Weiterhil viel Erfolg!

Gruss
Timo


nach oben   nach unten

Re: 3 Sekunden...
von: oli
Geschrieben am: 23.05.2002 - 15:31:17

Jo Dir auch.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Abfrage"