if name like...Problem @xXx
Harald
dein Code zur Aktivierung von geöffneter Datei namens NIO_FS2004****.xls
bringt mir einen Laufzeitfehler 438. Objekt unterstützt Eigenschaft oder Methode nicht. Für alle anderen. Die letzten 4 Stellen vor .xls variieren und sollen bei der Aktivierung -aus einer anderen Datei heraus- keine Rolle spielen.
Es sind immer nur max. 2 Excelworkbooks bei dieser Prozedur offen, allerdings auch andere Programme.
Hier nochmal der Code
Sub aktivierenFS()
Dim wnd As Window
For Each wnd In Windows
If wnd.Name Like "NIO_FS2004*.xls" Then 'in dieser Zeile stoppt er bei .name
wnd.Activate
Exit For
End If
Next wnd
End Sub
Kann ja nicht viel falsch sein. Habe schon ein bisschen gebastelt, bekomme aber immer wieder Fehlermeldungen.
Wer hat Abhilfe ?
Gruß
Harald