Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wenn "von-bis" dann --> per makro

wenn "von-bis" dann --> per makro
19.09.2007 16:07:00
Stefan
hallo zusammen,
ich habe in spalte c verschiedene beträge stehen. durch ein makro soll dann jede zeile geprüft werden, ob der jeweilige betrag in einem bestimmten intervall liegt und in spalte d dann einer kategorie zuordnen. bsp.
wert 0 = A
wert von 1 bis 100 = B
wert von 101 bis 200 = C
wert von 201 bis 999999 = D
die buchstaben bedeuten die kategorie und sollen dann nach der prüfung des betrages in c in die spalte d eingetragen werden.
vielen dank.
gruß,
stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn "von-bis" dann --> per makro
19.09.2007 16:14:33
Rudi
Hallo,

Sub tt()
Dim i As Long
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
Select Case Cells(i, 3)
Case 0: Cells(i, 4) = "A"
Case 1 To 100: Cells(i, 4) = "B"
Case 101 To 200: Cells(i, 4) = "C"
Case Is > 200: Cells(i, 4) = "D"
End Select
Next i
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Alternativ
19.09.2007 16:23:00
Mac4
Hi,

Sub tt()
Dim i As Long
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
Cells(i, "D") = Evaluate("=VLOOKUP(" & Cells(i, "C") & ",{0,""A"";1,""B"";101,""C"";201,""D""}, _
2,1)")
Next i
End Sub


Marc

Anzeige
AW: Alternativ
19.09.2007 16:26:31
Stefan
hallo zusammen,
funktioniert. vielen dank.
gruß,
stefan

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige