ich habe mir den ersten Code aus dem Forum, der funzt auch supper.
Den zweiten habe ich mir aufgezeichent.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$7" Then Call Makro2
End Sub
----------------------------------------------------------------
Sub Makro2()
'
Sheets("Verteiler").Select
Range("D7").Select
ActiveCell.FormulaR1C1 = "X"
Range("A3").Select
End Sub Nun ist es so daß mir das Makro in die Zelle D7 ein X reinschreibt.
Wenn dieses aber falsch gesetzt wurde kann ich es nicht mehr löschen da ja das Makro bei aktiver D7 Zelle anfängt zu laufen und das X wieder reinschreibt. (Ich habe noch weitere Zellen bis D33).
Hat mir jemand einen Tipp ?
Mit freundlichen Grüßen
Manfred