Office: (Office 2010) Makro bei Eingabe vom Buchstaben X Wort einsetzen

Guten Morgen fleißige Helfer :-)

Ich habe mal wieder eine Frage zu der ich nach vielem googeln und ausprobieren nicht weiterkomme. Habe bisher vollgendes funktionierendes Makro laufen.

If Target.Value = "x" Then
Target.Interior.ColorIndex = 4
Target.Cells = "abgeschlossen"
Target.ClearContents
End If

Dieses versuche ich jetzt folgendermaßen zu ergänzen.

1. In die Zelle soll noch das Wort "abgeschlossen" eingetragen werden
2. In der gleichen Zeile soll auch die Zelle in Spalte A Grün werden

Sprich am Ende passieren durch das eintragen des x drei Sachen. Zelle wird grün, x verschwindet und das Wort abgeschlossen erscheint und die Zelle in Spalte A wird auch grün.

Ich hoffe mir kann da einer weiterhelfen.

Vielen Dank schonmal für Eure Antworten

 

If Target.Value = "x" Then
Target.Interior.ColorIndex = 4
Target.ClearContents
Target.Value = "abgeschlossen"
Target.Font.ColorIndex = 1
End If

Ich bin einen Schritt weitergekommen. Jetzt fehlt mir nur noch die Programmierung, dass die Zelle in der Spalte A auch grün wird. Daran scheiter ich weiterhin

 

Hi,

meinst du so etwas:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZelle As Range
    If Target.Cells(1).Value = "x" Then
        Application.EnableEvents = False
        For Each rngZelle In Target
            rngZelle.Value = "abgeschlossen"
            rngZelle.Interior.ColorIndex = 4
            Cells(rngZelle.Row, 1).Interior.ColorIndex = 4
        Next rngZelle
        Application.EnableEvents = True
    End If
End Sub

Bis später,
Karin

 

Vielen Lieben Dank Karin,

es funktioniert und ich konnte es sogar für die w-Taste ummodifizieren, so dass jemand auch wieder alles weiß bekommt. Jetzt versuche ich nur noch zu verstehen, warum es funktioniert :-D

Super Hilfe, tausend Dank
Jonas