Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Namensänder der Arbeitsmappe VBA

Namensänder der Arbeitsmappe VBA
meixner
Hallo zusammen,
habe einen Makro, das auf die Excel - Arbeitsmappe mit dem Namen "Template" zugreift. Das Problem ist, das sich der Name der Datei laufend ändert und die Makros dann aber nicht mehr funktionieren, da der Name im Makro festgehalten wurden.
___________________________________
Im Makro heisst es With Workbooks("Template.xls")
______________________________________
Kann mir jemand einen Tip geben, wie ich obwohl sich der Name ändert, das Makro trotzdem arbeiten tut?
Vielen Dank.
Dani

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Namensänder der Arbeitsmappe VBA
07.04.2010 13:36:20
Michael
Wieso ändernt sich der Mappenname immer?
nutze doch .name
ThisWorkbook.Name
damit kannst du den Workbooknamen bekommen.
AW: Namensänder der Arbeitsmappe VBA
07.04.2010 14:04:54
meixner
das klappt aber leider nicht.
habe with workbooks("template.xls") in with thisworkbook.name abgeändert und bekomme eine Fehlermeldung "Laufzeitfehler 424 und Objekt erforderlich.
Grüsse
Dani
AW: Namensänder der Arbeitsmappe VBA
07.04.2010 14:06:27
meixner
Sorry die Fehlermeldung heisst
Fehler beim Kompilieren;
With - Objekt muss einen benutzerdefinierten Typ oder den Typ Object oder Variant haben.
AW: Namensänder der Arbeitsmappe VBA
07.04.2010 14:16:19
Michael
So sollte es klappen,
macht jedenfalls bei mir keine Fehler.
evtl. kennt jemand ein elegantere Methode.
Sub test()
Dim x As String
x = ThisWorkbook.Name
With Workbooks(x)
End With
End Sub
Gruß
Michael
Anzeige
AW: Namensänder der Arbeitsmappe VBA
07.04.2010 14:40:50
ingoG
Hallo zusammen,
es geht auch ohne x ;-)
Sub test()
With ThisWorkbook
MsgBox .Name
End With
End Sub
Gruß Ingo
PS eine Rückmeldung wäre nett...

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige