Probleme mit Suchfunktion
03.03.2009 08:58:09
gw2
Ich habe ein Problem, mit einem kleinen Programm das ich erstellt habe und hoffe hier auf Unterstützung.
In dem Programm nutze ich die Suchfunktion um die Startzelle für einen Kopiervorgang zu ermitteln:
strFind = InputBox("Bitte die Jahreszahl (letztes Jahr) eingeben, die kopiert werden soll", "Jahreswechsel", "2008")
Set objErgebnis = Cells.Find(strFind, , xlFormulas)
If objErgebnis Is Nothing Then
MsgBox "Die angegebene Jahreszahl konnte nicht gefunden werden!"
Exit Sub
Else
objErgebnis.Select
strAdress = ActiveCell.Address(False, False) 'Startzelle merken...
strEinfZeile = Right(strAdress, 1)
strEinfSpalte = ActiveCell.Column + 12 '... und Startspalte um ein Jahr versetzen...
End If
Anschließend läuft dann der Kopiervorgang mit einigen Zusatzfunktionen. Mein Problem ist nun, dass die Suche keinen entsprechenden Wert findet, obwohl dieser Nachweislich in der Datei steht. Die Suche funktioniert leider auch nicht außerhalb des Makros (mit STR+F), daher vermute ich noch ein anderes Problem (Fehlermeldung: "Microsoft Excel kann keine übereinstimmenden Daten finden. Überprüfen Sie Ihre Sucheinstellungen, Suchbereiche und - formatierungen.").
Der angezeigte Wert (31.12.2008) stammt aus keiner Eingabe, sondern aus einer verknüpften Datei. Kann es damit etwas zu tun haben? Kurioserweise funktioniert die Suche in einigen Dateien, in anderen wiederum nicht (ich habe mehrmals ähnliche Dateien...).
Ich hoffe ich habe den Fehler verständlich beschrieben und Ihr könnt mir helfen. Meine Google Suche war leider vergeblich.
Vielen Dank und viele Grüße schon einmal
Gunther