Textbox mit vorgaben erstellen

[Krause-r-h]

Moin Moin alle miteinander

Ich möchte eine Textbox mit 3 Zeilen und max. 21 Zeichen pro Zeile erstellen
Ist das möglich und wie geht das ?????

Habe schon einiges ausprobiert auch mit den Eigenschaften usw.

Es soll einmal aus 3 Zellen der Text eingelesen  werden 

Habt ihr eine Lösung 

Vielen Dank für eure Hilfe

LG aus Lauenburg Ronny

[Stoffo]

Hallo,

Code:

Option Explicit

Private Sub TextBox1_Change()
    colorTextBox TextBox1
End Sub

Private Sub colorTextBox(txtBox As Variant)
    Dim boxAlt As Boolean
    Dim i As Integer
    Dim vText As Variant

    vText = Split(txtBox.Text, vbCrLf)
    If UBound(vText) > 3 Then
        boxAlt = True
    Else
        For i = 1 To UBound(vText)
            If Len(vText(i)) > 21 Then boxAlt = True
        Next i
    End If
   
    If boxAlt = True Then
        txtBox.BackColor = RGB(255, 0, 0)
    Else
        txtBox.BackColor = RGB(255, 255, 255)
    End If
End Sub 

[Krause-r-h]

moin moin 
 Danke für deine Mühe Stoffo
Aber leider Kein erfolg
 
 Ich bleibe dann bei 3 Textboxen um mir die 3 Zellen anzuzeigen 

Lg aus Lauenburg

[RPP63]

Moin!
Nimm eine Proportionalschriftart wie Courier New,
setze Multiline auf True
und experimentiere mit der Breite.
Bei mir erfüllt 143,25 seinen Zweck.

Gruß Ralf

[Kuwer]

Hallo Ronny,

und der Code dazu könnte z.B. so aussehen:

Sub TextboxFuellen()
  ActiveSheet.TextBox1.Value = Left(Range("B2").Value, 21) & vbNewLine & _
                               Left(Range("B4").Value, 21) & vbNewLine & _
                               Left(Range("B6").Value, 21)
End Sub

Gruß Uwe