Problem bei Sortierung.

Morgen zusammen,
ich hab ein Problem mit m Sortieren. Ich hab es soweit hinbekommen das die Liste sortiert wird. jedoch möchte ich die neue Priorität 1 auch an erster Stelle haben und nicht an zweiter, so wird es nämlich grad bei mir sortiert.
Mein Code so far:
For x = 7 To lngLetzte - 1
If Worksheets("Priorität Messraum").Cells(lngLetzte, 3).Value = Worksheets("Priorität Messraum").Cells(x, 3).Value Then
Range(Cells(lngLetzte, 1), Cells(lngLetzte, 5)).Offset(-x, 0).Select
End If
Next
With ActiveWorkbook.Worksheets("Priorität Messraum").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("C8"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("B8:E65535")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Dim nummer As Long
Dim zaehler As Long
Dim stopper As Boolean
stopper = False
nummer = 8
zaehler = 1
While stopper = False
If IsEmpty(Cells(nummer, 2)) Then
stopper = True
End
Else
Cells(nummer, 3) = zaehler
nummer = nummer + 1
zaehler = zaehler + 1
End If
Es soll nun ein neuer wert angegeben werden wie z.B.
"Hase" mit Priorität "1"
Es soll nun auch an erster Stelle stehen und das was bisher auf 1 war runter auf die 2 gehen und alle weiteren ebenso der Reihe nach.
Ich hoffe ihr könnt mir helfen. Vor allem halten sich meine Kentnisse in VBA echt in Grenzen. Habe das erst jetzt angefangen.
Gruß Kida

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kida,
damit die Einsortierung an der gewünschten Position funktioniert, muss du einen jeweils kleineren Wert eingeben. Bei gleichen Werten sortiert Excel die Zeilen in der Reihenfolge der Zellen - eine neue 1 folgt also nach der vorhandenen alten 1 wenn neu sortiert wird.
Ansonsten kannst du dein Makro wie folgt einkürzen, da du da ein paar unnötige Sachen eingebaut hast oder zumindest für mich nicht nachvollziehbare.
Ich hab auch einige Sachen in die von mir bevorzugte Schreibweise umgestellt.
Gruß
Franz Private Sub CommandButton2_Click() Dim wks As Worksheet ' Die Variable lngLetzte wird als Typ Long deklariert Dim lngLetzte As Long ' Die Variable lngZeile wird als Typ Long deklariert Dim lngZeile As Long Set wks = ActiveSheet 'oder Activeworkbook,Worksheets("Priorität Messraum") 'Blattname ggf. _ anpassen! ' Bildschirmaktualisierung AUSschalten (Makro läuft schneller, Bildschirm flackert nicht) 'Application.ScreenUpdating = False ' Letzte belegte Zelle in Spalte B plus 1 raussuchen und merken With wks lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), _ .Cells(.Rows.Count, 2).End(xlUp).Row + 1, .Rows.Count) ' in einer Schleife von dieser Letzten bis Zeile 8 gehen - also von unten nach oben For lngZeile = lngLetzte To 8 Step -1 ' Wenn die Zelle in der ensprechenden Zeile in Spalte B leer ist If .Cells(lngZeile, 2) = "" Then ' dann lösche in dieser Zeile Feld 1 bis 5 .Range(.Cells(lngZeile, 1), .Cells(lngZeile, 5)).Delete ' Ende der Bedingung End If ' Nächste Zeile mit der Bedingung vergleichen Next ' Bildschirmaktualisierung EINschalten (nicht vergessen) 'Application.ScreenUpdating = True ' Feldbereich B8 bis Exxxx nach Feld C8 aufsteigend sortieren lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), _ .Cells(.Rows.Count, 2).End(xlUp).Row + 1, .Rows.Count) With .Sort .SortFields.Clear .SortFields.Add Key:=wks.Range("C8"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange wks.Range(wks.Cells(8, 2), wks.Cells(lngLetzte, 5)) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Dim nummer As Long Dim zaehler As Long nummer = 8 zaehler = 1 While Not IsEmpty(.Cells(nummer, 2)) .Cells(nummer, 3) = zaehler nummer = nummer + 1 zaehler = zaehler + 1 Wend End With End Sub

With Worksheets("Priorität Messraum") .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Range("C8"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal .Sort.SetRange .Range("B8:E" & lngLetzte) .Sort.Header = xlNo .Sort.MatchCase = False .Sort.Orientation = xlTopToBottom .Sort.SortMethod = xlPinYin .Sort.Apply End With

Beliebteste Forumthreads (12 Monate)

	B	C	D
8	ente1	1	julian
9	pilz	2
10	peterpan	3
11	ente3	4	max
12	schaf	5	peter
13	ente	6	krause
14	hase	7
15	ente2	8	bernd
16	pferd	9	max2
17	lila	10	heinz
18	blabla	11	karl
19	blablabla	12	peter

	B	C	D
8	hase	1
9	pilz	2
10	peterpan	3
11	ente3	4	max
12	schaf	5	peter
13	ente	6	krause
14	ente1	7	julian
15	ente2	8	bernd
16	pferd	9	max2
17	lila	10	heinz
18	blabla	11	karl
19	blablabla	12	peter

	B	C	D	E
8	Hase2	1
9	hase	2
10	pilz	3
11	peterpan	4
12	ente3	5	max	19.12.2012
13	schaf	6	peter	01.02.2013
14	ente	7	krause	15.03.2013
15	ente1	8	julian	18.03.2013
16	ente2	9	bernd	18.03.2013
17	pferd	10	max2	18.03.2013
18	lila	11	heinz	18.03.2013
19	blabla	12	karl	18.03.2013
20	blablabla	13	peter	18.03.2013
21	Hase3	0

	B	C	D	E
8	Hase3	1
9	Hase2	2
10	hase	3
11	pilz	4
12	peterpan	5
13	ente3	6	max	19.12.2012
14	schaf	7	peter	01.02.2013
15	ente	8	krause	15.03.2013
16	ente1	9	julian	18.03.2013
17	ente2	10	bernd	18.03.2013
18	pferd	11	max2	18.03.2013
19	lila	12	heinz	18.03.2013
20	blabla	13	karl	18.03.2013
21	blablabla	14	peter	18.03.2013

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem bei Sortierung.

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread