Hallo zusammen,
ich habe versucht meine Datei zu "verschlimmbessern" ;-)
Ich habe folgendes Problem:
Ich kopiere ein paar Zeilen aus einem Tabellenblatt das als Vorlage gilt in ein anders, Das funktioniert auch.
Ich springe in die Vorlagentabelle und mit einem Makro "Back" zurück und füge ein. Die letzte Seite bekomme ich über
Private Sub Workbook_SheetDeactivate(ByVal PG As Object)
Set LastP = PG
End Sub
das in der Arbeitsmappe abgelegt ist.
Soviel zur Vorgeschichte. Jetzt möchte ich beim schließen eine Tabellenblatt ausblenden mit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Liste").Visible = False
End Sub
auch in der Arbeitsmappe
Aber das funktioniert nicht.
Ein Code für sich in der Arbeitsmappe funktioniert.
Wo liegt hier mein Fehler?
Gruß Nils
|