Select Case Vergleich von 2 Variablen
04.04.2017 11:33:58
2
ich möchte mit Select Case 2 Variablen vergleichen auf größer, kleiner, gleich. Je nach Ergebnis sollen andere Dinge ausgeführt werden. Das Problem ist, das gerade dieser Vergleich nicht funktioniert. Es wird immer der letzte Fall "Case Else" genommen.
Konkret sollen 2 Datumswerte (IST und PLAN) miteinander verglichen werden und je nach Beziehung zueinander soll ein bestimmter Statuswert ausgegeben werden. (Die MsgBoxen sind nicht nötig, dienen mir erstmal nur zur Fehlersuche und werden später gelöscht)
mein Code sieht so aus:
Sub Statusabfrage ()
Dim StatusStart As String
Dim intRow As Integer
Dim StartIST As Date
Dim StartPLAN As Date
For intRow = 9 To 10
StartIST = Cells(intRow, 7)
StartPLAN = Cells(intRow, 4)
MsgBox ("StartIST= " & StartIST)
MsgBox ("StartPLAN= " & StartPLAN)
Select Case StartIST
Case StartIST StartPLAN
StatusStart = "verzogen begonnen"
MsgBox ("ist größer")
Case Else
MsgBox ("ist was anderes")
End Select
MsgBox ("StatusStart=" & StatusStart)
Cells(intRow, 10) = StatusStart
Next intRow
End Sub
Kevin
Anzeige