Zahlen drehen / größte Zahl nach vorne

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo
größte nach vorne geht evtl. so:

	A	B	C
1	232775
2	7		7
3	7		77
4	5		775
5	3		7753
6	2		77532
7	2	sortiert:	775322

Formeln der Tabelle

A1 : =ZUFALLSBEREICH(100000;999999)
A2 : {=KGRÖSSTE((TEIL($A$1;ZEILE(INDIREKT("$A$1:$A$"&LÄNGE($A$1)));1)*1);ZEILE(A1))}
C2 : =A2
A3 : {=KGRÖSSTE((TEIL($A$1;ZEILE(INDIREKT("$A$1:$A$"&LÄNGE($A$1)));1)*1);ZEILE(A2))}
C3 : =(C2&A3)*1
A4 : {=KGRÖSSTE((TEIL($A$1;ZEILE(INDIREKT("$A$1:$A$"&LÄNGE($A$1)));1)*1);ZEILE(A3))}
C4 : =(C3&A4)*1
A5 : {=KGRÖSSTE((TEIL($A$1;ZEILE(INDIREKT("$A$1:$A$"&LÄNGE($A$1)));1)*1);ZEILE(A4))}
C5 : =(C4&A5)*1
A6 : {=KGRÖSSTE((TEIL($A$1;ZEILE(INDIREKT("$A$1:$A$"&LÄNGE($A$1)));1)*1);ZEILE(A5))}
C6 : =(C5&A6)*1
A7 : {=KGRÖSSTE((TEIL($A$1;ZEILE(INDIREKT("$A$1:$A$"&LÄNGE($A$1)));1)*1);ZEILE(A6))}
C7 : =(C6&A7)*1

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
ransi

Hi,
oder mit einer kleinen Funktion:

Tabelle1

	A	B
1	2154873	8754321

Formeln der Tabelle

B1 : =Reverse(A1)

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Reverse(objCell As Range) As Variant
    Dim strArray() As String, strTemp As String
    Dim intIndex As Integer
    Redim strArray(1 To Len(objCell.Text))
    For intIndex = 1 To Len(objCell.Text)
        strArray(intIndex) = Mid(objCell.Text, intIndex, 1)
    Next
    Call prcSort(1, Len(objCell.Text), strArray())
    For intIndex = 1 To Len(objCell.Text)
        strTemp = strTemp & strArray(intIndex)
    Next
    If IsNumeric(strTemp) Then Reverse = CDec(strTemp) Else Reverse = strTemp
End Function

Private Sub prcSort(intLBound As Integer, intUBound As Integer, strArray() As String)
    Dim intIndex1 As Integer, intIndex2 As Integer
    Dim strTemp As String, strBuffer As String
    intIndex1 = intLBound
    intIndex2 = intUBound
    strBuffer = strArray((intLBound + intUBound) \ 2)
    Do
        Do While strArray(intIndex1) > strBuffer
            intIndex1 = intIndex1 + 1
        Loop
        Do While strBuffer > strArray(intIndex2)
            intIndex2 = intIndex2 - 1
        Loop
        If intIndex1 <= intIndex2 Then
            strTemp = strArray(intIndex1)
            strArray(intIndex1) = strArray(intIndex2)
            strArray(intIndex2) = strTemp
            intIndex1 = intIndex1 + 1
            intIndex2 = intIndex2 - 1
        End If
    Loop Until intIndex1 > intIndex2
    If intLBound < intIndex2 Then Call prcSort(intLBound, intIndex2, strArray())
    If intIndex1 < intUBound Then Call prcSort(intIndex1, intUBound, strArray())
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Zahlen drehen / größte Zahl nach vorne

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen drehen / größte Zahl nach vorne

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

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread