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
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
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
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
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