Thema Datum  Von Nutzer Rating
Antwort
Rot suche in spalte nach wert, unsortiert, mehrfach auftretend
28.10.2022 11:16:18 Hermann
NotSolved
28.10.2022 13:11:43 Mase
NotSolved
28.10.2022 13:43:24 Gast46053
NotSolved
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:
Hermann
Datum:
28.10.2022 11:16:18
Views:
760
Rating: Antwort:
  Ja
Thema:
suche in spalte nach wert, unsortiert, mehrfach auftretend

Ich habe zwei Tabellen

In einer (Liste1) etwa 2000 Einträge, in einer anderen (Liste2) etwa 5000 Einträge.

Ich muss durch eine Spalte Liste1 gehen und schauen, wo der Eintrag in Liste2 auftritt. Der Eintrag kann mehrfach auftreten. Immer wenn ich den Eintrag in Liste2 finde, muss ich in einer anderen Spalte einen Wert herausholen und den aufsummieren. In Summe also 2000*5000 Durchläufe

Ich habe eine Sub gebaut, die Funktioniert aber sooo langsam, das geht gar nicht.

Habt ihr eine bessere Idee?

Sub AListe_BListeA10()

Dim ELEMENT_A As String
Dim LR1, LR2, x, y, Counter1G, Counter10G, Counter1u10G As Integer
'Ermittele letzte Reihe

Application.ScreenUpdating = False
LR1 = Sheets("LISTE1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
LR2 = Sheets("LISTE2").UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Läuft durch die LISTE1 Liste, Spalte EndSZ
For x = 3 To LR1
    ELEMENT_A = Sheets("LISTE1").Range("C" + CStr(x))
    'Läuft durch die Liste2 und sucht wie oft ELEMENT_A auftritt
    For y = 2 To LR2
        If ELEMENT_A = Sheets("LISTE2").Range("N" + CStr(y)) Then
        'Füllt die beiden Counter
        Counter1u10G = Counter1u10G + 1 'ELEMENT_A 'Sheets("LISTE2").Range("N" + CStr(y))
            If Sheets("LISTE2").Range("L" + CStr(y)) = "1 Gigabit Ethernet" Then
                Counter1G = Counter1G + 1
                Else
                Counter10G = Counter10G + 1
            End If
        'Eintrag in LISTE1 Liste
        Sheets("LISTE1").Range("J" + CStr(x)) = Counter10G
        Sheets("LISTE1").Range("K" + CStr(x)) = Counter1G
        Sheets("LISTE1").Range("L" + CStr(x)) = Counter1u10G
        'Reset Counter
        Counter1G = 0
        Counter10G = 0
        Counter1u10G = 0
        End If
    Next y
Next x

Application.ScreenUpdating = True
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
Rot suche in spalte nach wert, unsortiert, mehrfach auftretend
28.10.2022 11:16:18 Hermann
NotSolved
28.10.2022 13:11:43 Mase
NotSolved
28.10.2022 13:43:24 Gast46053
NotSolved
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