Wenn Zeile 5 ausgeblendet keine Filterfunktion

Christian · 2015-01-21T11:21:12+00:00

Hallo zusammen, ich möchte immer die Bereiche B5 bis AB1000 sortieren. Dafür habe ich das Makro: Sub SortierenArabellaStefan() Range("B5:AB1000").Select ActiveWorkbook.Worksheets("Arabella").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Arabella").Sort.SortFields.Add Key:=Range("S5:S1000") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Arabella").Sort .SetRange Range("B5:AB1000") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Das funktioniert soweit auch gut. Wenn aber die Zeile 5 ausgeblendet ist dann stürzt Excel ab. Kann mir da jemand helfen? Die sollte auch kein fixer Wert sein. Eigentlich hätte ich da lieber die letzte gefüllt Zeilennummer stehen. Danke im voraus.

Kann ich das mit letzteZeile auch in andere Codes einfügen?
Natürlich! Das ist ja nicht sortieren-Exklusiv.
Kurz zum Erklären:

Sub ZeigeLetzteZeile()
Dim letzteZeile As Long
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox letzteZeile
End Sub

Deine Tabelle hat 1048576 Zeilen. Der Rows.Count ergibt als 1048576.
Cells(1048576,1) ist Zelle A1048576. Gehst du in die Zelle und drückst STRG+UP (das ist in VBA end(xlup)) dann landest du in der letzten beschriebenen Zelle der Spalte A, meinetwegen A19. Das .Row gibt dir dann die Zeile der ermittelten Zelle - in diesem Fall die Zahl 19.
Willst du die letzte Zeile in Spalte H ermitteln, musst du im Code nur die 1 gegen eine 8 tauschen:
letzteZeile = Cells(Rows.Count, 8).End(xlUp).Row
im Beispiel habe ich das ganze in einem WITH-Rahmen verwendet, um direkt auf eine Tabelle zu referenzieren. Hast du eine Tabelle die "Arabella" heisst, dann gibt dir:

Sub ZeiteLetzteZeileBesserReferenziert()
Dim letzteZeile As Long
With Sheets("Arabella")
letzteZeile = .Cells(.Rows.Count, 8).End(xlUp).Row
MsgBox letzteZeile
End With
End Sub

Die letzte Zeile aus dem Blatt Arabella in Spalte H - egal welches Blatt gerade aktiv ist. Beachte die Punkte vor .cells und .rows.count, mittels derer auf den WITH-Rahmen Bezug genommen wird.
Daraus eine Adresse zu machen, im Beispiel Range("S5:S" & letzteZeile) ist dann reine Textverkettung.
Du fragst dich vielleicht, warum der Umweg über "Rows.Count" genommen wird. Und du hast recht,
letzteZeile = Cells(1048576, 1).End(xlUp).Row
würde genauso gut funktionieren. Das Problem: Unter xl2003 gibt es nur 64656 Zeilen, und unter späteren Excelversionen könnte es mehr Zeilen geben. Durch den Verzicht auf eine fixe Nummer bleibt der Code Versionsunabhängig funktional.
Viel Spaß!
Grüße,
Klaus M.vdT.

Hallo Klaus,
ich habe deine Erklärung mal angewendet:

Private Sub CommandButton1_Click()
' Sortieren_nach_Auftrag_Position_Eingang_Kunde Makro
Dim letzteZeile As Long
With ActiveSheet
letzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("B5:B" & letzteZeile), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("C5:C" & letzteZeile), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("D5:D" & letzteZeile), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("E5:E" & letzteZeile), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange .Parent.Range("A5:AB" & letzteZeile)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub

Ich hoffe es ist so richtig. Überall wo jetzt & letzteZeile stand war sonst eine 1000.
Ich erhoffe mir dadurch auch an Geschindigkeit gewonnen zu haben, weil ja nicht immer bis 1000 gesucht werden muss.
Wo binde ich in den Code das Bildschirm flimmern / aktualisieren ein?
Ich dachte mit diesem Code:

Application.ScreenUpdating = False ' Bildschirm flackern unterdrücken - Start ***
Application.ScreenUpdating = True ' Bildschirm flackern unterdrücken - Start ***

Danke für deine Hilfe.

Wenn Zeile 5 ausgeblendet keine Filterfunktion

Forumthread: Wenn Zeile 5 ausgeblendet keine Filterfunktion

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Wenn Zeile 5 ausgeblendet keine Filterfunktion

Forumthread: Wenn Zeile 5 ausgeblendet keine Filterfunktion

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread