SORTIEREN

Forumthread: SORTIEREN
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: SORTIEREN

SORTIEREN

15.10.2007 18: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

AW: SORTIEREN

15.10.2007 19:10:00

Jens
AW: SORTIEREN

16.10.2007 05:50:29

Walter
AW: SORTIEREN

15.10.2007 19:48:19

Josef
AW: SORTIEREN

16.10.2007 06:02:00

Walter

AW: SORTIEREN

15.10.2007 19:10:00

Jens

Hi,
ich weiß nicht, wie es anderen Lesern geht, ich verstehe nur Bahnhof.
mfg Jens

AW: SORTIEREN

16.10.2007 05: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 19: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