datei öffnen
07.04.2003 01:48:14
gringo
ich brauche mal wieder Hilfe:
In Spalte A stehen Nummern, unter C:\Rechnungen sind die gleichlautenden Dateien gespeichert.
Durch click auf eine Zelle soll automakromatisch die entsprechende Datei geöffnet werden.
Script für Zellenclick klappt - Forumstipps funzen eben immer!
Script für Dateiaufruf funzt gar nicht, aber den habe ich mir auch selbst zusammen gereimt. Damit die Profis was zu lachen haben, hier mein kläglicher Versuch:
Sub DatOeffnen
Dim filename as integer
filename = Range("A:A ") & ".xls"
If Dir(C:\Rechnung.xls") = "" Then
MsgBox ("Die Datei „filename“ konnte nicht gefunden werden!")
If Dir(C:\Rechnung.xls") = "filename" Then
Workbooks.Open (filename)
End if
End if
End sub
Wer weiß eine Lösung?
Freut sich wie immer auf Antwort
dero Gringo