Wenn Zeile 5 ausgeblendet keine Filterfunktion

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SortierenArabellaStefan() Dim letzteZeile As Long Dim bMerkt As Boolean With Sheets("Arabella") If .Range("B5").EntireRow.Hidden Then .Range("B5").EntireRow.Hidden = False bMerkt = True End If letzteZeile = .Cells(.Rows.Count, 19).End(xlUp).Row 'Letzte Zeile aus Spalte S .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Range("S5:S" & letzteZeile), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal .Sort.SetRange .Range("B5:AB" & letzteZeile) With .Sort .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With If bMerkt Then .Range("B5").EntireRow.Hidden = True End With End Sub

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.

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

Public Static Sub GetMoreSpeed(Optional ByVal Modus As Boolean = True) Dim intCalculation As Integer If Modus = True Then intCalculation = Application.Calculation With Application .ScreenUpdating = Not Modus .EnableEvents = Not Modus .Calculation = IIf(Modus = True, xlManual, intCalculation) .Cursor = IIf(Modus = True, 2, -4143) End With End Sub

Private Sub CommandButton1_Click() ' Sortieren_nach_Auftrag_Position_Eingang_Kunde Makro Dim letzteZeile As Long GetMoreSpeed (True) With ActiveSheet [Dein Makro] End With GetMoreSpeed (False) End Sub

Sub SortierenArabellaStefan() 'Range("B5:AB1000").Select 'brauchst du nicht With ActiveWorkbook.Worksheets("Arabella") If .Rows("5:5").EntireRow.Hidden Then MsgBox "Zeile 5 ist ausgeblendet" Exit Sub End If .Sort.SortFields.Clear .Sort.SortFields.Add Key:=Range("S5:S1000") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Sort.SetRange Range("B5:AB1000") .Sort.Header = xlGuess .Sort.MatchCase = False .Sort.Orientation = xlTopToBottom .Sort.SortMethod = xlPinYin .Sort.Apply End With End Sub

Sub SortierenArabellaStefan() Dim Zeile_L As Long With ActiveWorkbook.Worksheets("Arabella") .Activate Zeile_L = .UsedRange.Row + .UsedRange.Rows.Count - 1 If Zeile_L > 5 Then 'Range("B5:AB1000").Select .Sort.SortFields.Clear .Sort.SortFields.Add Key:=Range("S5"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With .Sort .SetRange Range("B5:AB" & Zeile_L) .Header = xlYes 'oder xlNo bei xlGuess enscheidet Excel und dies ggf. Falsch .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Wenn Zeile 5 ausgeblendet keine Filterfunktion

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Zeile 5 ausgeblendet keine Filterfunktion

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

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread