Thema Datum  Von Nutzer Rating
Antwort
30.10.2018 15:55:11 ChrisKay
NotSolved
30.10.2018 22:30:18 Flotter Feger
NotSolved
30.10.2018 22:57:29 Gast99872
NotSolved
31.10.2018 11:39:42 Flotter Feger
NotSolved
Rot Mehrfach Kriteriensuche
 01.11.2018 09:22:04 Gast76556
Solved
01.11.2018 09:39:32 ChrisKay
NotSolved

Ansicht des Beitrags:
Von:
Gast76556		 Datum:
01.11.2018 09:22:04		 Views:
496		 Rating:
     
Antwort:
 Nein
Thema:
Mehrfach Kriteriensuche

analog https://www.clever-excel-forum.de/thread-17824.html

 

Option Explicit

Sub RecordIt()

   With Sheets("Montagebericht")
   
      MkListFilter .Range("B1").Value, .Range("E3").Value, .Range("B4").Value, .Range("B5").Value, .Range("B11").Value, "delivered"
      
   End With

End Sub


Private Sub MkListFilter(ByVal Md As String, ByVal FS As String, _
   ByVal FrmNbr As Variant, ByVal SysNbr As Variant, ByVal Dte As Variant, ByVal State As String)
Dim Rw As Range
   With Sheets("Lagerbestand")
      With .ListObjects(1)
         .AutoFilter.ShowAllData
         With .Range
            .AutoFilter Field:=2, Criteria1:=Md
            .AutoFilter Field:=3, Criteria1:=FS
            .AutoFilter Field:=4, Criteria1:="storing"
         End With
         Set Rw = .DataBodyRange.SpecialCells(xlCellTypeVisible).Rows(1)
         Do Until Rw.Cells(8) = "" And Rw.Cells(7) = ""
            Set Rw = Rw.Offset(1)
         Loop
         
         Rw.Cells(8).Value = SysNbr
         Rw.Cells(7).Value = FrmNbr
         Rw.Cells(5).Value = Dte
         Rw.Cells(4).Value = State
         
         .AutoFilter.ShowAllData
      End With
   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
30.10.2018 15:55:11 ChrisKay
NotSolved
30.10.2018 22:30:18 Flotter Feger
NotSolved
30.10.2018 22:57:29 Gast99872
NotSolved
31.10.2018 11:39:42 Flotter Feger
NotSolved
Rot Mehrfach Kriteriensuche
 01.11.2018 09:22:04 Gast76556
Solved
01.11.2018 09:39:32 ChrisKay
NotSolved