Select Case
30.11.2006 11:58:33
Frangis
habe folgendes Problem:
Ich möchte in einem Makro mit der Select Case Anweisung arbeiten.
Dabei soll der Inhalt einer Zelle mit dem Inhalt der darüber liegenden
Zelle verglichen werden.(Spalte wurde vorerst aufsteigend sortiert!)
2 Möglichkeiten, entweder die Inhalte sind identisch, oder aber
in der "untenliegenden" Zelle ist der Wert höher.
Auch wenn die Kriterien der Abfrage z.B. den ersten "Case" erfüllen, überspringt das Makro den entsprechenden "Case-Fall" und schaut nach dem nächsten Case.
Ich habe sämtliche Schreibweisen der Case-Abfrage versucht (andere Klammersetzung) aber immer greift die Caseabfrage nicht.
wenn ich stattdessen mit der If-then Anweisung arbeite und, wie ihr am Makrocode seht, die Kriterien absolut identisch sind funktioniert das
wunderbar. Ich würde gerne wissen was ich bei der Select case Anwendung falsch mach?
**********************************************
c=2
Do
c = c + 1
'If Cells(c, 13) = Cells(c - 1, 13) Then
'Cells(c, 2) = Cells(c - 1, 2)
'End If
'If Cells(c, 13) > Cells(c - 1, 13) Then
'Cells(c, 2) = Cells(c - 1, 2) + 1
'End If
Select Case c
Case Is = (Cells(c, 13) = Cells(c - 1, 13))
Cells(c, 2) = Cells(c - 1, 2)
Case Is = (Cells(c, 13) > Cells(c - 1, 13))
Cells(c, 2) = Cells(c - 1, 2) + 1
End Select
If c > hdoend Then
Exit Do
End If
Loop
*******************************************
Vielen Dank für Eure Hilfe!!