In Textbox nach einzelnen Wörtern suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Private Sub txtSuche_Change() Dim z Me.ListBox1.Clear For z = 18 To 25 If InStr(UCase(Cells(z, 7)), UCase(txtSuche)) Then ListBox1.AddItem Cells(z, 7) i = ListBox1.ListCount - 1 Me.ListBox1.Column(1, i) = Cells(z, 8) Me.ListBox1.Column(2, i) = Cells(z, 9) Me.ListBox1.Column(3, i) = Cells(z, 10) Me.ListBox1.Column(4, i) = Cells(z, 11) End If Next z 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

Keine Ahnung? Aber falls es dich interessiert. Ich habe meinen Code (wie anfangs erwähnt aus Foren und yutube Videos). Diesen Abschnitt, daran erinnere ich mich, weil ich so lange gebastelt habe ist aus:
https://www.youtube.com/watch?v=RwIMc5qZ0gE
https://www.youtube.com/watch?v=RwIMc5qZ0gE
Danke hier auch an Bernd! Diese Videos haben mir geholfen.
Im Weiteren habe ich die Excel Datei selbst zusammengebaut. Immer wieder mit Code Stücken auch verschiedenen Foren. Diese könnte ich im Nachhinein nicht alle nennen.
Das meisten Hilfe, Ideen,... stammen aus herber.de !!DANKE DAFÜR!! das Forum hat mir echt riesig geholfen. Und wie gesagt, heute die erste Frage überhaupt in einem Forum. Ich habe keine zwei Namen auf verschiedenen Seiten.
Ja, ich bin neu, kenne noch nicht alle Forums-Regel,... aber Simon kenne ich nicht. Auch wenn ich schon sagen muss, der Zufall ist gross

Beliebteste Forumthreads (12 Monate)

In Textbox nach einzelnen Wörtern suchen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In Textbox nach einzelnen Wörtern suchen

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

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread