Warum Laufzeitfehler bei workbooks....activate
20.06.2005 23:22:01
Vhem
Es soll der dateiname verwendet werden, um von zwei Arbeitsmappen die zuerst geöffnete zu aktivieren (dem Text-Eingeber anzuzeigen).
Die Kalenderwochen-Datei wird später ständig kopiert; d.h. von pep25xls nach pep27.xls; dann von ...27... nach ...28... usw.
Es ist also zum Aktivieren immer der dateiName zu verwenden.
Zur zeit steht in A1=Lw\Ordner\Ordner...\Dateiname als Text
(Später soll die ZELL-Funktion verwendet werden.)
Meine Realisierung bringt aber eine Fehlermeldung.
Warum erscheint eine FehlerMeldung bei Workbooks(dateiname1).... ?
Die Datei pep25.xls wird im Explorer geöffnet.
Dann wird bei "DieseArbeitsmappe" Folgendes abgearbeitet :
Private Sub Workbook_Open()
' aktivieren der geöffneten Datei und Tabelle
Worksheets("Tabelle1").Activate
' Auslesen des Zell-Inhaltes und Ablegen des Zellinhaltes in die Variable dateiname1
dateiname1 = Range("A1").Value
' in A1 zur zeit noch Text "D:\Eigene Dateien\B-Hem\pep25.xls"
' später in der Zelle A1 :=ZELLE("Dateiname";A1) oder so ähnlich
' MsgBox dateiname1
' jetzt wird eine zweite datei geöffnet = Urlaub.xls
Workbooks.Open ("D:\Eigene Dateien\B-Hem\Urlaub.xls")
'die erste datei soll nun aktiv gesetzt werden
Workbooks(dateiname1).Worksheets("Tabelle1").Activate
'der Cursor soll zu H2 springen
Range("H2").Select
End Sub