VBmakro

[TheCraccer]

Hallo!
Ich wusste nicht wo ichs posten soll, also habe ich es mal hier gemacht.
Folgendes:
Ich möchte in mein Excel-Dokument in Spalte F jedes Feld, dass größer als 0 ist rot gefärbt haben. Das ganze geht nur über den Makro, da die Seite, die ist, wo alle Ergebnisse erscheinen und ich somit dann jedes mal alles einzelt rot efärben müsste.
Ich hoffe ihr könnt mir helfen.

mfg TheCraccer

p.s. Habe Excel 2003

 

[wincnc]

Hallo

Das kannst Du einfacher mit der bedingten Formatierung machen.
Schau mal unter Format -> Bedingte Formatierung

 

[Zvoni]

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Value <> "" Then
    
        If IsNumeric(Target.Value) Then

            If Target.Value > 0 Then
                
                Target.Font.Color = vbRed
            
            Else
            
                Target.Font.Color = vbBlack
                            
            End If
        
        Else
        
            Target.Font.Color = vbBlack
        
        End If
    
    Else
    
        Target.Font.Color = vbBlack
    
    End If

End Sub