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
  Quellcode kürzen - mehrere if abfragen durch for Schleife ersetzen? Abitus 4 78 Gestern, 07:02
Letzter Beitrag: Abitus
  Hyperlink Funktion bei Leerzeichen waldemarrrrr 2 43 29.11.2016, 22:47
Letzter Beitrag: waldemarrrrr
  Ersetzen von Bestandteilen in Hyperlinks Icepic 2 43 29.11.2016, 17:23
Letzter Beitrag: Fennek
  #Wert! mit "Text" ersetzen VBA GustavL 10 131 29.11.2016, 14:47
Letzter Beitrag: GustavL
  VBA Formeln durch Werte ersetzen, aber nicht Pivot Torsten 8 128 24.11.2016, 21:52
Letzter Beitrag: Torsten
  Ersetzen mit "Zelleninhalt" bei Makro madcorby 4 80 11.11.2016, 17:56
Letzter Beitrag: schauan
  Excel VBA: Suchen und Ersetzen Goleo 1 50 08.11.2016, 14:52
Letzter Beitrag: Kuwer
  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 150 28.10.2016, 17:52
Letzter Beitrag: Gast 123

Gehe zu:


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