Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

strings auszählen

strings auszählen
22.11.2004 20:39:12
günter
hallo und guten abend !
ich habe heute von xule eine beispielmappe
begkommen.
Siehe Anlage:
https://www.herber.de/bbs/user/13780.xls
Hier sollen strings gezählt werden. ca. 35000 einträge.
Wie und wo muss es einstellen, dass auf dem 1. tabellenblatt
in spalte H gesucht wird.
hatte die beispieldaten dorthin gestellt und einstellung im
makro verändert.
Vielleicht hat noch jemand eine idee, wie man die suche
beschleunigen kann. dauert ewig bei ca. 35000 einträgen.
gruss
günter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: strings auszählen
sergiesam
hi,
Weiß nicht, ob ich dich richtig verstanden habe. Wenn du nur die Texte zählen willst, dann mach es mit "Gehe zu" - "Konstanten" - "Text"
MsgBox Columns("H:H").SpecialCells(xlCellTypeConstants, 2).Cells.Count
bei 36.000 Zellen gehts in ca. 4 Sekunden bei einem 3,1 GHz Rechner.
https://www.herber.de/bbs/user/13783.xls
Gruß,
Sam
AW: strings auszählen
23.11.2004 05:42:44
günter
Hallo Sergiesam,
ne, so einfach ist es nicht.
in einer zelle (cell) steht ein eintrag z.b. wie folgt:
*b22* walter *b27* müllstr. *b33* zum_beispiel hauptstr. *b19* *b22* *b27*
nun sollte auf dem 2. tabellenblatt alle vorkommnisse ohne duplikate
einmal gelistet werden und dahinter die anzahl gelistet werden.
hierbei sollen nur die gelistet werden, welche mit * (stern) gebinnen und mit
* (stern) enden.
gruss
günter
Anzeige
AW: strings auszählen
xule
für Spalte H sähe das Makro so aus:


      
Option Explicit
Sub zählen()
Dim TB1, TB2, Lr1%, Lr2%, J%, I%, Anz%, sSP1%, sSP2%
'    Sheets.Add
'    Sheets("Tabelle3").Select
'    Sheets("Tabelle3").Name = "T2"

    Set TB1 = Sheets("Bestandsprotokoll")
    Set TB2 = Sheets("T2")
    sSP1 = 8 'SuchSpalte H
    sSP2 = 1 'SuchSpalte A

    Lr1 = TB1.Cells(Rows.Count, sSP1).End(xlUp).Row 'letzte Zeile
    Lr2 = TB2.Cells(Rows.Count, sSP2).End(xlUp).Row 'letzte Zeile
    For J = 1 To Lr2
        Anz = 0
        For I = 1 To Lr1
           Anz = Anz + (Len(TB1.Cells(I, sSP1).Text) - Len(Application.Substitute(TB1.Cells(I, sSP1).Text, TB2.Cells(J, sSP2).Text, ""))) / Len(TB2.Cells(J, sSP2).Text)
        Next
        TB2.Cells(J, sSP2 + 1).Value = Anz
    Next
End Sub 



Eine andere ,schnellere Möglichkeit hab ich nicht gefunden.
Gruß UD
Anzeige
AW: strings auszählen
23.11.2004 14:09:44
günter
hallo xule,
vielen dank für deine mühe.
muss testen...
gruss
günter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige