Case und Right
14.10.2008 13:41:15
FM
ich baue gerade einen Cross Reference Table. Dabei muss ich eine Zeichenfolge nach bestimmten Kriterien auswählen.
Z.b. 1234567TR ist nicht das gleiche wie 1234567ZB.
Ich wollte nun checken wie die letzten 2 Buchstaben der Zeichenkette sind, mit folgendem Code:
Private Sub modelcode_to_basemodel()
Dim scell As Integer
Dim Modelstr As Variant
For scell = 2 To 4 Step 1 'testweise
Modelstr = ActiveSheet.Cells(scell, 1).Value
MsgBox Right(Modelstr, 2)
Select Case Modelstr
Case is_ = Right(Modelstr, 2) = "TR"
ActiveSheet.Cells(scell, 2).Value = "Neues Modell"
Case Else
ActiveSheet.Cells(scell, 2).Value = "Altes Modell"
End Select
Next scell
End Sub
Was passiert ist, dass in den beiden Zeilen in denen einen Zeichenfolge steht ein "Altes Modell" eingetragen wird und in der einen leeren Zeile die ich mitteste ein "neues Modell".
Weiss evtl. jemand Rat warum es nicht geht ?
Danke und Gruss
Florian