Laufzeitfehler

Forumthread: Laufzeitfehler
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Laufzeitfehler

Laufzeitfehler

16.05.2003 00:58:58

Ellen

Hallo, Zusammen,

weiß jemand, wie ich folgendes Dialogfeld:

meinfile = InputBox("Zum Einfügen der Messwerte bitte nocheinmal den Dateinamen (ohne .xls-Endung) eingeben : ")
Sheets(1).Copy After:=Workbooks(meinfile & ".xls").Sheets(1)

beenden kann, ohne einen Laufzeitfehler zu verursachen. Habe es über:

If meinfile = False Then Exit Sub

versucht, funktioniert aber nicht.

Gruß
Ellen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Laufzeitfehler

16.05.2003 01:01:28

PeterW
Re: Laufzeitfehler

16.05.2003 10:39:25

Max

Re: Laufzeitfehler

16.05.2003 01:01:28

PeterW

Hallo Ellen,

vielleicht mit

If meinfile= "" Then Exit Sub

Gruß
Peter

Re: Laufzeitfehler

16.05.2003 10:39:25

Max

Hallo Ellen,

versuchs doch statt mit Dateinamen eingeben mit dem Dialogfeld öffnen.

aktdatei = ActiveWorkbook.Name
If Application.FindFile = True Then
dateiname = ActiveWorkbook.Name
Workbooks(aktdatei).Activate
Worksheets(1).Copy After:=Workbooks(dateiname).Worksheets(1)
Else
Exit Sub
End If

dann kann der Dateiname gar nicht falsch sein.

MfG

Max

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!