Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Laufzeitfehler

Laufzeitfehler
15.05.2003 22: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
Anzeige
Re: Laufzeitfehler
15.05.2003 23:01:28
PeterW

Hallo Ellen,

vielleicht mit

If meinfile= "" Then Exit Sub

Gruß
Peter

Re: Laufzeitfehler
16.05.2003 08: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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige