leider kann ich meinem vorhergehendem Beitrag nichts mehr hinzufügen, deshalb jetzt der neue Beitrag!
Im Beitrag Highlighten von mehreren Zellen habe ich einen Code gepostet, welcher es mir erlaubt, mehrere Zellen in einer Zeile mittels Shape hervorzuheben. Das funktioniert soweit auch ganz gut.
Erstellt habe ich den Code in einer Tabelle, damit er jetzt auch anderen Tabellen zugänglich ist, habe ich ihn in ein Modul (Marker) ausgelagert und rufe diesen jetzt durch folgenden Befehl auf:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim shp As Shape
If Not Intersect(Target, ActiveSheet.Range("F15:z48")) Is Nothing Then
Call Marker
Else
For Each shp In ActiveSheet.Shapes
If shp.Name = "marker" Then
ActiveSheet.Shapes("marker").Delete
Else
End If
Next shp
End If
End Sub
Doch leider kommt es nun bei der Ausführung zu einem eigenartigen Verhalten:
Laufzeitfehler 1004: Der angegebene Wert ist außerhalb des zulässigen Bereichs
Klicke ich hier auf Debuggen, wird folgende Zeile des Highlight-Codes markeirt:With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 20, 10, 10)
Vermutlich handelt es sich nur um eine Kleinigkeit, aber ich komm einfach nicht drauf!
Könnt Ihr mir eventuell bei diesem Problem helfen?
Danke schon mal im Voraus!
Viele Grüße
Peter