Autofilter über Makro funktioniert nicht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Autofilter_mit_Druck() ' Zeile 2 Löschen damit Autofilter wirkt Dim lngRow As Long On Error GoTo ErrExit Dim LoLetzte As Long LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _ Count) Application.ScreenUpdating = False With Sheets("Rechnungsübersicht") For lngRow = 16 To LoLetzte If .Cells(lngRow, 2) "" Then If Application.CountIf(.Range(.Cells(2, 2), .Cells(lngRow, 2)), .Cells(lngRow, _ 2)) = 1 Then .Range("A15").Autofilter Field:=3, Criteria1:=.Cells(lngRow, 3) .PrintPreview End If End If Next .ShowAllData End With ErrExit: Application.ScreenUpdating = True End Sub

Sub Autofilter_mit_Druck() Dim lngRow As Long On Error GoTo ErrExit Dim LoLetzte As Long Application.ScreenUpdating = False With Sheets("Rechnungsübersicht") LoLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row For lngRow = 16 To LoLetzte If .Cells(lngRow, 3) "" Then If Application.CountIf(.Range(.Cells(16, 3), .Cells(lngRow, 3)), .Cells(lngRow, _ 3)) = 1 Then .Range("A15").Autofilter Field:=3, Criteria1:=.Cells(lngRow, 3) .PrintPreview End If End If Next lngRow .ShowAllData End With ErrExit: Application.ScreenUpdating = True End Sub

Hi Thomas,
danke erstmal für die freundliche Rückmeldung! Damit ein Makro auch vom Laien an neue Tabellen angepasst werden kann, empfehle ich alle Zeilen / Spalten-angaben als variablen mit sprechendem Namen nach oben auszulagern. Das ist recht intuitiv, und man muss den Code selber nicht verstehen (nur dem Programmierer vertrauen :-) )
Im Beispielmakro sähe das so aus:

Option Explicit
Sub Autofilter_mit_Druck()
Const SuchSpalte As Long = 3     'hier stehen die Suchwörter. Spalte A=1, B=2 und so weiter. _
Const ErsteZeile As Long = 15    'in dieser Zeile stehen die Überschriften
Const FilterVonLinks As Long = 3 'Die Filterspalte ist die dritte von Links. Ist meist  _
identisch mit SuchSpalte - aber der Filter MUSS ja nicht in A anfangen!
Const BlattName As String = "Rechnungsübersicht"  'so heisst das Blatt
Dim lngRow As Long
On Error GoTo ErrExit
Dim LoLetzte As Long
Application.ScreenUpdating = False
With Sheets(BlattName)
LoLetzte = .Cells(.Rows.Count, SuchSpalte).End(xlUp).Row
For lngRow = ErsteZeile + 1 To LoLetzte
If .Cells(lngRow, SuchSpalte)  "" Then
If Application.CountIf(.Range(.Cells(ErsteZeile + 1, SuchSpalte), .Cells(lngRow, _
SuchSpalte)), .Cells(lngRow, SuchSpalte)) = 1 Then
.Cells(ErsteZeile, SuchSpalte).AutoFilter Field:=FilterVonLinks, Criteria1:= _
.Cells(lngRow, SuchSpalte)
.PrintPreview
End If
End If
Next lngRow
.ShowAllData
End With
ErrExit:
Application.ScreenUpdating = True
End Sub

Dann kannst du auch beruhigt Zeilen einfügen oder löschen wie du willst - solange du ganz oben die Variable "ErsteZeile" anpasst.
LG,
Klaus M.vdT.

Option Explicit Sub DebitorDeutschLöscheZeile() Dim i As Long Dim LetzteH As Long With Worksheets("Rechnungsübersicht") LetzteH = .Cells(Rows.Count, 8).End(xlUp).Row For i = 16 To LetzteH If .Cells(i, 8).Value = "Deutsch" Then .Cells(i, 8).EntireRow.Delete i = i - 1 End If Next i End With End Sub

Option Explicit Sub DebitorDeutschLöscheZeile() Dim i As Long Dim LetzteH As Long With Worksheets("Rechnungsübersicht") LetzteH = .Cells(Rows.Count, 8).End(xlUp).Row For i = 16 To LetzteH If .Cells(i, 8).Value = "De" Or .Cells(i, 8).Value = "Ned" Then .Rows(i).EntireRow.Delete i = i - 1 End If Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

Autofilter über Makro funktioniert nicht

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autofilter über Makro funktioniert nicht

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread