Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox bei klick leeren!

Textbox bei klick leeren!
Lisa
Hallo zusammen,
ich sitze vor folgendem Problem.
Ich möchte gern erreichen, dass wenn die UF aufgerufen wird, eine Textbox einen Text vorblendet!
Das erreiche ich hiermit! 
Private Sub UserForm_initialize()
TextBox3.ForeColor = &H80000003
TextBox3 = "guten Tag"
End Sub
Wenn ich die Textbox anklicke, möchte ich sie aber leer haben was genau muss ich hierfür tun?
?
TextBox3.ForeColor = &H80000012
TextBox3 = ""
?
hat jemand eine Idee?
Danke für die Hilfe
LG Lisa

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Textbox bei klick leeren!
28.12.2011 12:57:39
Josef

Hallo Lisa,
probier es so.
' **********************************************************************
' Modul: UserForm1  Typ: Userform
' **********************************************************************

Option Explicit

Private Sub TextBox3_Enter()
  If TextBox3 = "Ihre Eingabe..." Then
    TextBox3 = ""
    TextBox3.ForeColor = &H80000012
  End If
End Sub


Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If TextBox3 = "" Then
    TextBox3 = "Ihre Eingabe..."
    TextBox3.ForeColor = &H80000003
  End If
End Sub


Private Sub UserForm_Initialize()
  TextBox3.ForeColor = &H80000003
  TextBox3 = "Ihre Eingabe..."
End Sub



« Gruß Sepp »

Anzeige
AW: Textbox bei klick leeren!
28.12.2011 13:31:01
Lisa
Suuuper, vielen Dank, dass funktioniert wie gewünscht!
LG Lisa
AW: Textbox bei klick leeren!
28.12.2011 13:49:03
Josef

Hallo Lisa,
probier es so.
' **********************************************************************
' Modul: UserForm1  Typ: Userform
' **********************************************************************

Option Explicit

Private Sub TextBox3_Enter()
  If TextBox3 = "Ihre Eingabe..." Then
    TextBox3 = ""
    TextBox3.ForeColor = &H80000012
  End If
End Sub


Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If TextBox3 = "" Then
    TextBox3 = "Ihre Eingabe..."
    TextBox3.ForeColor = &H80000003
  End If
End Sub


Private Sub UserForm_Initialize()
  TextBox3.ForeColor = &H80000003
  TextBox3 = "Ihre Eingabe..."
End Sub



« Gruß Sepp »

Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige