Hallo zusammen,
kann mir da bitte einer weiterhelfen als Anfänger. Ich bekomme die Fehlermeldung Typen unverträglichkeit.
Die Idee: Trage ich short ein soll der Hintergrund rot werden ansonsten Gruen.
Sub ShortLong()
ThisWorkbook.Worksheets("Money-Risk-Management").Activate
Dim short As String
If Range("E22:E31") = short Then
Range("E22:E31").Interior.Color = vbRed
Else
Range("E22:E31").Interior.Color = vbGreen
End If
End Sub
Danke. Grüße
Damir
|