In Textbox nach einzelnen Wörtern suchen

Reto · 2020-03-29T14:32:32+00:00

Hallo Ich habe eine Textbox "Suche" (in der Userform "Buchungen") welche Spalten im Tabellenblatt "Buchungen" durchsucht. Solange ich die gross- und Kleinschreibung beachte und mit dem exakten Wert aus einer beliebigen Spalten suche funktioniert die Suche einwandfrei. Gibt es eine Möglichkeit den VBA Cod so zu ergänzen, dass ich nach einem einzelnen Wort oder einzelnen Wörtern aus aus einer Zelle suchen kann? Ich komme alleine nicht darauf... Beispieldatei: https://www.herber.de/bbs/user/136074.xlsm Den Code habe ich mit Hilfe von Youtube Videos und Forum nachgebaut. Danke, wenn mir jemand einen Tipp hat Grüsse Reto

Halo Reto,
benutze Find.

Option Explicit
Sub Find_Einmal()
'* H. Ziplies                                     *
'* 29.03.2020                                     *
'* erstellt von HajoZiplies@WEB.de     Spam       *
'* http://Hajo-Excel.de
'   alle Zellen die das Wort Smart enthalten den Inhalt löschen
Dim Rafound As Range
Dim StAdresse As String
With Worksheets("Projekte")
'   von Peter Haserodt
Set Rafound = .Cells.find("Pet", .Range("A1"), , xlPart, , xlNext)
If Not Rafound Is Nothing Then              'falls nicht gefunden wird sub verlassen
MsgBox Rafound.Address
StAdresse = Rafound.Address
Do
Set Rafound = .Cells.FindNext(Rafound)
If Not Rafound Is Nothing Then
If StAdresse = Rafound.Address Then
Exit Do
Else
MsgBox Rafound.Address
End If
End If
Loop
End If
End With
Set Rafound = Nothing
End Sub

Beim ersten Öffnen gibt es einen Laufzeitfehler 91 (Objektvariable oder With-Blockvariable nicht festgelegt)
Und bei Ausführen eien Laufzeitfehler 13 (Typ unverträglich)
So sieht das formatierte aus $1.10_)
Ich werde es dann versuchen die Formatierung (Währung oder Zahlen) in diesen letzten Abschnitt zu packen:
Private Sub Listbox1_Click() Me.txtBeschreibung.Value = Me.ListBox1.Column(0, Me.ListBox1.ListIndex) Me.cboSoll = Me.ListBox1.Column(1, Me.ListBox1.ListIndex) Me.cboHaben = Me.ListBox1.Column(2, Me.ListBox1.ListIndex) Me.txtBetrag.Value = Me.ListBox1.Column(3, Me.ListBox1.ListIndex) Me.cboKSDritte = Me.ListBox1.Column(4, Me.ListBox1.ListIndex) End Sub

Aber wie gesagt, ich mach jetzt Feierabend. Danke dir Onur
Grüsse Reto

In Textbox nach einzelnen Wörtern suchen

Forumthread: In Textbox nach einzelnen Wörtern suchen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

In Textbox nach einzelnen Wörtern suchen

Forumthread: In Textbox nach einzelnen Wörtern suchen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread