Thema Datum  Von Nutzer Rating
Antwort
27.09.2010 19:35:57 Manfred
NotSolved
28.09.2010 17:44:46 Severus
NotSolved
30.09.2010 09:01:13 Manfred
NotSolved
30.09.2010 13:53:01 Severus
NotSolved
30.09.2010 16:02:48 Manfred
NotSolved
01.10.2010 04:17:24 Severus
NotSolved
01.10.2010 11:05:08 Manfred
NotSolved
02.10.2010 02:41:43 Severus
NotSolved
02.10.2010 09:21:56 Manfred
NotSolved
02.10.2010 21:50:30 Severus
NotSolved
05.10.2010 18:52:48 Manfred
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:VBA Excel2003 Dat
05.10.2010 19:41:52 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus
Datum:
05.10.2010 19:41:52
Views:
796
Rating: Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:VBA Excel2003 Dat
Manfred schrieb am 05.10.2010 18:52:48:

Nabend Severus,
habe den Code von dir jetzt eingebaut, doch stelle ich ein Problem fest, wenn ich den COde drin habe gehen keine Funnktionen mehr, nehm ich ihn raus geht alles wieder. Woran könnte das liegen?

greetz Mani




Severus schrieb am 02.10.2010 21:50:30:

Hi Mani,

was verwendest Du zum Einlesen eines Dateinamens?

DateiName = Application.GetOpenFileName(... ?

Dann hast Du beim Abbrechen einen Rückgabewert in "DateiName von "" oder "Falsch".
Die kannst Du abfangen:

If DateiName = "" or UCase(DateiName) = "FALSCH" Then Exit Sub

Severus

Hab mir Deinen Code gerade nochmal angeschaut. Du verwendest

BUCHDat = Application.GetOpenFilename(filefilter:="XLS-Dateien,*.xls")
If UCase(BUCHDat) = "FALSCH" Then Exit Sub
(Das reicht übrigens. Der Leerfall BUCHDat = "" kommt nicht vor)
Severus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.09.2010 19:35:57 Manfred
NotSolved
28.09.2010 17:44:46 Severus
NotSolved
30.09.2010 09:01:13 Manfred
NotSolved
30.09.2010 13:53:01 Severus
NotSolved
30.09.2010 16:02:48 Manfred
NotSolved
01.10.2010 04:17:24 Severus
NotSolved
01.10.2010 11:05:08 Manfred
NotSolved
02.10.2010 02:41:43 Severus
NotSolved
02.10.2010 09:21:56 Manfred
NotSolved
02.10.2010 21:50:30 Severus
NotSolved
05.10.2010 18:52:48 Manfred
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:VBA Excel2003 Dat
05.10.2010 19:41:52 Severus
NotSolved