Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Markierungen in Klammern

Betrifft: Markierungen in Klammern von: Sonja Fido
Geschrieben am: 26.07.2014 14:30:22

Hallo Profis,

brauche dringend Hilfe bei der Programmierung des folgenden Problems.

Ich will mit dem Mauszeiger in einer Textbox Text markieren.
Gleichzeitig soll wenn der Textausschnitt markiert wurde, links und rechts
von der markierten Stelle eine eckige Klammer in der Textbox erscheinen.

Wer weiß wie man so etwas programmiert?

Vielen Dank im voraus.

  

Betrifft: AW: Markierungen in Klammern von: Hajo_Zi
Geschrieben am: 26.07.2014 14:47:49

    TXT_Bemerkung = Left(TXT_Bemerkung, 5) & "[" & Mid(TXT_Bemerkung, 8, 2) & "]" & Mid( _
TXT_Bemerkung, 10)
    TXT_Bemerkung.SelStart = 6
    TXT_Bemerkung.SelLength = 2
    TXT_Bemerkung.SetFocus
GrußformelHomepage


  

Betrifft: AW: Markierungen in Klammern von: Nepumuk
Geschrieben am: 26.07.2014 15:55:20

Hallo,

besser bekomme ich das nicht hin. Denn zum erneuten Markieren musst du einmal in die Box klicken.

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With TextBox1
        .Text = Replace(Replace(.Text, "[", ""), "]", "")
    End With
End Sub

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim lngSelStart As Long, lngSelLength As Long
    With TextBox1
        If .SelLength <> 0 Then
            If .SelStart <> .TextLength Then
                lngSelStart = .SelStart
                lngSelLength = .SelLength
                .Text = Left$(.Text, .SelStart) & _
                    "[" & Mid$(.Text, .SelStart + 1, .SelLength) & "]" & _
                    Right$(.Text, .TextLength - (.SelStart + .SelLength))
                .SelStart = lngSelStart
                .SelLength = lngSelLength + 2
            End If
        End If
    End With
End Sub

Gruß
Nepumuk


 

Beiträge aus den Excel-Beispielen zum Thema "Markierungen in Klammern"