Makro für aufsteigend sortieren

Sub Sortieren () Range("B2").Select Range("A1:N266").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tino,
aus deinen Angaben kann ich leider nicht alles umsetzen. Das Problem ist auch, dass unterschiedliche Längen der Spalten mit berücksichtigt weren müssen. Ich also nicht immer von A1:N266 ausgehen kann.
Ich habe es mit nachfolgenden Makro probiert und es zerschießt mir wieder die Tabelle. hast du einen weiteren Tip für mich?


Sub Sortieren()
' Makro1 Makro
' Makro am 27.04.2009 von Jeron Bitto aufgezeichnet
If Worksheets(1).Cells(2, 2).Value = "Lagerartikelnummer" Then
Range("B2").Select
Range("A1:N258").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Else: Worksheets(1).Cells(1, 2).Value = "nichtmöglich"
End If
End Sub

Sub Sortieren() Dim SortSpalte As Range With Worksheets(1) 'in Zeile 2 befindet sich die Überschrift !!!!! 'Suche nach Lagerartikelnummer in Zeile 2, Groß u. Kleinschreibung wird beachtet Set SortSpalte = .Rows(2).Find("Lagerartikelnummer", , xlValues, 1, 1, 1, True, False) If Not SortSpalte Is Nothing Then .Range("A2:N" & .Rows.Count).Sort SortSpalte, xlAscending, , , , , , xlYes Else MsgBox "Spalte ""Lagerartikelnummer"" wurde nicht gefunden!", vbCritical End If End With End Sub

Sub Sortieren() Dim SortSpalte As Range With Worksheets(1) 'in Zeile 2 befindet sich die Überschrift !!!!! 'Suche nach Lagerartikelnummer in Zeile 2, Groß u. Kleinschreibung wird beachtet Set SortSpalte = .Rows(2).Find("Lagerartikelnummer", , xlValues, 1, 1, 1, True, False) If Not SortSpalte Is Nothing Then .Range("A2", .Cells(.Rows.Count, .Columns.Count)).Sort SortSpalte, xlAscending, , , , , , xlYes Else MsgBox "Spalte ""Lagerartikelnummer"" wurde nicht gefunden!", vbCritical End If End With End Sub

Sub Sortieren() Dim SortSpalte As Range With Worksheets(1) 'in Zeile 2 befindet sich die Überschrift !!!!! 'Suche nach Lagerartikelnummer in Zeile 2, Groß u. Kleinschreibung wird beachtet Set SortSpalte = .Rows(2).Find("Lagerartikelnummer", , xlValues, 1, 1, 1, True, False) If Not SortSpalte Is Nothing Then .Range("A2", .Cells(.Rows.Count, .Columns.Count)).MergeCells = False .Range("A2", .Cells(.Rows.Count, .Columns.Count)).Sort SortSpalte, xlAscending, , , , , , xlYes Else MsgBox "Spalte ""Lagerartikelnummer"" wurde nicht gefunden!", vbCritical End If End With End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

93 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro für aufsteigend sortieren

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

93 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