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
  Leerzeichen zählen Lupy 25 418 04.01.2017, 20:28
Letzter Beitrag: snb
  Click Event bei TextBox auslösen Lupy 5 136 30.12.2016, 15:24
Letzter Beitrag: schauan
  VBA Leerzeichen entfernen 89stephan89 12 289 30.12.2016, 12:19
Letzter Beitrag: schauan
  suchen/ersetzen die 2. Fami 3 71 30.12.2016, 11:58
Letzter Beitrag: GMG-CC
  Hilfe bei suchen/ersetzen Fami 2 63 29.12.2016, 11:05
Letzter Beitrag: Fami
  TextBox / ComboBox aus UserForm entfernen nedial 29 527 28.12.2016, 13:20
Letzter Beitrag: Rabe
  Einträge in einer Tabelle mit einer anderen vergleichen und ersetzen JeyP 5 149 26.12.2016, 18:35
Letzter Beitrag: JeyP
  Textbox Inhalt einer Userform in eine bestimmte Zelle schreiben - VBA - Hiiilfe Chris1112 9 186 20.12.2016, 10:21
Letzter Beitrag: Rabe
  Zuordnung von EAN Nummern mit Sperrung (oder Markierung) nach einmaliger Verwendung Kali-1 6 134 14.12.2016, 14:36
Letzter Beitrag: Kali-1
  Quellcode kürzen - mehrere if abfragen durch for Schleife ersetzen? Abitus 4 160 05.12.2016, 07:02
Letzter Beitrag: Abitus

Gehe zu:


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