Excel Makros?

[ZwockelKiller]

Hi,

ich möchte oder brauch ein Makro was automatisch in einem roten Feld 999 einträgt.

Könnt ihr mir sagen wie das geht? Hier mal eine Beispieldatei:

Also wenn Verantw. rot ist soll in Spalte Zuordnung 999 eingetragen werden

Ich hab das schon versucht aber wenn ich ein Makro erstellt habe macht er es immer nur an der einen Stelle. Wie kann ich denn das so einsrichten, dass der das allgemein egal für welche Spalte das macht?

Finde auch nirgends einen Punkt wo ich Makros bearbeiten kann, also umprogrammieren kann.

 

[Alfredo]

Hier hab was gebastelt:

Sub Zeilen_Einfaerben()
Dim ZeilenAnzahl%
Dim x%

ZeilenAnzahl = ActiveSheet.Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row

For x = 1 To ZeilenAnzahl

If ActiveSheet.Range("D" & x).Font.ColorIndex = "3" Then
ActiveSheet.Range("D" & x).Value = "999"
End If

Next x
End Sub

 

[ZwockelKiller]

Danke hat geklappt