Komma oder Punkt - Das ist hier die Frage....

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Axel,
unabhängig von der Antwort auf Erichs Frage, die mich auch interessiert, könnte man vielleicht über eine Fehlerabfrage die Flexibilität erreichen, wenn die Schnelliglkeit nicht unverträglich eingeschrängt wird (dann würde sich eine zweite Version der Prozedur lohnee, die nach einmal festgelegter Umgebung angesprochen wird):

 On Error Resume Next
If Not Evaluate(CDbl(DBRange.Cells(i, 2)) & ">10") Then
Exit For
ElseIf Not Evaluate(CDbl(Replace(DBRange.Cells(i, 2), ",", ".")) & ">10") Then
Exit For
Else
MsgBox "anderer Fehler"
End If

Der Grundgedanke könnte benutzt werden um einen Schalter zu setzen, der je nach Stellung zu den verschieden Prozedurzweigen verzweigt ohne dass ein Fehler in der Schleife ausgewertet weden muß:

Dim DotSepFlag as Boolean
If Not Evaluate(CDbl(DBRange.Cells(1, 2)) & ">10") Then
DotSepFlag=True
ElseIf Not Evaluate(CDbl(Replace(DBRange.Cells(i, 1), ",", ".")) & ">10") Then
DotSepFlag=False
Else
MsgBox "anderer Fehler" : Exit For
End If
For i=1 to maxI
If DotSepFlag then
If Not Evaluate(CDbl(DBRange.Cells(1, 2)) & ">10") Then Exit For
ElseIf Not Evaluate(CDbl(Replace(DBRange.Cells(i, 1), ",", ".")) & ">10") Then Exit For
End If

Gruß,
Uwe

Dim DotSepFlag as Boolean On Error Resume Next If Not Evaluate(CDbl(DBRange.Cells(1, 2)) & ">10") Then DotSepFlag=True ElseIf Not Evaluate(CDbl(Replace(DBRange.Cells(i, 1), ",", ".")) & ">10") Then DotSepFlag=False Else MsgBox "anderer Fehler" : Exit For End If For i=1 to maxI If DotSepFlag then If Not Evaluate(CDbl(DBRange.Cells(1, 2)) & ">10") Then Exit For ElseIf Not Evaluate(CDbl(Replace(DBRange.Cells(i, 1), ",", ".")) & ">10") Then Exit For End If

Hallo, Axel,
es scheint mir, als wenn Dein Ansatz, den Seperator des DBRange.Cells((...)-Inhalts auf jeden Falls durch den Punkt zu ersetzen, scheint mir in die Falsche Richtung zu gehen, denn diese Funktion übernehmen die Einstellungsparameter der System-Umgebung selbt; Ein Kommer wird bei einsprechender Einstellung an erforderlicher Stelle in einen Punkt gewnadelt, wenn die Einstellung für das Dezimaltrennzeichen entsprechnd ist.
Dein Vorgehen bewirkt nun aber m.E., dass z.B. eine Kommadarstellung in einen Punktdarstellung gewandelt wird, und wenn nun dieser Inhalt an die Sytemroutine "Zahlenbehandlung" übergeben wird, in der je nach Ländereinstellung (hier z.B. Deutsch) das entsprechende Zeichen in einen Punkt verwandelt wird und das Tausendertrenzeichen entfernt wird, dann könnte es zu unerwünschten Effekten auftreten.
Nun könnte ich mir aber eher vorstellen, das ein anderer Fehler vorliegt, dem man eh anders zu Leibe rücken sollte; doch dazu kann man wohl nur etwas sagen , wenn man die Zellenstruktur/-formatierung Deiner DBRange kennt.
Es wäre für das Nachvollziehen hilfreich, wenn Du eine Beispieldatei (Testdatenblatt, relevanter, lauffähifer VBA-Prozedurteil) mit der dieser Prozedurschritt beispielhaft entsprechend der von Dir verwendeten Strukturen getestest werden können, zur Verfügung stellen könntest.
Gruß,
Uwe

Function mytest(inputrng As Range, Criteria As Range) As Variant a = 1 / 2 DecDel = Mid(a, 2, 1) b = Replace(CDbl(inputrng), DecDel, ".") d = Left(Criteria, 1) c = Replace(CDbl(Right(Criteria.Value, Len(Criteria.Value) - 1)), DecDel, ".") mytest = Evaluate(b & d & c) End Function

Beliebteste Forumthreads (12 Monate)

Komma oder Punkt - Das ist hier die Frage....

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

262 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Komma oder Punkt - Das ist hier die Frage....

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

262 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread