Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Textbox mit vorgaben erstellen
#1
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
Antworten Top
#2
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 
Gruß

Stoffo
[-] Folgende(r) 1 Nutzer sagt Danke an Stoffo für diesen Beitrag:
  • Krause-r-h
Antworten Top
#3
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
Antworten Top
#4
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#5
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Krause-r-h
Antworten Top


Gehe zu:


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