Application.StatusBar = False
If found > 0 Then
MsgBox "Es wurden " & found & " suspekte Positionen gefunden!", vbCritical
ThisWorkbook.Sheets("Report").Visible = True
ThisWorkbook.Sheets("Report").Select
Else
MsgBox "Es wurde keine suspekte Position gefunden!", vbInformagtion
End If
ausgeführt. Solange ich Excel in Ruhe arbeiten lasse, gibt es keine Probleme. Bei gefundenen Treffern wird automatisch das Tabellenblatt Report eingeblendet und über 'Select" darauf gewechselt, so dass es angezeigt wird. Wenn ich aber währenddessen eine andere Exceldatei geöffnet habe, kommt es sporadisch zu einem Crash. Der Debug-Modus verweist dann auf die Select-Zeile.
Die genaue Fehlermeldung habe ich jetzt leider nicht zur Hand, weil ich ausgerechnet jetzt den crash nicht nachstellen kann. Es war aber irgendwas mit fehlendem Objekt.
Ich hätte jetzt eigentlich gedacht, das ThisWorkbook sich immer auf die Datei bezieht, in dem das Makro gestartet wurde. Insofern verstehe ich nicht, weshalb es dann ein Problem ist, wenn ich in einer anderen Datei am gange bin.
Sollte ich besser Activate statt Select nehmen?