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.


Markierung in einer Multiline Textbox durch Leerzeichen ersetzen
#1
Liebe Leute,
ich bräuchte für meine Textboxen nochmal eure Expertenhilfe. Ich habe in meiner TextBox im Multiline-Modus mehrere Sätze untereinander stehen. Jetzt möchte ich folgendes machen: ich markiere mit der linken Maustaste irgendwo einen beliebigen Text.

Für die weitere Verarbeitung habe ich ein Keyup Unterprogramm in meine Userform geschrieben:
Code:
Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Select KeyCode

Case 19 ' Pause Taste
'? gesuchter Code um Markierung durch Leerzeichenstring zu ersetzen

End Select
End Sub
Mit der Pausen Taste soll jetzt die ausgewählte Markierung durch Leerzeichen ersetzt werden. Dabei soll die Länge des Leerzeichenstrings der zuvor ausgewählten Markierungslänge entsprechen.
Wie lautet dafür der VBA Code?

Viele Dank für eure Mühe im voraus.
to top
#2
Hallo sotaros,

nimm wie beim letzten Mal besser KeyDown:

Code:
Public Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Select Case KeyCode
    Case 19 ' Pause Taste
      With TextBox4
        If Asc(Right(.SelText, 1)) = 13 Then
          .SelText = String(Len(.SelText) - 1, " ") & Chr(13)
        Else
          .SelText = String(Len(.SelText), " ")
        End If
      End With
      KeyCode = 0

Gruß Uwe
to top
#3
Hallo Uwe,

vielen Dank für den toll funktionierenden Code.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  vba - viele matrixformeln ersetzen? Klaus 45 723 30.01.2017, 07:15
Letzter Beitrag: Klaus
  Markierung in Kalender aus Zellen mit Datum Pizzacaprese 4 103 26.01.2017, 12:15
Letzter Beitrag: Pizzacaprese
  Buchstabenanzahl pro Zeile in einer TextBox berechnen Wulfi 3 94 25.01.2017, 19:16
Letzter Beitrag: atilla
  Leerzeichen zählen Lupy 25 482 04.01.2017, 20:28
Letzter Beitrag: snb
  Click Event bei TextBox auslösen Lupy 5 187 30.12.2016, 15:24
Letzter Beitrag: schauan
  VBA Leerzeichen entfernen 89stephan89 12 361 30.12.2016, 12:19
Letzter Beitrag: schauan
  suchen/ersetzen die 2. Fami 3 110 30.12.2016, 11:58
Letzter Beitrag: GMG-CC
  Hilfe bei suchen/ersetzen Fami 2 85 29.12.2016, 11:05
Letzter Beitrag: Fami
  TextBox / ComboBox aus UserForm entfernen nedial 29 669 28.12.2016, 13:20
Letzter Beitrag: Rabe
  Einträge in einer Tabelle mit einer anderen vergleichen und ersetzen JeyP 5 212 26.12.2016, 18:35
Letzter Beitrag: JeyP

Gehe zu:


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