strings auszählen

Forumthread: 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

AW: strings auszählen

sergiesam
AW: strings auszählen

23.11.2004 05:42:44

günter
AW: strings auszählen

xule
AW: strings auszählen

23.11.2004 14:09:44

günter

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

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

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)

Forumthread: strings auszählen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread