ich möchte meine Rechnungsliste etwas komfortabeler gestalten. Die Rechnungen wurden mit der Rechnungsnummer als Dateiname &.xls in einem Ordner abgespeichert.
Nun kommt es manchmal vor, dass ich eine Rechnung nachträglich aufrufen muß.
Diese Funktion würde ich gerne mit einer InputBox erledigen wollen, indem ich dort die Rechnungsnummer eintrage, den Dateityp ".xls" automatisch angehängt wird um dann die Datei aus folgendem Ordner aufzurufen!
Sub Datei_aufrufen()
' Datei_aufrufen Makro
' Makro am 27.02.2005 von Korl aufgezeichnet
ChDir "C:\Programme\Test\Archiv"
Workbooks.Open Filename:= _
"C:\Programme\Test\Archiv\ "Variable" &.xls", UpdateLinks:=3
End Sub
Falls die Rechnung nicht vorhanden, dann eine "MsgBox("Rechnung nicht vorhanden!")" anzeigen lassen.
Könnte da jemand vielleicht helfen?
Gruß Korl