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
31.10.2022 15:27:58 Gast14517
NotSolved
01.11.2022 03:30:46 Gast17745
NotSolved
Blau Blau suche in spalte nach wert, unsortiert, mehrfach auftretend
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:
Gast38192
Datum:
01.11.2022 06:11:33
Views:
529
Rating: Antwort:
  Ja
Thema:
suche in spalte nach wert, unsortiert, mehrfach auftretend

Hallo Herrman

Oder nur zählen!

Sub Zählen()
Dim DeinArr As Variant
Dim Zindex As Long
DeinArr = Worksheets(1).Range("A2:A" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row)
For Zindex = 1 To UBound(DeinArr)
 DeinArr(Zindex, 1) = Application.WorksheetFunction.CountIf(Worksheets(2).Range("A2:A" & Worksheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row), DeinArr(Zindex, 1))
Next Zindex
Worksheets(1).Range("B2:B" & Worksheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row) = DeinArr
End Sub

 

Gruß Michael


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
31.10.2022 15:27:58 Gast14517
NotSolved
01.11.2022 03:30:46 Gast17745
NotSolved
Blau Blau suche in spalte nach wert, unsortiert, mehrfach auftretend
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