Problem mit If Then
25.12.2004 11:18:18
Erwin
ich habe ein kleines Problem mit if then.
In Spalte B kann ich per Kombinationsfeld einen Begriff auswählen. Jeder Begriff hat eine eigene Nummer und diese Nummer soll mir 13 Spalten weiter rechts automatisch eingeblendet werden. Ich habe folgende Prozedur geschrieben:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value = "Text1" Then
ActiveCell.Offset(0, 13).Value.Text = 100
ElseIf ActiveCell.Value = "Text2" Then
ActiveCell.Offset(0, 13).Value = 200
End If
usw.
Die Spalte „O“ ist mit Zahl formatiert, aber es kommt immer der Fehler Objekt erforderlich.
Was mache ich falsch?
Kann mir jemand helfen?
Gruß Erwin