Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Isnumeric -> anderer PC anderes Ergebnis?

Isnumeric -> anderer PC anderes Ergebnis?
Patrick
Hallo ihr fleißigen Helfer,
ich hab nen komisches Problem. An meinem Rechner liefert IsNumeric(3,45) (in einer Userform) genauso TRUE wie IsNumeric(3.45). Das heißt Komma und Punkt werden als Trennzeichen zugelassen. Bei einem Kollegen in Polen wird nur das Komma als Trennung zugelassen. Beim Punkt liefert die Funktion "False" zurück. Liegt das an der anderen Spracheinstellung von Windows/Excel? Wenn ja: wie kann ich das abstellen, denn das Tool soll weltweit eingesetzt werden.....wenn nein: woran kann das sonst liegen?
Vielen Vielen Vielen Dank im Voraus für eure Mühen
viele Grüße aus dem verregneten Heidelberg
Patrick

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Isnumeric -> anderer PC anderes Ergebnis?
16.10.2009 14:22:43
Wolli
Hallo Patrick,
kann eigentlich nur an den Ländereinstellungen liegen. Für den polnischen Kollegen könntest Du so etwas einbauen:
If Not IsNumeric(x) Then x = Replace(x, ".", ",")
oder noch kürzer
x = Replace(x, ".", ",")
Das stellt alle eventuell vorkommen Dezimalpunkte auf Kommas um und die weitere Verarbeitung ist gesichert.
Gruß, Wolli
AW: Isnumeric -> anderer PC anderes Ergebnis?
16.10.2009 15:38:33
Patrick
Hallo Wolli,
das hört sich nach einer sehr praktikablen Lösung an....ich werds einbauen und testen!
DANKE und schönes Wochenende!!!
patrick
AW: Isnumeric -> anderer PC anderes Ergebnis?
16.10.2009 14:25:37
Patrick
Mir fällt nur ein, dass ich das über
Me.Textbox1.Value = Format(Cells(1,1).Value, "0,00")
lösen kann...aber dann müsste ich GAAANZ viel ändern.
Patrick
Anzeige
AW: Isnumeric -> anderer PC anderes Ergebnis?
16.10.2009 14:41:16
Hajo_Zi
Hallo Patrick,
ich verwende eine Deutsche Version und bekomme auch Fehler.
Userbild

@Hajo : "UserForm" => TEXT !
16.10.2009 14:49:41
NoNet
Hallo Hajo,
Dein Vergleich "hinkt" : Textboxen in UserForms liefern ein Ergebnis im TEXT-Format (Typ: STRING) und keine Zahl !
Daher solltest Du es mal so versuchen :
MsgBox isnumeric("3,45") 'Natürlich ohne Leerzeichen nach dem Komma !
MsgBox isnumeric("3.45")
Gruß, NoNet
AW: lies den ersten Beitrag
16.10.2009 14:51:28
Hajo_Zi
Hallo Nonet,
ich halte mich an das was im Beitrag steht und Denke mir nichts aus. Dort Stand
IsNumeric(3,45)
Gruß Hajo
Anzeige
AW: lies den ersten Beitrag
16.10.2009 15:26:18
Patrick
Sorry da hab ich wohl evt zuviel abstrahiert:
Es handelt sich um eine Textbox in einer Userform in die Werte aus einer Tabelle eingelesen werden. Eingelesen werden die Werte beispielsweise über
Me.Textbox.value = Format(Tabellenblatt.Cells(1,1).Value, "0,000.00")
und anschließendes Isnumeric(Me.Textbox.value) klappt an meinem rechner, an dem von meinem kollegen aber nicht. "Klappt" heißt: bei mir "True", beim kollegen "False"
Danke für eure Hilfe
hier mit einer Funktion
16.10.2009 14:55:28
Tino
Hallo,
somit kann man es leicht noch auf andere Textboxen anwenden.
Private Sub TextBox1_KeyPress(ByVal intKeyAsc As MSForms.ReturnInteger)
 intKeyAsc = OnlyNumbers(TextBox1, CInt(intKeyAsc))
End Sub

'Funktion zum prüfen einer Textbox ---> Nur Zahlen zulassen 
Private Function OnlyNumbers(objTextBox As MSForms.TextBox, intKeyNumber As Integer) As Integer
Dim PunktOderKomma As String
    
    PunktOderKomma = IIf("0.5" * 2 = 1, ".", ",")
    
    If intKeyNumber = 44 Or intKeyNumber = 46 Then
            If InStr(objTextBox, PunktOderKomma) = 0 And Len(objTextBox) > 0 Then
              OnlyNumbers = IIf("0.5" * 2 = 1, 46, 44)
            Else
              OnlyNumbers = 0
            End If
     Else
            Select Case intKeyNumber
             Case 48 To 57: OnlyNumbers = intKeyNumber
             Case Else: OnlyNumbers = 0
            End Select
     End If

End Function

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