Ha! Ganz fies, wer wollte dich denn da veräppeln?
18.07.2013 08:33:54
Klaus
Hallo Hartmut,
normalerweise antworte ich ja früher auf Beiträge, sorry.
erstmal ontopic: Ich sitze grad meine letzten Tage in Estland ab, und sobald ich in Deutschland bin habe ich zwei (!!) Umzüge zu organisieren. Wenn das Thema durch ist, werde ich mir aber ein schönes Fläschchen JonnyWalker Green-Label* von deiner Spende gönnen!
Ontopic:
Es hat etwas gedauert bis ich drauf gekommen bin
' If Not Intersect(Target, Bereich) Is Nothing Then ' Zelle ist im Bereich
ist korrekt, wird aber rot markiert. Tippe ich die Zeile neu, wird sie nicht mehr rot markiert, aber
If Not Intersect(Target, bereich) Is Nothing Then
bereich, welches ja korrekt dimensioniert ist, wird nicht großgeschrieben also nicht erkannt!
Ausserdem ist das schonmal falsch:
Public Sub Worksheet_Selection1Change(ByVal Target As Range)
Es muss natürlich SelectionChange (ohne die 1) heissen. Allerdings gibt mir dein File dann eine Fehlermeldung.
Wenn ich deinen in einer frischen Datei Code ABTIPPE, funktioniert er.
Wenn ich ihn KOPIERE, bekomme ich für JEDE Zeile eine Fehlermeldung!
Also hab ich den Code mal in ein Tabellenblatt kopiert und die einzelnen Zeichen analysiert.
Jetzt kommt der Hammer:
Es ist so: in deinem Code kommen keine Leerzeichen vor! Ein Leerzeichen ist code(32), in deiner Sub stehen aber code(160) als Leerzeichen! Dadurch erkennt Excel natürlich keinen einzelnen Befehl mehr.
Es ist mir ehrlich gesagt unerklärlich wie das passieren kann. Meine bester Tip wäre, dass jemand böswillig Sabotage an deinem Code unternommen hat, denn sowas passiert eigentlich nicht ... aber ich unterstelle natürlich niemandem etwas.
Lösung:
LÖSCHE den GESAMTEN Code inklusive Private Sub und End Sub.
Erzeuge die Zeile Private Sub Worksheet_SelectionChange(ByVal Target As Range) (aber nicht tippen, sondern über die Dropdowns oben!)
TIPPE den gesamten Code aus deinem ersten Beitrag Buchstabe für Buchstabe ab.
Jetzt sollte es wieder funktionieren!
Grüße,
Klaus M.vdT.
* Ja, einen blended Scotch! Ich bin mir des Qualitätsunterschiedes von SingleMalt gegenüber Blended bewusst, aber über Geschmack lässt sich zum Glück nicht streiten