AW: zeilen ausblenden aus autoformatierter datei
21.06.2008 12:18:00
fcs
Hallo Eddi,
Hier das Makro mit entsprechenden Anpassungen.
Das Makro bearbeitet jeweils die aktive Tabelle. Falls es nur eine bestimmte Tabelle bearbeiten soll, dann muss du die Zeile
Set wks = ActiveSheet
ändern in z.B.
Set wks = Worksheets("Territory analyze")
Gruß
Franz
Sub Top10Flop10()
'Alle Zeilen zwischen Top 10 und Flop 10 ausblenden
Dim lngZeile As Long, lngZeileFirstFlop As Long
Dim wks As Worksheet
Dim lngZaehler As Long
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
lngZaehler = 0
'Zeile des 1. Flop bestimmen
For lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 4 Step -1
If Rows(lngZeile).Hidden = False Then
lngZaehler = lngZaehler + 1
If lngZaehler = 10 Then
lngZeileFirstFlop = lngZeile
Exit For
End If
End If
Next
If lngZeileFirstFlop = 0 Then
MsgBox "Der Filter zeigt weniger als 10 Datensätze an!"
Else
lngZaehler = 0
'Zeile des letzten Top 10 bestimmen
For lngZeile = 4 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Rows(lngZeile).Hidden = False Then
lngZaehler = lngZaehler + 1
If lngZaehler = 10 Then
Exit For
End If
End If
Next
'Zeilen ausblenden wenn mehr als 20 gefilterte Zeilen angezeigt werden
If lngZeile