Runtime Error 13 bei einfachem Makro
09.08.2018 11:54:19
Nadine
Ich habe ein einfaches Makro in einem Forum gefunden, welches auch funktioniert. Nun erscheint jedoch immer der gleiche Fehler "Runtime error 13, type mismatch".
Mit dem Makro soll zwischen den Zellen I36:L44 beim Klick auf die Zelle ein X erscheinen. Wenn man wieder draufklickt, soll das X wieder verschwinden. Hier der VBA Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("I35:L43"), Target) Is Nothing Then Exit Sub
If Target = "X" Then
Target = ""
Else
Target = "X"
Target.HorizontalAlignment = xlCenter
End If
End Sub
Was kann ich tun um den Runtime Error zu bezwingen?Ich bin leider bei VBA noch blutige Anfängerin. Danke für eure Hilfe!
Liebe Grüsse
Nadine
Anzeige