Herbers Excel-Forum - das Archiv

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

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:

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

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

Excel-Beispiele zum Thema "Abfrage"
Unterdrückung von Sicherheitsabfragen Arbeitsmappe-Schließen-Abfrage abfangen
Name der aufrufenden Schaltfläche abfragen Abfrage der markierten Spalten
Anzahl der einzufügenden Zeilen abfragen Programmabbruch bei Überspeichernabfrage verhindern
Abfrage, ob ein Menü in einer Menüleiste vorhanden ist Web-Abfrage ohne *.iqy-Datei
Web-Aktienkursabfrage bei YAHOO Start- und Enddatum abfragen und markieren