VBS Excel If Problem

[Flashii123]

Hallo,

Ich bin grade dabei mir mit Excel eine kleine "Hilfe tabbelle" zuschreiben

Nun habe ich volgendes Prob

Dim Abfrage As String
Abfrage = Range("C2")
If Abfrage = "1" Then
Range("C2").Interior.ColorIndex = 10
ElseIf Abfrage = "200" Then
Range("C2").Interior.ColorIndex = 3
Else
Range("C2").Interior.ColorIndex = 46
End If

Ich würde das gerne sohaben das wenn man in feld C2 ein Wert zwischen 1-100 eingibt Range("C2").Interior.ColorIndex = 10 die antworte ist und alle werte die über 100 lieben halt Range("C2").Interior.ColorIndex = 3 die antwort ist^^

Wie stelle ich das an?

Gruß
Flashii

 

[DrSoong]

Folgenden Code einfach in dein Blatt einfügen (also im VBA-Editor nicht in ein Modul sondern bei den Excel-Objekten in den Codebereich der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Row = 2 And Target.Column = 3 Then
  Abfrage = Target.Value
  Select Case Abfrage
   Case 1 To 100
    Target.Interior.ColorIndex = 10
   Case Else
    Target.Interior.ColorIndex = 46
  End Select
 End If
End Sub

Das Change-Event wird dann immer ausgelöst, wenn du eine Tabellenzelle änderst, nach der Prüfung auf die Zelle (auf welche sich das ganze beziehen soll) wird der Inhalt geprüft und dann die Farbe gesetzt.


Der Doc!

 

[Flashii123]

Ok vielen Dank


Gruß