Microsoft Excel

Herbers Excel/VBA-Archiv

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

Problem mit TextBox | Herbers Excel-Forum


Betrifft: Problem mit TextBox von: Frank H.
Geschrieben am: 13.11.2009 19:48:14

Hallo Zusammen, einen schönen Abend und vorab ein tolles Wochenende euch Allen!!!

Ich bin seit Std. wieder einmal am ausprobieren und bin zu "blöd" was hinzubekommen!

Mittels folgendem Codeschnipsel wird beim Öffnen der UF die TextBox4 befüllt:

Dim zelle As Range
Dim sBegriff As Date

If IsDate(TextBox1) Then
sBegriff = CDate(TextBox1)
Else
MsgBox "Sie müssen das Feld Datum befüllen", _
vbInformation, "Hinweis"
End If

If sBegriff = 0 Then Exit Sub
Set zelle = Worksheets(4).Columns(1) _
.Find(sBegriff, LookAt:=xlWhole)

If zelle Is Nothing Then

End If

TextBox4.Text = zelle.Offset(0, 1)

Das Ergebnis ist ein T, ein N oder nichts.

Nun soll das Feld - wenn T - hellblau sein, - wenn N - hellgrün ansonsten weiß.

So wie folgt geht es nicht:

If TextBox4 = "" Then TextBox4.BackColor = &H80000005
If TextBox4 = "T" Then TextBox4.BackColor = &HFF00&
If TextBox4 = "N" Then TextBox4.BackColor = &HFFFF00

Weiß jemand Rat??? Wenn ja, bitte helfen und vorab eion dickes Dankeschön!

Gruß, herzlichst Frank H.

  

Betrifft: AW: Problem mit TextBox von: Christian
Geschrieben am: 13.11.2009 20:20:33

Hallo,
deine Farbenspielerei muss in das Change-Ereignis der Textbox
ungetestet:

Private Sub TextBox4_Change()
    Dim lngColor As Long
    Select Case TextBox20.Text
        Case "T": lngColor = &HFF00&
        Case "N": lngColor = &HFFFF00
        Case Else: lngColor = &H80000005
    End Select
    TextBox4.BackColor = lngColor
End Sub

Gruß
Christian


  

Betrifft: natürl. nicht TextBox20 sondern TextBox4 von: Christian
Geschrieben am: 13.11.2009 20:23:50

Gruß
Christian


  

Betrifft: AW: natürl. nicht TextBox20 sondern TextBox4 von: Frank H.
Geschrieben am: 13.11.2009 20:41:10

Hey Christian!!!

Danke für deine Hilfe. Habe deinen Code nicht getestet. Bin selber auf eine Lösung gekommen:

If zelle.Offset(0, 1) = "" Then TextBox4.BackColor = &H80000005
If zelle.Offset(0, 1) = "T" Then TextBox4.BackColor = &HFFFF00
If zelle.Offset(0, 1) = "N" Then TextBox4.BackColor = &HFF00&

Erfüllt auch seinen Zweck!!!

Aber trotzdem Danke!!!

Gruß Frank H.


Beiträge aus den Excel-Beispielen zum Thema "Problem mit TextBox"