Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Isnumeric -> anderer PC anderes Ergebnis?

Forumthread: 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
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
Anzeige
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
Anzeige
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
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
Anzeige
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
;

Forumthreads zu verwandten Themen

Formel verkürzen --> zu lange Speicherzeit
Albin

Hallo
Meine Formel funktioniert gut, aber da die Formel sehr lang ist und ich sie in viele Zeilen kopiert habe, dauert das Speichern einer Tabelle 15 Minuten! Ich will aber 30 solche Tabellen anfertigen, das heisst ich würde dann immer mehrere Stunden warten bis das Ding gesichert ist! Das...
13.08.2008 13:10:00
Thread-ID: 1001509
16 Beiträge
Makro- > Zellenauswahl
sebastian

Hallo,
ich bitte um Eure Hilfe.
Ich habe mir eine ganz einfache Eingabemaske zusammengestellt um Daten zuerfassen. Die Daten trege ich in Tabelle1 untereinander ein (Name, Vorname usw.) Anschließend werden diese Daten via Makro kopiert und in Tabelle2 über "Inhalte einfügen-Werte-Trans...
15.08.2008 14:40:39
Thread-ID: 1002188
5 Beiträge
Auftragspositionen >5 anzeigen
Einkäufer

Hallo,
ich habe folgendes Problem:
Aus einer Kundenliste mit Auftragspositionen möchte ich mir alle Kunden anzeigen lassen, die mehr als 5 Aufträge platziert haben.
Name Bezeichnung
Müller Auftrag 1
Müller Auftrag 2
Müller Auftrag 3
Müller Auftrag 4
Müller Auftra...
21.08.2008 13:53:24
Thread-ID: 1003479
3 Beiträge
Datei schließen -> Tabellenblätter löschen
Gordon

Moin,
ist es möglich einen VBA-Code zu schreiben, der sobald man eine Exceldatei schließt, noch vorher bestimmte Tabellennlätter gelöscht werden. Ich stelle mir das so vor:
Ich drücke "Schließen" und bevor die datei geschlossen wird, werden alle Tabellenblätter dieser Datei, außer den...
24.08.2008 23:59:20
Thread-ID: 1004344
6 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Entspricht doppeltes Hochkomma Zellwert >0?
Jesko

Hallo an alle,
wer kann mir sagen, welchem Zellwert das doppelte Hochkomma entspricht.
Hier der Zusammenhang:
In Spalte K meiner Tabelle wird ein Liefertermin genannt (Format: TT.MM.JJJJ).
In Spalte S ist der tatsächlich erreichte Liefertermin aufgeführt (Format wie oben).
I...
15.09.2008 17:51:31
Thread-ID: 1009863
6 Beiträge
Tabellenblatt wählen -> Makro startet
Gordon

Moin,
möchte gerne, dass ein Makro startet, wenn das Tabellenblatt "Tabelle1" selktiert wird. Ist das möglich, und wenn ja, wie hat dieser Code auszusehen? Der muss doch dann bestimmt in "dieseArbeitsmappe"?
Danke schon mal für die Hilfe....
Gruß
Gordon
18.09.2008 19:10:00
Thread-ID: 1010839
4 Beiträge
Daten SCHNELL von Tabelleblatt A -> B transfer. | Herbers Excel-Forum
kgurr
Hallo,
ich möchte aus einem Tabellenblatt A die Inhalte verschiedene Ranges in ein Tabellenblatt kopieren. Im Tabellenblatt A sind die Spalten verstreut, im Tabellenblatt sind sie als Block vorhanden.
Ich habe bereits eine Prozedur, die mir zu langsam - vor allem duch das schreiben in die Z...
20.09.2008 12:12:48
Thread-ID: 1011186
3 Beiträge
Anzeige
Untereinander --> Nebeneinander
sockel939

Hallo Grüße euch,
Wie kann mann mittels makro daten aus einer tabelle die untereinander von a1 bis a17000 stehen nebeneinander von b1 beginnend platzieren?
So sehen die aus:
1-Neu - Pass 156
Inhalt
2x Box Integ.
3x PPL
dann kommen viele leere zeilen
2-Neu - ZTU...
24.09.2008 09:16:07
Thread-ID: 1011938
8 Beiträge
Vergleich <> x%
Tobert

Hallo zusammen,
hab da mal ne Frage:
Ich möchte wenn der Unterschied zwischen zwei Zahlen größer oder kleiner x% ist als Ergebnis
in eine andere Zelle ein "x" setzen.
Danke!
Gruß
Tobias
30.09.2008 15:15:51
Thread-ID: 1013415
4 Beiträge
Neuer Name -> neues WorkSheet
Manu

Hallo Leute,
kann mir irgendjemand weiterhelfen? bin voll am verzweifeln!!!
Ich möchte gern ein Makro haben wo ich einen Namen den ich in ein Feld schreibe, als neues Blatt angelegt bekomme. Habs folgenderweise mit dem Makrorecorder versucht...
Sub NeuerName Rows("20:20").Select S...
06.10.2008 17:11:00
Thread-ID: 1014491
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige