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
  Zeilen aus einer Tabelle per Zufall auswählen und markieren Jordan 4 97 14.11.2016, 19:46
Letzter Beitrag: Jordan
  Listboxeintrag finden und markieren Usedom 2 55 09.11.2016, 20:39
Letzter Beitrag: Usedom
  Problem mit Exit-Ereignis einer Textbox Usedom 4 82 07.11.2016, 20:03
Letzter Beitrag: Usedom
  Suchen und Ersetzen innerhalb einer Zelle Nelson 4 104 04.11.2016, 14:16
Letzter Beitrag: Kuwer
  Userform: Anzeige der Textbox-Nummern Rabe 8 151 28.10.2016, 17:52
Letzter Beitrag: Gast 123
  Selektierte Werte in ListBox nacheinander in TextBox michel34497 3 140 08.10.2016, 13:00
Letzter Beitrag: michel34497
  Zeile markieren Jürschen175 17 434 28.09.2016, 19:19
Letzter Beitrag: schauan
  Zweite und folgende Dupletten markieren Lasse95 9 276 28.09.2016, 05:59
Letzter Beitrag: Rabe
  Fokus zurück auf Textbox sharky51 9 316 23.09.2016, 21:30
Letzter Beitrag: sharky51
  Textbox via Vlookup füllen Tuempeltaucher 6 173 22.09.2016, 12:18
Letzter Beitrag: Tuempeltaucher

Gehe zu:


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