Thema Datum  Von Nutzer Rating
Antwort
18.04.2016 10:31:15 Gast43546
NotSolved
19.04.2016 10:18:44 Gast8762
NotSolved
Rot Anzahl von Werten anzeigen
 19.04.2016 16:28:01 Gast5649
NotSolved
25.04.2016 11:13:06 Fennek
NotSolved

Ansicht des Beitrags:
Von:
Gast5649		 Datum:
19.04.2016 16:28:01		 Views:
709		 Rating:
     
Antwort:
  Ja
Thema:
Anzahl von Werten anzeigen		 
Option Explicit

Sub AnzahlTexte()
Const cSPALTE As String = "K"             'Quellspalte Texte
Const cZIEL As String = "B1"              'Ziel / Beginn Ausgabe

Dim oSl As Object
Set oSl = CreateObject("System.Collections.Sortedlist")

Dim rngTexte As Range, c As Range, x As Long, z As Long

'aktive Arbeitsmappe, aktive Tabelle
   With Columns(cSPALTE)
      Set rngTexte = Range(.Cells(1), .Cells(.Cells.Count).End(xlUp))
   End With
   'Textspalte in SortedList
   On Error Resume Next
   For Each c In rngTexte
      If c.Value <> "" Then oSl.Add Trim(c.Value), 1
   Next c
   On Error GoTo 0
   'Zielbereich löschen
   Range(Range(cZIEL), Range(cZIEL).End(xlDown)).Resize(, 2).ClearContents
   'ausgeben
   Set c = Range(cZIEL)
   For x = 0 To oSl.Count - 1
      c.Value = oSl.GetKey(x)
      c.Offset(, 1).Value = WorksheetFunction.CountIf(rngTexte, c.Value)
      Set c = c.Offset(1)
   Next x

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
18.04.2016 10:31:15 Gast43546
NotSolved
19.04.2016 10:18:44 Gast8762
NotSolved
Rot Anzahl von Werten anzeigen
 19.04.2016 16:28:01 Gast5649
NotSolved
25.04.2016 11:13:06 Fennek
NotSolved