'Like' und '*'
01.11.2002 11:36:48
christian
was ist an diesem Code falsch?
sub UserFormöffnen_click()
Dim Datei
Datei = "Auftrag.xls" Like "Auftra*.xls"
UserForm.lbldate.Caption = Workbooks(Datei).Worksheets(1).Range("a2").Value
UserForm.show
Fehlermeldung ist immer, dass Index außerhalb des gültigen Bereiches liegt.
Die Datei "Auftrag.xls" ist geöffnet