wenn ein Blatt nicht existiert...
Jörg-HH
Die Datei, in der dieser Code läuft, hat in ihrer Ursprungsversion vieleviele Blätter, darunter _
auch Tabelle31.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Dim Tabelle31
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
'Beim Öffnen der Datei wird die Public Sub refreshCdoKd() bzw. ...Ptn() aufgerufen.
'Diese ergibt einen Fehler, wenn die Linked Cells von Kd- oder Ptn-Dropdown leer sind
'(kann nach Änderungen im Blatt DBank vorkommen). Hier ein Hinweis, um das zu verhindern.
If Me.Sheets.Count
Dann gibt es noch eine Miniversion zum Versenden, in der fast alle Blätter gelöscht sind - u.a. verschwindet dabei auch Tabelle31.Schließe ich die Vollversion, gibt es keine Probleme.
Schließe ich die Miniversion, wird für "Tabelle31" gemeckert "Variable nicht definiert" (wohl, weil sie nicht mehr da ist)
Also schreibe ich oben Dim Tabelle31.
Dann ist es umgekehrt:
Schließe ich die Miniversion, gibt es keine Probleme.
Schließe ich die Vollversion, wird für "Tabelle31" gemeckert (aber ne andere Meldung - warum stört das Dim Tabelle31 denn überhaupt?)
Also mein nett gemeintes Schnipsel
If Me.Sheets.Count Exit Sub
kommt gar nicht zum Einsatz.
Hatte auch schon im Archiv nach Code gesucht, der prüft, ob ein Blatt existiert, aber bei der Einpassung in mein Problem bin ich nicht weitergekommen.
Hat jemand 'ne Idee, wie ich diesen Code ergänzen muß, damit er mit und ohne Tabelle31 läuft?
Im Grunde ist der Teil bei der Miniversion überflüssig - es würde also auch helfen, wenn ich den Abschnitt beim Herstellen der Miniversion löschen könnte, aber ich weiß nicht, wie ich Code mit Code löschen kann.
Grüße - Jörg