Excel ändert eingegebene Zahl im Bereich größer Integer und kleiner 2 x Integer von...

Umwandlung in Textformal ist nicht gewünscht, Rundungsoperationen auch nicht.

Lies bitte diese Artikel:

Understanding Floating Point Precision, aka “Why does Excel
Give Me Seemingly Wrong Answers?” - Microsoft 365 Blog

IEEE 754 - Wikipedia

Andreas.

Hallo Klaus,

du kannst dir auch eine UDF einfügen:

Function Zählen(Bereich As Range, Zahl As Integer) As Integer

Dim Sep As String

Dim i As Integer, Counter As Integer

Dim rngC As Range

Dim varZahlen As Variant

For Each rngC In Bereich

   Sep = ""

   For i = 2 To Len(rngC)

      If Not IsNumeric(Mid(rngC, i, 1)) And IsNumeric(Mid(rngC, i + 1, 1)) Then

         Sep = Mid(rngC, i, 1)

      ElseIf Not IsNumeric(Mid(rngC, i, 1)) And Not IsNumeric(Mid(rngC, i + 1, 1)) Then

         Sep = Mid(rngC, i, 2)

      End If

      If Sep <> "" Then Exit For

   Next

   varZahlen = Split(rngC, Sep)

   For i = LBound(varZahlen) To UBound(varZahlen)

     If varZahlen(i) = Zahl Then Counter = Counter + 1

   Next

Next

Zählen = Counter

End Function

Und rufe diese Funktion im Blatt auf mit z.B.:

=Zählen(A1:A5;12)

Claus

Hallo,

füge dir folgende Codes in ein Standardmodul ein und rufe sie dann im Blatt auf mit z.B.

=Zweite(A1) für die zweite Zahl

und mit

=Letzte(A1) für die letzte Zahl.

Function Zweite(Bereich As Range) As Integer

Dim varzahlen As Variant

varzahlen = Split(Bereich, ",")

Zweite = varzahlen(1)

End Function

Function Letzte(Bereich As Range) As Integer

Dim varzahlen As Variant

varzahlen = Split(Bereich, ",")

Letzte = varzahlen(UBound(varzahlen))

End Function

Claus

Was bedeutet das ByVal... immer nach dem Sub?

Sub Main()

Dim x As Integer, y As Integer

x = 1

y = 1

Addiere x, y

Debug.Print x, y

End Sub

Private Sub Addiere(ByVal a As Integer, ByRef b As Integer)

a = a + 1

b = b + 1

End Sub

Lass Main laufen und kuck in's Direktfenster, dann fällt der Groschen. ;-)

Andreas.

ich habe alle Buchstaben und zahlen eingegeben, wie sie draufstanden. Große Buchstaben groß und Kleine klein.