Automatisieren von Microsoft Excel 2007 mit VBA

Hallo Leute,

bräuchte mal eure Hilfe!

Weiß von euch jemand, wie die VBA-Formel in Excel für folgenden Befehl lautet:

Sortiere alles nach Betrag (D1 : D100) absteigend.
Wenn Betrag >2000 und <5000 Euro, dann Schriftfarbe Blau
Wenn Betrag >5000, dann Schriftfarbe Rot
Wenn (E1 : E100) "323052068" entspricht, dann Grün.

Danke im Voraus für eure Hilfe im Voraus.
 
Zuletzt bearbeitet:
AW: Automatisieren von Microsoft Excel 2007 mit VBA

Hi,

Sub Forum()
'sortieren
Range("D1:D100").Select
Range("D100").Activate
Selection.Sort Key1:=Range("D1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'formatieren (Farben)
Range("D1").Select
Do
If ActiveCell.Value > 2000 And ActiveCell.Value < 5000 Then
Selection.Font.ColorIndex = 5
ElseIf ActiveCell.Value > 5000 Then
Selection.Font.ColorIndex = 3
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Loop Until ActiveCell.Value = ""
End Sub
Wenn (E1 : E100) "323052068" entspricht, dann Grün.
Was genau soll da grün werden der komplette Bereich?

Gruß Markus
 
AW: Automatisieren von Microsoft Excel 2007 mit VBA

Hallo Markus,

danke für die Hilfestellung.

Zu Deiner Frage:

Ich hab eine Liste mit Rechnungen.
Wenn "Herstellernummer" 323052068" entspricht, dann Grün.
Damit meinte ich die ganze Zeile in der die Rechnung steht.

Gruß
Andreas
 
Top