|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.05.2017 14:10:32 |
Olwa |
|
|
|
10.05.2017 19:47:11 |
Gast44747 |
|
|
|
11.05.2017 09:18:12 |
Olwa |
|
|
|
11.05.2017 16:50:40 |
Gast50190 |
|
|
 Click Event bei TextBox funktioniert nicht? |
12.05.2017 08:45:37 |
Olwa |
|
|
Von:
Olwa |
Datum:
12.05.2017 08:45:37 |
Views:
398 |
Rating:
|
Antwort:
|
Thema:
Click Event bei TextBox funktioniert nicht? |
|
Ich hoffes die Absätze werden richtig eingefügt im Code.. Zunächst hatte ich es ja mit einem Change Ereignis gemacht in der Art:
Private Sub TextBox1_Change()
Dim lindex As Long
If ListBox1.ListIndex >= 0 Then
lindex = 2
Do While Trim(CStr(Sheets(1).Cells(lindex, 1).Value)) <> ""
If ListBox1.Text = Trim(CStr(Sheets(1).Cells(lindex, 3).Value)) Then
Sheets(1).Cells(lindex, 4).Value = TextBox1
Exit Do
End If
lindex = lindex + 1
Loop
End If
If TextBox1 = "x" Then
If TextBox2 = "x" Then
Label7.BackColor = &HC0FFC0
Else
Label7.BackColor = &H8080FF
End If
ElseIf TextBox1 = "" Then
If TextBox2 = "" Then
Label7.BackColor = &HC0FFC0
End If
End If
End Sub
Ersetzen wollte ich das Ereignis mit DblClick und den Zugewiesenen Wert statt TextBox1 ein "x", wie im ersten Post beschrieben. Gruß |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.05.2017 14:10:32 |
Olwa |
|
|
|
10.05.2017 19:47:11 |
Gast44747 |
|
|
|
11.05.2017 09:18:12 |
Olwa |
|
|
|
11.05.2017 16:50:40 |
Gast50190 |
|
|
Click Event bei TextBox funktioniert nicht? |
12.05.2017 08:45:37 |
Olwa |
|
|