ich habe ein Problem (oder Phänomen), bei dem ich nicht weiterkomme. Bei folgendem Code
Private Sub Worksheet_SelectionChange(ByVal rngTarget As Range)
Dim wksOne As Worksheet ' aktuelles Arbeitsblatt
Set wksOne = ThisWorkbook.Sheets(strProtokoll) ' Arbeitsblatt "Protokoll"
With wksOne
.Unprotect ' Blattschutz aufheben
If .Cells(Rows.Count, 1).End(xlUp).Row
beendet Excel die weitere Bearbeitung nach Ausführen der Anweisung
ActiveCell = Format(Time, "hh:mm")
ohne Angabe von Gründen. Auch ein Durchlauf im Einzelschritt-Modus kommt zum gleichen Ergebnis. Nach Durchführung der Anweisung wird keine weitere Anweisung mehr durchgeführt (er springt weder auf die "End If"-, noch auf die ".Protect"-Anweisung).
Ich bin ratlos, weil ich überhaupt keine Rückmeldung von Excel erhalte.
Danke für Eure Bemühungen,
Ulf