Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textbox maxlength = 8 und an sechster Stelle "."
zurück: UserForm TextBox Prozentzahl wieder in Normale Zahl umwandel weiter: Textfeld lässt sich nicht ansprechen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
25. März 2013, 14:10
Rufname:

Textbox maxlength = 8 und an sechster Stelle "." - Textbox maxlength = 8 und an sechster Stelle "."

Nach oben
       Version: Office 2010

Hallo liebes Forum,

ich möchte das meine Textbox 8 Zeichen lang ist - kein Problem, jedoch möchte ich das an sechster Stelle ein Punkt eingetragen werden muss. Jemand einen Einfall?

Ahja und in einer anderen Textbox soll es nur möglich sein "_" zum Verbinden von Text nehmen zu können. Sprich keine Leerzeichen sondern "_".

MfG
EtoPHG
Ich sehe dunkle Zeiten aufziehen...


Verfasst am:
25. März 2013, 14:35
Rufname: Hansueli


AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Hallo,

z.B. so:
Code:
Sub PktAnStelle6()
    If Len(TextBox1) = 8 Then
        If Mid(TextBox1, 6, 1) = "." Then
            ' mache das was du willst mit dem Textbox-Inhalt
        Else
            MsgBox "Kein . (Punkt) an 6ter Stelle!", vbOKOnly + vbExclamation, "Falsche Eingabe"
        End If
    Else
        MsgBox "Der Text muss 8stellig sein!", vbOKOnly + vbExclamation, "Falsche Eingabe"
    End If
End Sub

Sub UnderLineStattBlank()
    TextBox1 = Replace(TextBox1, " ", "_")
End Sub
Gruess Hansueli
_________________
Forenhelfer danken für eine Rückmeldung!
Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. März 2013, 14:40
Rufname:

AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Hi

kann man so erreichen:

Code:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.SelStart = 5 Then KeyAscii = Asc(".")
End Sub


Code:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then KeyAscii = Asc("_")
End Sub


ist allerdings nicht ganz sicher, bspw wenn der Anwender Daten mit Copy-Paste in die Textbox eingibt.
Daher würde ich das nachträglich nochmal absichern, bspw im zweiten Fall im Exit/LostFocus-Event der Textbox mit:
Code:
Textbox1.Text = Replace(Textbox1.Text, " ", "_")

Gruß Daniel
Phelan XLPH
Fortgeschritten


Verfasst am:
25. März 2013, 14:44
Rufname: Phelan

AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

@ Daniel

.SelStart kann jede Position annehmen!

Wäre da .Textlength nicht geeigneter!

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. März 2013, 14:48
Rufname:


AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Hi Phelan

denk mal drüber nach, was passiert wenn der Anwender schon mehr als 6 Zeichen eingegeben hat und dann 6. Zeichen markiert, um es nochmal zu ändern.

gruß Daniel
Gast



Verfasst am:
25. März 2013, 15:01
Rufname:

AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Danke erst einmal für eure Hilfe,

Problem ist beim ersten Vorschlag jetzt nur das er mir ab Eingabe des ersten Wortes schon die Msgbox auswirft das es 8 Zeichen sein müssen. Deswegen habe ich es jetzt so umgangen:

Private Sub TextBox17_Change()
If TextBox17.MaxLength <> 8 Then
Else
MsgBox "Der Text muss 8stellig sein!", vbOKOnly + vbExclamation, "Falsche

Das gleiche macht er jetzt aber mit der Msgbox der sechsten Punktes.

Das Replacen klappt gut!
Gast



Verfasst am:
25. März 2013, 15:05
Rufname:

AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Sorry, sinnfrei.

So wie ich es geschrieben kann das logischerweise gar nicht klappen. Doch nicht umgangen.
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. März 2013, 15:06
Rufname:

AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Hi

die Maximale Länge der Eingabe brauchst du nicht zu prüfen, die kannst du als Eigenschaftswert der Textbox (MaxLength) fest vorgeben.

bezüglich des Punktes an der 6. Stelle würde ich 2 Textboxen einstellen, eine für 5 Zeichen und eine für 2 zeichen und dann beide Textboxen mit dem Punkt dazwischen zusammenfügen.

Gruß Daniel
Phelan XLPH
Fortgeschritten


Verfasst am:
25. März 2013, 15:15
Rufname: Phelan

AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Ok ich hab nachgedacht,

Code:
Private Sub TextBox1_Change()
   Dim strText As String
   If TextBox1.TextLength > 5 Then
   If Mid(TextBox1.Text, 6, 1) <> "." Then
      strText = Replace(TextBox1.Text, ".", "")
      Mid(strText, 6, 1) = "."
      TextBox1.Text = strText
   End If
   End If
End Sub


sinnfrei? warst du das Daniel?

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
25. März 2013, 15:15
Rufname:

AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Genau, 2 Textboxen,die erste dann auf 5 begrenzen die zweite auf 2 dazwischen Punkt, dann passt es ja auch.
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. März 2013, 15:21
Rufname:

Re: AW: Textbox maxlength = 8 und an sechster Stelle ". - Re: AW: Textbox maxlength = 8 und an sechster Stelle ".

Nach oben
       Version: Office 2010

Phelan XLPH - 25. März 2013, 14:15 hat folgendes geschrieben:
Ok ich hab nachgedacht,


sinnfrei? warst du das Daniel?


natürlich war ich das.
ich arbeite hier mit zwei rechnern gleichzeitig, um einmal eingeloggt und einmal als Gast mir fragen zu stellen, die dich dann selber beantworte.
Ist klar ne ???
Gast



Verfasst am:
25. März 2013, 15:24
Rufname:

AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Haha =D

Danke Phelan. Der setzt den punkt, ist super.
Wie erweiter ich das jetzt aber wenn ich ihm sage nur zahlen und trotzdem an sechster Stelle ein "."?
Gast



Verfasst am:
25. März 2013, 15:56
Rufname:


AW: Textbox maxlength = 8 und an sechster Stelle ".& - AW: Textbox maxlength = 8 und an sechster Stelle ".&

Nach oben
       Version: Office 2010

Hab es jetzt so gelöst:

Private Sub TextBox17_Change()
TextBox17.MaxLength = 8

Dim Abfrage As Boolean
Abfrage = IsNumeric(TextBox17)
If Abfrage = False Then
MsgBox ("Bitte geben Sie nur Ziffern ein!")
SendKeys "{BS}", Wait:=True
End If

Dim strText As String
If TextBox17.TextLength > 5 Then
If Mid(TextBox17.Text, 6, 1) <> "." Then
strText = Replace(TextBox17.Text, ".", "")
Mid(strText, 6, 1) = "."
TextBox17.Text = strText
End If
End If
End Sub


Danke euch nochmal!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Eingabe an anderer Stelle nach Wert aufsteigen sortieren 4 Input 202 23. Jul 2012, 15:56
Input Eingabe an anderer Stelle nach Wert aufsteigen sortieren
Keine neuen Beiträge Excel Formeln: Excel Maximal Wert berechnen und an die richtige stelle tun 1 Niha 406 03. Apr 2012, 14:02
realers Excel Maximal Wert berechnen und an die richtige stelle tun
Keine neuen Beiträge Excel Formeln: Bestimmten Bereich an Hand eines Kriteriums an andere Stelle 5 coaler24 190 07. Dez 2011, 14:10
coaler24 Bestimmten Bereich an Hand eines Kriteriums an andere Stelle
Keine neuen Beiträge Excel Formeln: Vorletzte Stelle einer Zelle kopieren 2 Jakomo1967 501 15. Jul 2011, 00:10
Jakomo1967 Vorletzte Stelle einer Zelle kopieren
Keine neuen Beiträge Excel Formeln: Wie stelle ich einen Index dar? 3 Opi 202 25. Jun 2011, 17:29
Runo Wie stelle ich einen Index dar?
Keine neuen Beiträge Excel Formeln: Minuszeichen an andere Stelle setzen 5 christoph.1982 1930 12. Okt 2010, 16:17
WF Minuszeichen an andere Stelle setzen
Keine neuen Beiträge Excel Formeln: 3.-5. stelle von rechts anzeigen 2 gast10101 1749 08. Okt 2010, 13:05
Gast 3.-5. stelle von rechts anzeigen
Keine neuen Beiträge Excel Formeln: Tabelle an anderer Stelle sortieren? 1 Baui 302 15. Jun 2010, 11:22
Gast Tabelle an anderer Stelle sortieren?
Keine neuen Beiträge Excel Formeln: Datengültigkeit b. Abhängigkeit v. Eintrag an anderer Stelle 2 trebor-robert 405 20. März 2010, 09:16
trebor-robert Datengültigkeit b. Abhängigkeit v. Eintrag an anderer Stelle
Keine neuen Beiträge Excel Formeln: An welcher Stelle steht die höchste Zahl ? 1 Ralph_III 1111 26. Aug 2009, 05:32
shift-del An welcher Stelle steht die höchste Zahl ?
Keine neuen Beiträge Excel Formeln: Mehrere Diagrammtypen abwechselnd an der gleichen Stelle anz 1 Alexowitsch 494 25. Aug 2009, 16:04
Zero Mehrere Diagrammtypen abwechselnd an der gleichen Stelle anz
Keine neuen Beiträge Excel Formeln: Makro Text aus "Textbox" löschen neu Eingabe durch 0 Commander05 2241 06. Aug 2009, 16:20
Commander05 Makro Text aus "Textbox" löschen neu Eingabe durch
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks