Thema Datum  Von Nutzer Rating
Antwort
04.12.2018 15:16:42 Hady
Solved
Blau Jahr Filtern
04.12.2018 18:51:17 Gast96178
NotSolved
04.12.2018 19:31:24 Hady
Solved
04.12.2018 21:31:39 ugor
NotSolved
05.12.2018 07:24:11 Gast83996
NotSolved

Ansicht des Beitrags:
Von:
Gast96178		 Datum:
04.12.2018 18:51:17		 Views:
488		 Rating:
     
Antwort:
  Ja
Thema:
Jahr Filtern 
Sub Tast()
Dim first, last
Dim Jahr As Integer: Jahr = 2018

   first = CLng(DateSerial(Jahr, 1, 1))
   last = CLng(DateSerial(Jahr, 12, 31))
   With ActiveSheet.Columns("A:F")
      .AutoFilter
      .AutoFilter Field:=6, Criteria1:=">=" & first, _
               Operator:=xlAnd, Criteria2:="<=" & last
   End With

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
04.12.2018 15:16:42 Hady
Solved
Blau Jahr Filtern
04.12.2018 18:51:17 Gast96178
NotSolved
04.12.2018 19:31:24 Hady
Solved
04.12.2018 21:31:39 ugor
NotSolved
05.12.2018 07:24:11 Gast83996
NotSolved