select case
SiGI
Ich habe eine lange Liste mit 15 Spalten.
Ich möchte in Spalte 16 eine Eintragung vornehmen, die davon abhängt, was in den Spalten 1 - 15 eingetragen ist.
Also z.B.
Wenn in Spalte 1 der Wert 1, 3 oder 4 eingetragen ist und in Spalte 2 der Wert 2 und in Spalte 5 ein Wert größer 0, soll in Spalte 16 der Wert "xy eingetragen werden.
Ich habe gedacht, ich löse das am besten mit der select case-Anweisung, kämpfe aber mit der Syntax.
Bis jetzt habe ich folgenden Code, bei dem ich aber auch noch nicht weiß, ob er funktioniert:
Sheets("Tabelle1").Activate
Range("A1").Select
lz = ActiveSheet.UsedRange.Rows.Count
For icounter = 1 To lz
Select Case Cells(icounter, 2).Value
Case 1, 3, 4
weiß von hier aber leider nicht weiter.
Gibt es vielleicht noch eine bessere Möglichkeit, die vielen Kombinationsmöglichkeiten in den Griff zu bekommen ?
Vielen Dank, SiGI