2
VBA: workbook schließt sich nicht, wenn Sheet ein Diagramm ist
Guten Abend Zusammen,
habe ein zweites Problem in meinem Code. Dachte ich kann des selber lösen aber es klappt leider nicht.
Wenn ich eine Datei öffne und das erste Tabellenblatt KEIN DIAGRAMM ist dann schließt sich die Datei Problemlos.
Wenn das erste Tabellenblatt aber EIN Diagramm ist schließt es sich nicht.
Überwachungsausdrücke wenn erstes Tabellenblatt KEIN Diagramm ist:
Überwachungsausdrücke wenn erstes Tabellenblatt EIN Diagramm ist:
Meine Überlegungen waren das ich mit IF ELSE prüfe ob wb NULL, Nothing oder Leer ist ("") und falls ja das ich die variable sheetCounter +1 zähle bis kein Diagrammblatt mehr kommt.
Hat aber leider nicht funktioniert. Habt ihr eine Idee?
Grüße Gimli3311
habe ein zweites Problem in meinem Code. Dachte ich kann des selber lösen aber es klappt leider nicht.
Wenn ich eine Datei öffne und das erste Tabellenblatt KEIN DIAGRAMM ist dann schließt sich die Datei Problemlos.
Wenn das erste Tabellenblatt aber EIN Diagramm ist schließt es sich nicht.
Dim sheetCounter As Integer
sheetCounter = 1
'öffne Datei, nur Lesen, Keine Updates
Set wb = Workbooks.Open(f, ReadOnly:=True, UpdateLinks:=0, Password:="Passwort").Sheets(sheetCounter)
'Suche nach Logbuch oder Logbook in Datei --> Funktion: search()
blFound = search()
'Ruft Funktion checkTemplate auf und gibt eine Ganzzahl zurück ()
lngTemplate = checkTemplate(blFound, strFileName)
'Schließe Datei. False = ohne zu speichern!
wb.Parent.Close FalseÜberwachungsausdrücke wenn erstes Tabellenblatt KEIN Diagramm ist:
Überwachungsausdrücke wenn erstes Tabellenblatt EIN Diagramm ist:
Meine Überlegungen waren das ich mit IF ELSE prüfe ob wb NULL, Nothing oder Leer ist ("") und falls ja das ich die variable sheetCounter +1 zähle bis kein Diagrammblatt mehr kommt.
Hat aber leider nicht funktioniert. Habt ihr eine Idee?
Grüße Gimli3311
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 288829
Url: https://administrator.de/contentid/288829
Ausgedruckt am: 23.11.2024 um 06:11 Uhr
2 Kommentare
Neuester Kommentar
Moin,
ganz einfach, du hast vermutlich deine Variable als Typ:Worksheet deklariert und On Error Resume Next benutzt, ein Diagramm ist aber kein Objekt vom Typ Worksheet sondern Chart, also setzte die Variable auf den Typ Object und prüfe den dann den Typ mit der Funktion TypeName(varName):
Gruß grexit
ganz einfach, du hast vermutlich deine Variable als Typ:Worksheet deklariert und On Error Resume Next benutzt, ein Diagramm ist aber kein Objekt vom Typ Worksheet sondern Chart, also setzte die Variable auf den Typ Object und prüfe den dann den Typ mit der Funktion TypeName(varName):
Dim wb As Object
Set wb = Workbooks.Open(f, ReadOnly:=True, UpdateLinks:=0,Password:="Passwort").Sheets(sheetCounter)
If TypeName(wb) = "Worksheet" Then
' Objekt ist ein Worksheet
MsgBox "Objekt ist ein Worksheet"
Else
' Objekt ist ein Chart oder was anderes
MsgBox "Objekt ist 'kein' Worksheet"
End If
1
Hey grexit,
Genau das war das Problem ;) Super Erklärung!
Jetzt kann ich es noch mit der MsgBox ausprobieren, melde mich wieder im anderen Thema.
Grüße Gimli3311
Genau das war das Problem ;) Super Erklärung!
Jetzt kann ich es noch mit der MsgBox ausprobieren, melde mich wieder im anderen Thema.
Grüße Gimli3311
