Blätter einer Mappe durchsuchen funktioniert nicht
15.09.2015 12:36:14
Werner
ich habe eine Excelmappe (Excel 2013) mit ca. 85 Blättern.
Um die richtigen Blätter zu finden, prüfe ich, aus einer anderen Excelmappe heraus, alle Blätter in einer for-i-next Schleife zunächst auf Existenz eines Schlüsselwortes in einer bestimmten Zelle (A3). Das Schlüsselwort besteht aus zwei Zeichen (FF, NF, SF).
Das Verrückte ist, dass dieses durchsuchen bei den ersten Blättern noch funktioniert und dann gibt die Suchfunktion irgendwann einen Zellinhalt aus, der in der Zelle im gerade durchsuchten Blatt schlicht nicht vorhanden ist, sprich die Zelle ist leer aber die Funktion gibt "SF" aus:
test2 = Workbooks(filename_src).Worksheets(i).Range(criteria_cell).Value
Ich habe die Variablen in der o.g. vba Zeile, die die Zelle ausliest, probeweise durch Werte ersetzt, trotzdem enthält test3 den o.g. nicht existierenden Inhalt.
test3 = Workbooks("test1.xlsm").Worksheets(36).Range("A3").Value
Ich habe dann das betroffene Blatt Nr. 36 gelöscht und ein neues mit demselben Namen (oder einem anderen) erzeugt, das brachte ebenfalls keine Änderung.
Wenn ich hingegen den o.g. vba Code auf eine ganz neu angelegte Excelmappe mit ca. 40 Blättern anwende (wieder aus einer zweiten Arbeitsmappe heraus), dann funktioniert er genau wie erwartet, d.h. die Blätter werden entsprechend dem Eintrag in der Zelle A3 richtig erkannt.
Eine neue Arbeitsmappe anzulegen ist wegen den Inhalten der Blätter der Arbeitsmappe aber leider keine praktikable Möglichkeit.
Ich hoffe nun, dass es auf Basis des geschilderten Problems vielleicht jemanden gibt, dem dazu etwas einfällt.
Im Voraus Danke für Eure Hilfe!
Grüße
Werner