Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage

Abfrage
23.05.2002 15:00:37
Detlef
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.




8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Abfrage
23.05.2002 15:05:02
Oli
Hallo Detlef,

versuchs mit

Oli



Re: Abfrage
23.05.2002 15:05:05
Timo
Hallo Detlef!

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

Gruss
Timo

3 Sekunden...
23.05.2002 15:06:58
Timo
...warst du schneller... Sauerei... ;)
Aber immerhin haben wir beide das selbe geschrieben *g*

Gruss
Timo

Re: Abfrage
23.05.2002 15:07:45
GraFri
Hallo

mfg, GraFri

Re: 3 Sekunden...
23.05.2002 15:14:52
Oli
Jo. Bis auf meinen kleinen Fehler.
Re: Abfrage
23.05.2002 15:17:25
Kay.O
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

Anzeige
Re: 3 Sekunden...
23.05.2002 15:22:37
Timo
Klein statt Mittel meinst du? Naja, das macht ja nix...
Weiterhil viel Erfolg!

Gruss
Timo

Re: 3 Sekunden...
23.05.2002 15:31:17
oli
Jo Dir auch.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige