Probleme mit Suchfunktion

Hallo, Zusammen!
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

Hallo Gunther,
du muss in der Find-Funktion zusätzlich den Parameter für Teilstring-Suche einbauen, dann solte es funktionieren. Je nachdem mit welch Sucheinstellung du bei vorherigen Suchen gearbeitet hast funktioniert dein Makro mal und mal nicht.
Außerdem sollte man die Variablen für Zeilen- und Spaltennumemrn nicht in Variablen vomTyp String sondern Typ Long speichern.
Gruß
Franz


Sub Makro1()
Dim strFind As Variant, objErgebnis As Range
Dim strAdress As String
Dim lngEinfzeile As Long
Dim lngEinfSpalte As Long
strFind = InputBox("Bitte die Jahreszahl (letztes Jahr) eingeben, die kopiert werden soll", " _
Jahreswechsel", "2008")
Set objErgebnis = Cells.Find(What:=strFind, LookAt:=xlPart, LookIn:=xlFormulas)
If objErgebnis Is Nothing Then
MsgBox "Die angegebene Jahreszahl konnte nicht gefunden werden!"
Exit Sub
Else
objErgebnis.Select
strAdress = objErgebnis.Address(False, False) 'Startzelle merken...
lngEinfzeile = objErgebnis.Row
lngEinfSpalte = objErgebnis.Column + 12 '... und Startspalte um ein Jahr versetzen...
End If
End Sub

Forumthread: Probleme mit Suchfunktion

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Probleme mit der Suchfunktion in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)