Suche über TextBox, Problem mit einem Wort
17.08.2007 11:08:00
Chaos
ich habe da ein mir nicht verständliches Problem mit meiner UserForm:
Ich gebe in TextBox1 (Eingabe) meiner UF den jeweiligen Suchbegriff ein und lasse mir dann über den Button Ausführen alle Dateien in einem vorgegebenen Pfad öffnen (dateinamen kommen in Sheet(1).Spalte"IU") und diese werden dann alle miteinander veglichen.
Jetzt wird das Makro "Sub nach2()" aufgerufen und in einer Do -For-Anweisung immer die Datei in der letzten _
beschriebenen Zelle von Spalte IU geöffnet, nach dem Suchbegriff gesucht, die Spalte des Suchbegriffs ermittelt und die letzte beschriebene Zelle in dieser Spalte (Zeilenzahl).
Anschließend wird die jeweilige Vergleichsdatei geöffnet und in einer For-Schleife _
dasgleiche ermittelt.
Dann kommt mit den ermittelten Daten ein Vergleich, in dem übereinstimmende Daten in den beiden _
Vergleichsdateien ermittelt werden und diese werden nach Sheet(1).Range("IT") geschrieben und anschließend nach Sheet(2) kopiert.
Das funktioniert alles einwandfrei, bis dann wenn ich das Wort Strasse in die TextBox eingebe.
Bei Strasse, läuft mir der Code beim letzten Vergleich in diese Else-Anweisung hinein:
Sub nach2()
Else
If Workbooks(nameVgl).Sheets(1).Cells(1, nameVglSpalte).Column = 256 And Workbooks(nameVgl). _
_
Sheets(1).Cells(1, nameVglSpalte).Value UserForm1.TextBox1.Value Then
MsgBox ("Der gesuchte Eintrag ist in " & nameVgl & " nicht vorhanden!")
Workbooks(nameVgl).Close
GoTo weiter ' s.Quelldatei
End If
End Sub
s.Datei
Obwohl der Eintrag in dieser Datei vorhanden ist.
Der Code ist entsprechend kommentiert. Ich kann mir das jetzt nicht wirklich erklären und finde den Fehler nicht. Ist evtl. was Triviales, aber ich sehe es nicht.
Schonmal besten Dank für die Hilfe
Hier die Userform:
https://www.herber.de/bbs/user/45151.xls
Hier die Dateien(die erste macht Probleme, 45152.xls):
https://www.herber.de/bbs/user/45152.xls
https://www.herber.de/bbs/user/45153.xls
https://www.herber.de/bbs/user/45154.xls
Gruß
Chaos
Anzeige