Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SORTIEREN

SORTIEREN
15.10.2007 16:27:00
Walter
Hallo Excelfreunde,
Ich habe in sechs Spalten Artikelnummern stehen( Ca. 1000 Zeilen)
Nun möchte ich in Spalte A die Kleinste und bis F die größte Artikelnummer haben.
Wie kann ich dies sortieren?
Danke für Eure Hilfe.
Rentner Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SORTIEREN
15.10.2007 17:10:00
Jens
Hi,
ich weiß nicht, wie es anderen Lesern geht, ich verstehe nur Bahnhof.
mfg Jens

AW: SORTIEREN
16.10.2007 03:50:29
Walter
Guten Morgen Jens,
Sorry ich habe mich etwas unklar ausgedrückt.
https://www.herber.de/bbs/user/46787.xls
Hier ein kleiner Ausschnitt von meinem Problem, wenn es mit Artikelnummern nicht klappt dann
setz Zugnummern ein
mfg
Rentner Walter

AW: SORTIEREN
15.10.2007 17:48:19
Josef
Hallo Walter,
da hilft eine kleine Routine.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub SortHorizontal()
Dim rng As Range
Dim lngStart As Long, lngEnd As Long

lngStart = 1 'Erste Zeile mit Daten - anpassen!

lngEnd = Application.Max(lngStart, Cells(Rows.Count, 1).End(xlUp).Row)

For Each rng In Range(Cells(lngStart, 1), Cells(lngEnd, 6)).Rows
    rng.Sort _
        Key1:=rng.Cells(1, 1), _
        Order1:=xlAscending, _
        Orientation:=xlSortRows
Next

End Sub

Gruß Sepp

Anzeige
AW: SORTIEREN
16.10.2007 04:02:00
Walter
Danke Sepp
Haut sofort hin.
Gruß
Walter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige