vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Textbox auf einer Userform in Excel 2010 (VBA 7.0) 
Autor: anfaenger_michael
Datum: 13.12.18 12:50
Moin moin,
ich habe auf einer Userform eine Textbox1 platziert.
Ich möchte bestimmte Zeichen, im Beispiel die 0 (Null) durch ein anderes Zeichen ersetzen.
Sagen wir einmal wenn die 0 gedrückt wird soll anstatt der 0 ein bestimmtes Sonderzeichen, aus
einem anderen Zeichensatz erscheinen.
Die TextBox habe ich auf die entsprechende Schriftart (Zeichensatz) geändert.

Im Keypress-Ereignis habe ich eingefügt:

Private Sub TextBox1_KeyPress(ByVal KeyCode As MSForms.ReturnInteger)
If KeyCode = vbKey0 Or KeyCode = vbKeyNumpad0 Then
TextBox1.Text = TextBox1.Text & "ð"
End If
End Sub

Jedoch erscheint nah dem drücken der Taste 0 im der TextBox 2 Zeichen.
Einmal das, von mir gewünschte Sonderzeichen, gefolgt von der eingegeben 0.
Ich möchte aber das in der TextBox nur das Sonderzeichen erscheint.

Ein einfaches Replace hat nicht geholfen.

Private Sub TextBox1_KeyPress(ByVal KeyCode As MSForms.ReturnInteger)
If KeyCode = vbKey0 Or KeyCode = vbKeyNumpad0 Then
TextBox1.Text = Replace(TextBox1.Text, "0", "") & "ð"
End If
End Sub

Hat hier jemand eine Idee wie in der TextBox nur das Sonderzeichen ausgegeben werden kann.


Danke.


Gruß
Michael
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Textbox auf einer Userform in Excel 2010 (VBA 7.0) 
Autor: Zardoz
Datum: 13.12.18 13:41
Hallo Michael,
heißt die Variable beim KeyPress-Event nicht KeyAscii?
Ansonsten versuch mal den Inhalt der Variablen (KeyCode/
KeyAscii) zu ändern.

Gruss,

Zardoz

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Textbox auf einer Userform in Excel 2010 (VBA 7.0) 
Autor: anfaenger_michael
Datum: 13.12.18 14:00
Hallo Zardoz,

das war leider nicht der Fehler.
Auch nach dem ändern in KeyAscii werden 2 Zeichen ausgegeben.


Gruß
Michael
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Textbox auf einer Userform in Excel 2010 (VBA 7.0) 
Autor: Zardoz
Datum: 13.12.18 14:12
Hallo Michael,
nur KeyAscii ändern, den anderen Code weglassen: 
  Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    If KeyAscii = vbKey0 Or KeyAscii = vbKeyNumpad0 Then 
      KeyAscii = Asc("ð")
    End If 
  End Sub

Gruss,

Zardoz

Beitrag wurde zuletzt am 13.12.18 um 14:12:51 editiert.

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Textbox auf einer Userform in Excel 2010 (VBA 7.0) 
Autor: anfaenger_michael
Datum: 13.12.18 14:32
Hallo Zardoz,

wenn man einmal länger überlegt...


Danke Zardoz !!!!!



Gruß
Michael
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel