Pfad soll per VBA abgefragr bzw. verglichen werde

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

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 Henry Helm
01/09/2012 - 22:40 | Warnen spam
On Tue, 28 Aug 2012 14:48:30 +0200, Jürgen Stadermann
wrote:

Ich frage ,wie nachstehend ab:
If Application.ActiveWorkbook.Path <>sheets("Tabelle3").Range("A14")then



Du könntest folgendes prüfen:
-Sind noch weitere Mappen offen ?
-stehen in A14 noch zusàtzliche Leerzeichen ?
-Gibt es Unterschiede durch Groß/Kleinschreibung ?

z.B. könntest Du mit folgender Routine Dein Problem eingrenzen:
Sub Pfadtest()
Dim Pfad1 As String, Pfad2 As String, EintragA14 As String
Pfad1 = Application.ActiveWorkbook.Path
Pfad2 = Application.ThisWorkbook.Path
EintragA14 = Sheets("Tabelle3").Range("A14").Value
Debug.Print "ActiveWorkbook.Path", "*" & Pfad1 & "*"
Debug.Print "ThisWorkbook.Path:", "*" & Pfad2 & "*"
Debug.Print "Tabelle3_RangeA14:", "*" & EintragA14 & "*" & " Typ:" &
TypeName(EintragA14)
MsgBox Pfad1 & vbCrLf & Pfad2 & vbCrLf & EintragA14 & vbCrLf
If Pfad1 = EintragA14 Then
MsgBox "gleich"
Else: MsgBox "unterschiedlich"
End If
If LCase(Pfad1) = LCase(EintragA14) Then
MsgBox "kleinbuchstaben gleich"
Else: MsgBox "kleinbuchstaben unterschiedlich"
End If
End Sub

Ähnliche fragen