Find Methode was ist zu beachten?

Guten Morgen zusammen,
ich habe eine Frage was die find Methode betrifft.
Und zwar habe ich eine Userform mit mehreren Comboboxen und Textboxen.
Die Einträge der Comboboxen werden aus einem separaten Tabellenblatt geholt und dann bei Auswahl direkt in die Textbox geschrieben.
Nun möchte ich es so machen, dass wenn ich die erste Textbox mit einem Auswahltext fülle, dass Excel in dem Moment in dem Quellenblatt nach den Texten sucht die in der gleiche Zeile wie der ausgewählte Text stehen, eben in entsprechenden Spalten. Werden die Werte gefunden, sollen sie direkt in die folgenden Textboxen transportiert werden.
Kurz gesagt soll entsprechend der Vorauswahl für die erste Textbox die restlichen Textboxen mit den entsprechenden zugehörigen Texten gefüllt werden.
Mein Codebeispiel habe ich mal unten dazugeschrieben.
Vielleicht noch ein Hinweis: Die Texte sind teilweise länge, haben Leerzeilen und Teilweise am Anfang geschwungene Klammern z.B. so - {Abschn. Transport}Während des Transportes...
Ich habe schon versucht das Ganze mit einem ' am Anfang zu beheben oder an der Zellenformatierung in der zu überprüfenden Zelle, leider kein Erfolg.
Ein weiter Test hat gezeigt, dass wenn ich mal im Quellblatt die Texte durch kurze Wörter wie Hallo, Ja oder Nein ersetze funktioniert alles.
Hat jemand einen Rat?

Private Sub ComboBox1_Change()
TextBox2.Value = ComboBox1.Text
End Sub



Private Sub TextBox2_Change()

Dim WkSh    As Worksheet

Dim rZelle  As Range

Set WkSh = ThisWorkbook.Worksheets("Datenpool")

If TextBox2.Value  "" Then

With WkSh.Columns(2)

Set rZelle = .Find(TextBox2.Value, LookAt:=xlWhole, LookIn:=xlValues)

If Not rZelle Is Nothing Then

TextBox3.Value = WkSh.Cells(rZelle.Row, 3).Value

TextBox40.Value = WkSh.Cells(rZelle.Row, 9).Value

TextBox41.Value = WkSh.Cells(rZelle.Row, 10).Value

TextBox42.Value = WkSh.Cells(rZelle.Row, 11).Value

End If

End With

End If

End Sub

Vielen Dank euch im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Die Einstellungen für LookIn, LookAt, SearchOrder und MatchByte werden gespeichert, sobald Sie diese Methode verwenden. Wenn Sie beim nächsten Aufruf der Methode keine Werte für diese Argumente angeben, werden die gespeicherten Werte verwendet. Das Festlegen dieser Argumente ändert die Einstellungen im Dialogfeld Suchen, und das Ändern der Einstellungen im Dialogfeld Suchen ändert die _ gespeicherten Werte, die verwendet werden, wenn Sie die Argumente auslassen. Legen Sie diese Argumente zum Vermeiden von Problemen explizit fest, sobald Sie diese Methode verwenden.

Private Sub TextBox1_Change() Dim WkSh As Worksheet Dim rZelle As Range Dim lngIndex As Long Set WkSh = ThisWorkbook.Worksheets("Tabelle2") If TextBox1.Value "" Then With WkSh.Columns(2) Set rZelle = .Find(What:=Replace$(Expression:=TextBox1.Value, _ Find:=vbCr, Replace:=""), LookAt:=xlPart, LookIn:=xlValues, MatchCase:=False) If Not rZelle Is Nothing Then For lngIndex = 2 To 5 Controls("TextBox" & lngIndex).Value = _ WkSh.Cells(rZelle.Row, lngIndex + 1).Value Next End If End With End If End Sub

Private Sub TextBox1_Change() Dim WkSh As Worksheet Dim rZelle As Range Dim lngIndex As Long Set WkSh = ThisWorkbook.Worksheets("Tabelle2") If TextBox1.Value "" Then With WkSh.Columns(2) Set rZelle = .Find(What:=Replace$(Expression:=TextBox1.Value, _ Find:=vbCr, Replace:=""), LookAt:=xlPart, LookIn:=xlValues, MatchCase:=False) If Not rZelle Is Nothing Then TextBox3.Value = .Cells(rZelle.Row, 3).Value TextBox40.Value = .Cells(rZelle.Row, 9).Value TextBox41.Value = .Cells(rZelle.Row, 10).Value TextBox42.Value = .Cells(rZelle.Row, 11).Value Set rZelle = Nothing End If End With End If Set WkSh = Nothing End Sub

Dim oDic1 As Object, meAr1, A Set oDic1 = CreateObject("Scripting.Dictionary") With Sheets("Datenpool") meAr1 = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)).Value End With For Each A In meAr1 If Not IsEmpty(A) Then oDic1(CStr(A)) = 0 Next ComboBox1.List = oDic1.keys oDic1.RemoveAll Set oDic1 = Nothing

Danke Gerd!
Aber Nächstes Problem, Oh noooo.
Wenn ich nun in einer Spalte die mit der Find Methode von gestern durchsucht wird auch Leere Zeilen bzw Zellen habe, gibts eine Fehlermeldung Laufzeitfehler '13' Typen unverträglich und zwar hier in der zweiten Zeile:
Set rZelle = .Find(What:=Replace$(Expression:=TextBox2.Value, _
Find:=vbCr, Replace:=""), LookAt:=xlPart, LookIn:=xlValues, MatchCase:=False)
Ich vermute dass es daran liegt, dass ja in der Combobox eine Auswahl gemacht wird, aufgrunddessen wird der Bereich daneben durchsucht, der aber leer sein kann. Besser kann ich es leider nicht beschreiben. In der Beispieldatei von gestern würde also im Tabellenblatt, welches als Quelle dient, nicht in der Spalte von Bereich1 sondern in Bereich2 etc. eine leere Zelle vorkommen, dort müsste der Fehler ja eigentlich auch auftreten sobald ich genau diese Zeile über die Combobox anwähle. Tut es aber nicht. Dort funktioniert es.

Beliebteste Forumthreads (12 Monate)

Find Methode was ist zu beachten?

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Find Methode was ist zu beachten?

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread