Ich habe ein Problem mit einem Code.
Ich möchte ein Makro ausführen wenn ich meine Auswahl innerhalb von "D5:J7" habe.
Aus irgendeinen Grund möchte das ganze nicht.
Kann mir da jemand weiterhelfen?
Vielen dank im Vorhinaus!!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Cells.Count > 1 Then
Exit Sub
Else:
If Not Intersect(Range(.Address), Range("D5:J7")) Is Nothing Then
.Value = "X"
End If
End If
End With
End Sub
Der Code muss ins Modul des Tabellenblattes, in dem er wirken soll. Dazu ReMausKlick auf den Tabellenblattreiter und Code anzeigen - da hineinkopieren. Eine Auswahl von mehreren Zellen ignoriert der Code, und wirkt immer nur bei Wahl 1 Zelle.