Pfad soll per VBA verglichen werden ...

28/08/2012 - 15:20 von Jürgen Stadermann | Report spam
Hallo!
Ich frage ,wie nachstehend ab:
If Application.ActiveWorkbook.Path <>sheets("Tabelle3").Range("A14")then
msgbox "Falsche Arbeitsmappe"
end if

Obwohl mir im Modul per tipptext in beiden Fàllen der richtige Pfad
angezeigt wird, làuft der Fokus nie dahin, wo er sollte.
Also: Ist der Pfad zur Arbeitsmappe D:\ (was ja auch richtig angezeigt
wird) und der Verweis auf sheets("Tabelle3").Range("A14") der gleiche ,
bekomme ich immer die MsgBox die ich vorgegeben habe ,d.h. der Fokus
sollte jetzt weiterlaufen (über die Wennabfrage hinaus)
Bitte um Klàrende Hilfe.
Jürgen
 

Lesen sie die antworten

#1 Claus Busch
28/08/2012 - 15:36 | Warnen spam
Hallo Jürgen,

Am Tue, 28 Aug 2012 15:20:52 +0200 schrieb Jürgen Stadermann:

Obwohl mir im Modul per tipptext in beiden Fàllen der richtige Pfad
angezeigt wird, làuft der Fokus nie dahin, wo er sollte.
Also: Ist der Pfad zur Arbeitsmappe D:\ (was ja auch richtig angezeigt
wird) und der Verweis auf sheets("Tabelle3").Range("A14") der gleiche ,
bekomme ich immer die MsgBox die ich vorgegeben habe ,d.h. der Fokus
sollte jetzt weiterlaufen (über die Wennabfrage hinaus)



liegt deine Mappe direkt auf Partition D? Also nicht in einem Ordner?
Wenn ich die Mappe direkt auf D lege, ist der Pfad nur "D:" Wenn du dann
in A14 "D:\" stehen hast, stimmt es nicht überein und du bekommst die
MsgBox.
Hast du aber die Mappe z.B. im Ordner Test auf D liegen, ist der Pfad
"D:\Test". Was dann schon wieder nicht mit A14 übereinstimmt. Dann
müsstest du in A14 "D:\" haben und nur Left(ActiveWorkbook.Path, 3)
abfragen.


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen