Ich möchte irgendwie erreichen, das in meiner Spalte a jede Eingabe in ein Häkchen umgewandelt wird.
Ist das möglich?
Für Lösungsvorschläge oder Alternativvorschläge wäre ich sehr dankbar.
Grüße
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Font.Name = "Wingdings 2"
Target.Value = "P"
End Sub
Gruß, Bastian
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Font.Name = "Wingdings 2"
Target.Value = "P"
End Sub
Gruß, Bastian
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
If Target.Address = "$A$1" Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Font.Name = "Wingdings 2"
Target.Value = "P"
End Sub
Gruß, Bastian
If Target.Value = "" Then Exit Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Address = "$A$1" Then Exit Sub
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Font.Name = "Wingdings 2"
Target.Value = "P"
End Sub
Gruß, Bastian
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen