Thema Datum  Von Nutzer Rating
Antwort
28.10.2022 11:16:18 Hermann
NotSolved
28.10.2022 13:11:43 Mase
NotSolved
28.10.2022 13:43:24 Gast46053
NotSolved
Blau suche in spalte nach wert, unsortiert, mehrfach auftretend
31.10.2022 15:27:58 Gast14517
NotSolved
01.11.2022 03:30:46 Gast17745
NotSolved
01.11.2022 06:11:33 Gast38192
NotSolved
28.10.2022 13:47:38 volti
NotSolved
31.10.2022 08:42:15 Gast94870
NotSolved
31.10.2022 09:15:41 Gast93377
NotSolved
31.10.2022 09:19:42 Gast2335
NotSolved
31.10.2022 09:30:54 ralf_b
NotSolved
31.10.2022 16:41:03 volti
NotSolved
31.10.2022 09:30:52 Gast53785
NotSolved
31.10.2022 16:46:55 volti
NotSolved
31.10.2022 17:12:03 Gast48311
NotSolved
28.10.2022 15:55:07 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Gast14517
Datum:
31.10.2022 15:27:58
Views:
472
Rating: Antwort:
  Ja
Thema:
suche in spalte nach wert, unsortiert, mehrfach auftretend

So, ich habe jetzt die drei unterschielichen Suchvarianten durch.

Hier die letzte mit dem Autofilter:

Sub B_A10()
    Dim DeinArr As Variant
    Dim Zindex As Long
    Dim iCount(3), total, G10 As Integer

    Application.ScreenUpdating = False
    
    DeinArr = Sheets("LISTE1").Range("C3:C" & Sheets("LISTE1").UsedRange.SpecialCells(xlCellTypeLastCell).Row)
    
    'DeinArr = Sheets("A").Range("C3:C6")
    If Sheets("LISTE2").AutoFilterMode Then
       Sheets("LISTE2").AutoFilterMode = False
    End If
    For Zindex = 1 To UBound(DeinArr)
        With Sheets("LISTE2")

            .Range("A2:N" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row).AutoFilter Field:=14, Criteria1:=DeinArr(Zindex, 1)
            'soweit ok. Excel filtert jeden wert aus sheetsLISTE1 1:Ende im Sheet Liste2 spalte N
            total = .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
                'hier wird die Anzahl der Reihen gezählt. soweit ok
                'Wollte eigentlich noch in zwei Kriterien unterteilen, aber die Funktion ist auch schon so sehr langsam
        '    .    Range("A2:N" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row).AutoFilter Field:=12, _
       '         Criteria1:="10 Gigabit Ethernet"       
       '        G10 = .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
        
         End With
        Sheets("LISTE1").Cells((Zindex + 2), 13).Value = total
       ' Sheets("LISTE1").Cells((Zindex + 2), 14).Value = G10
    Next Zindex
    Application.ScreenUpdating = True
End Sub

 

Ergebnis:

For loop durch beide Listen: Code ran successfully in 249,74 seconds  

Find/FindNex: Code ran successfully in 81,92 seconds

Autofilter: Code ran successfully in 372,73 seconds (hier nur nach einem Kriterium gefiltert und ohne die Fallunterscheidung

 
   

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
28.10.2022 11:16:18 Hermann
NotSolved
28.10.2022 13:11:43 Mase
NotSolved
28.10.2022 13:43:24 Gast46053
NotSolved
Blau suche in spalte nach wert, unsortiert, mehrfach auftretend
31.10.2022 15:27:58 Gast14517
NotSolved
01.11.2022 03:30:46 Gast17745
NotSolved
01.11.2022 06:11:33 Gast38192
NotSolved
28.10.2022 13:47:38 volti
NotSolved
31.10.2022 08:42:15 Gast94870
NotSolved
31.10.2022 09:15:41 Gast93377
NotSolved
31.10.2022 09:19:42 Gast2335
NotSolved
31.10.2022 09:30:54 ralf_b
NotSolved
31.10.2022 16:41:03 volti
NotSolved
31.10.2022 09:30:52 Gast53785
NotSolved
31.10.2022 16:46:55 volti
NotSolved
31.10.2022 17:12:03 Gast48311
NotSolved
28.10.2022 15:55:07 Flotter Feger
NotSolved