Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Absolutwert sortieren

Absolutwert sortieren
10.01.2005 12:42:10
Erkan
Hallo Zusammen,
ich möchte eine Spalte nach den Absolutwerten sortieren.
Die Spalte beinhaltet negative und positive Zahlen.
22
-2
334
-1
53
-87
Ich bin auf die Funktion funktion gestoßen aber weis nicht so recht,
wie ich denn Absolutwert ableite.

Application.Goto Reference:="Sortbereich"
Selection.Sort Key1:=Worksheets("Tabelle1").Columns(1), _
Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom ', _
DataOption1:=xlSortTextAsNumbers
Danke im Vorraus und Gruß aus Stuttgart
Erkan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Absolutwert sortieren
10.01.2005 12:53:42
HermannZ
Hallo Erkan,
Ein Beispiel ohne VBA,
Tabelle14
  
 AB
5422334
55-287
5633453
57-122
58532
59-871
Formeln der Tabelle
B54 : {=KGRÖSSTE(ABS($A$54:$A$59);ZEILE()-53)}

B55 : {=KGRÖSSTE(ABS($A$54:$A$59);ZEILE()-53)}

B56 : {=KGRÖSSTE(ABS($A$54:$A$59);ZEILE()-53)}

B57 : {=KGRÖSSTE(ABS($A$54:$A$59);ZEILE()-53)}

B58 : {=KGRÖSSTE(ABS($A$54:$A$59);ZEILE()-53)}

B59 : {=KGRÖSSTE(ABS($A$54:$A$59);ZEILE()-53)}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!


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

Gruß Hermann

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Absolutwert sortieren
                                            

                    

                                                    10.01.2005 13:13:14
                                            

                                

                                            erkan
                                    

            

        

        

                            
Hallo Hermann,

danke für die schnelle Antwort.

Ich wollte dies gerne in mein VBA einbauen und versuche es gerade mit der Funktion ABS()

in VAB.

Klappt aber nicht so recht, bin noch beim versuchen.

Gruß

Erkan

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            Lösung: AbsolutWert und sortieren
                                            

                    

                                                    10.01.2005 16:02:21
                                            

                                

                                            Erkan
                                    

            

        

        

                            
Hallo,

jetzt habe ich die Lösung gefunden und stelle sie zur Info zu Verfügung.

Private Sub Worksheet_Activate()
Dim wks As Worksheet
Dim iRow As Integer
Dim ZellA
Dim ZellC
iRow = 1
Set WKS1 = Worksheets("Tabelle1")
Do Until IsEmpty(Cells(iRow, 1))
ZellA = "A" & iRow
ZellC = "C" & iRow
'MsgBox Abs(wks1.Range(ZellA).Value)
WKS1.Range(ZellC).Value = Abs(WKS1.Range(ZellA).Value)
iRow = iRow + 1
Loop
Columns(3).Sort Key1:=WKS1.Columns(3), _
Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom ', _
DataOption1:=xlSortTextAsNumbers
'So gehts auch denke ich!
'Dim Spalte As Integer
'Spalte1 = 1
'wks.Columns(Spalte1).Select
'Dim Zc As Range
'For Each Zc In Selection.Columns
'    If Zc.Value < 0 Then Zc.Value = Zc.Value * -1
'Next c
End Sub


Erkan aus Stuttgart

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


            
    
    
    
                    


    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

                
                    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
                
            

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige