Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Suchen und Markieren in einer TextBox
#1
Hallo liebe VBA-Freunde,

für folgendes Problem bräuchte ich eure Hilfe. Ich habe mir im Rahmen meiner Userform ein kleines Programm geschrieben, welches den bei mir in Spalte B stehenden Text mittels Betätigung eines CommandButtons untereinander in die Textbox2 schreibt.


Dies ist mein Code:
(Verschönerungen, Alternativen usw. ausdrücklich erwünscht)

Code:
Public Sub CommandButton2_Click()
'Schreibt die Zeilen aus Spalte B
'in die TextBox2
On Error Resume Next

letzte = Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2).Row
TextBox2.MultiLine = True
TextBox2.Text = ""

ReDim varF(letzte)
Set wx = Range("B1:B" & letzte)

wx.Select

i = 0
For Each zelle In Selection
varF(i) = zelle.Value
i = i + 1
Next zelle

For a = 0 To UBound(varF) - 1
TextBox2.Value = TextBox2.Value & varF(a) & vbLf & vbLf
Next a

End Sub

Mein Problem ist derzeit folgendes: Ich möchte in die TextBox1 Begriffe eingeben, die dann über über einen weiteren Commandbutton in der TextBox2 gefunden werden können und dabei markiert werden. Dazu muss ich die Finden-Funktion irgendwie mit TextBox2.SelStart und TextBox2.SelLength verknüpfen und dann hervorheben oder so etwas in der Art. Kurzum ich habe keine Ahnung wie ich so etwas konkret umsetzen könnte.
Wie sieht dabei der VBA Code aus?
to top
#2
Hallo Kathrin,
Bin gerade am Smartphone, daher nur ein kurzer Hinweis. Kürzlich gab es in unserem Forum einen Thread zum Färben von ing-Worten, bei dem ich auch eine Lösung gepostet habe. Da musste auch Anfang und Ende der Worte gefunden werden. Ich hab dazu den Text an den Leerzeichen in ein Array gesplittet ... Gehe mal in die Suche, vielleicht ist das hier auch ein Ansatz.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Textbox zählen, laufende Nr. vorgeben Pia 5 46 Vor 2 Stunden
Letzter Beitrag: Pia
  2 Spalten nach Doubletten untersuchen und markieren oder eintrage ändern purestyles 31 372 16.02.2017, 21:44
Letzter Beitrag: atilla
  Buchstabenanzahl pro Zeile in einer TextBox berechnen Wulfi 3 99 25.01.2017, 19:16
Letzter Beitrag: atilla
  Nach 5 selben Zahlenerfassungen 6. +< Erfassung löschen oder rot markieren possertf 9 208 13.01.2017, 17:52
Letzter Beitrag: Ego
  Werte in einer Zeile addieren bis Zielwert erreicht und verwendete Werte markieren hoteu 2 94 12.01.2017, 13:04
Letzter Beitrag: hoteu
  Zeile Farbig Markieren Juli88 7 149 09.01.2017, 15:16
Letzter Beitrag: steve1da
  Suchen und Markieren Arni49 21 625 30.12.2016, 19:50
Letzter Beitrag: Arni49
  Click Event bei TextBox auslösen Lupy 5 189 30.12.2016, 15:24
Letzter Beitrag: schauan
  TextBox / ComboBox aus UserForm entfernen nedial 29 686 28.12.2016, 13:20
Letzter Beitrag: Rabe
  Textbox Inhalt einer Userform in eine bestimmte Zelle schreiben - VBA - Hiiilfe Chris1112 9 271 20.12.2016, 10:21
Letzter Beitrag: Rabe

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste