ich habe mein Template ursprünglich unter office 2003 geschrieben und jetzt nur den letzten Code geändert unter 2007. Dabei erscheint immer die Fehlermeldung Projekt oder Bibliothek nicht gefunden und Range wird angezeigt?
Das Programm soll aber auch unter 2007 laufen. Deswegen die Bitte mir zu zeigen, was ich ändern muss, dass es unter beiden Versionen läuft, sehe den Fehller nicht!
Zum Code:
Der Pfad + Name wird beim Beenden immer in Zelle U3 gespeichert. Falls der String am Ende die Bezeichnung "_laufend" enthält, sollen diese Zeichen abgeschnitten werden.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Tabelle1_2.Range("U3") = ThisWorkbook.Path & "\" & ThisWorkbook.Name
If Tabelle1_2.Range("U3").Value Like "*laufend.xls" Then
Tabelle1_2.Range("U3") = Left(Tabelle1_2.Range("U3"), Len(Tabelle1_2.Range("U3")) - 12) & ".xls" _
End If
End Sub
Ich danke schon einmal im Voraus