Set wb macht "manchmal" Probleme. Versteht das jemand ?
22.01.2024 11:47:32
Andreas_ausWuppertal
ein exotisches Problem plagt mich mit einem Makro, weiß jemand eine Erklärung ??
Folgendes Problem:
Das Makro mit der problematischen Funktion lief vor wenigen Tagen problemlos durch.
Ohne dass irgendwas geändert wurde, schmierte heute Excel beim Ausführen des besagten Makros gnadenlos ab.
Und zwar immer an dieser Stelle im VBA-Code:
Set wb = Workbooks.Open(sPath & sMappe)
Ich habe mir im debug-Modus alles angeschaut und keinen Fehler entdecken können. Dann habe ich testweise in der gesamten Funktion die Variable wb in wbX umbenannt und die Variable ws in wsX umbenannt. Danach lief das Makro durch.... Hääähh??
Habe die Datei gespeichert, geschlossen, wieder geöffnet : es läuft durch.
Versteht das jemand ??
Habe dann die ursprüngliche Version nochmal geöffnet wo die beiden Variablen noch nicht umbenannt waren und Excel schmiert dabei immer noch ab.
Hat jemand so etwas schonmal beobachtet oder eine Erklärung für das Abschmieren ?
- Hier der komplette Code meiner Funktion: -
Function fktCheckIfSheetExistInOtherWB(ByVal sPath As String, ByVal sMappe As String, ByVal sSheet As String) As Boolean
Dim wb As Workbook
Dim ws As Worksheet
If Right(sPath, 1) > "\" Then
sPath = sPath & "\"
End If
On Error Resume Next
Set wb = Workbooks.Open(sPath & sMappe) '-- hier schmierte Excel ab... trotz On Error
Set ws = wb.Worksheets(sSheet)
On Error GoTo 0
If ws Is Nothing Then
fktCheckIfSheetExistInOtherWB = False
Else
fktCheckIfSheetExistInOtherWB = True
End If
wb.Close False
End Function
Vielen lieben Dank schonmal im Voraus !!
mfG,
Andreas aus Wuppertal