Thema Datum  Von Nutzer Rating
Antwort
14.11.2018 14:12:44 HeinzHarald
NotSolved
14.11.2018 14:51:41 codo
NotSolved
Rot AutoFilter von AA-AE
 14.11.2018 15:12:41 codo
NotSolved
15.11.2018 15:37:41 HeinzHarald
NotSolved
15.11.2018 17:51:35 Gast28503
NotSolved
21.11.2018 09:46:39 HeinzHarald
NotSolved
21.11.2018 14:56:58 Gast33679
NotSolved

Ansicht des Beitrags:
Von:
codo		 Datum:
14.11.2018 15:12:41		 Views:
510		 Rating:
     
Antwort:
  Ja
Thema:
AutoFilter von AA-AE

Sorry, falsch gelesen!

Sub pdf(ByVal crit As String, ByVal sht As Integer)
Dim stat As Integer
Dim rngprint As Range
Dim splt As Long
Dim filter() As Variant
Set wb1 = ActiveWorkbook
Application.ScreenUpdating = False
 
wb1.Sheets(5).Columns("A:AZ").EntireColumn.Hidden = False
wb1.Sheets(5).Columns("A:AZ").ClearFormats
wb1.Sheets(5).Columns("A:AZ").ClearContents
wb1.Sheets(5).AutoFilterMode = False
wb1.Sheets(sht).AutoFilterMode = False
 
wb1.Sheets(5).ResetAllPageBreaks
filter = Array(crit & "A", crit & "B", crit & "C", crit & "D", crit & "E")
wb1.Sheets(sht).Cells.AutoFilter Field:=5, Criteria1:=filter, Operator:=xlFilterValues
wb1.Sheets(sht).Cells.Copy
wb1.Sheets(5).Cells(1, 1).PasteSpecial xlPasteValues
wb1.Sheets(sht).AutoFilterMode = False
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.11.2018 14:12:44 HeinzHarald
NotSolved
14.11.2018 14:51:41 codo
NotSolved
Rot AutoFilter von AA-AE
 14.11.2018 15:12:41 codo
NotSolved
15.11.2018 15:37:41 HeinzHarald
NotSolved
15.11.2018 17:51:35 Gast28503
NotSolved
21.11.2018 09:46:39 HeinzHarald
NotSolved
21.11.2018 14:56:58 Gast33679
NotSolved