VBA: Anzahl der Wörte in A zählen und mit B vergl

Darren · 2017-09-09T08:06:22+00:00

Hallo, in einer Zelle/Variable steht: VariableA = "Tasse Kaffee Guten Morgen" VariableB = "Kaffee Guten Morgen" Die Funktion soll die Inhalte vergleichen, ob es gleich ist. a) Dabei möchte ich, dass man die Anzahl der Wörter in einer Variable feststellt b) Ich möchte wissen, wieviele gleiche Wörter in B von A vorkommen und in einer VariableC ausgeben, was nicht gefunden wurde. Ideen, Funktionen, Codes? Gruß Darren

Hallo
Schreib doch die Strings in die Tabelle
Bsp.
Tabelle1

	A
1	Tasse Kaffee guten Morgen
2
3	Tasse
4	Kaffee
5	guten
6	Morgen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Code:

Option Explicit
Public Sub Anzahl_Worte()
Dim VariableA As String
Dim loAnzahl As Long
Dim MyArr As Variant, x&
VariableA = Cells(1, 1).Value
VariableA = Trim(VariableA)
If Right(VariableA, 1) = " " Then
loAnzahl = Len(VariableA)
VariableA = Left(VariableA, loAnzahl - 1)
Stop
End If
loAnzahl = Len(VariableA)
loAnzahl = Len(VariableA) - Len(Replace(VariableA, " ", "")) + 1
MsgBox "In der Zelle stehen " & loAnzahl & " Worte"
MyArr = Split(VariableA, " ")
For x = 1 To loAnzahl
Cells(x + 2, 1) = MyArr(x - 1)
Next
End Sub

Das Gleiche machst Du mit der anderen Variable
In der Tabelle kannst Du dann mit Zählenwenn() prüfen.
Hat ein Formelergebnis 0(Null) so ist dieses Wort
in der anderen Variable nicht vorhanden.
Tabelle2

	A	B	C
1	Tasse Kaffee Guten Morgen	Kaffee Guten Morgen
2	3 Leerzeichen	2 Leerzeichen	3
3			Zählen
4	Tasse	Tasse	1
5	Kaffee	Kaffee	1
6	Guten	Guten	1
7	Morgen		0
8			0

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias

HAllo Darren,
Ich habs so verstanden:
Tabelle1

	A	B
1	Tasse Kaffee Guten Morgen Tee
2	Kaffee Guten Morgen
3

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub aufruf()
    Dim vntResult As Variant
    vntResult = VariableC(Range("A2"), Range("A1"))
    MsgBox vntResult(0) & vbCrLf & vntResult(1)
End Sub

Public Function VariableC(VariableA, VariableB)
    Dim Regex As Object
    Dim objMatches As Object
    Dim objMatch As Object
    Dim objDic As Object
    Dim I As Integer
    Redim out(I)
    Set Regex = CreateObject("vbScript.regexp")
    Set objDic = CreateObject("scripting.Dictionary")
    With Regex
        .Pattern = "[a-zA-ZäöüÄÖÜß]+"
        .Global = True
        Set objMatches = .Execute(VariableA)
        For Each objMatch In objMatches
            objDic(objMatch.Value) = 0
        Next
        Set objMatches = .Execute(VariableB)
        For Each objMatch In objMatches
            If Not objDic.exists(objMatch.Value) Then
                Redim Preserve out(I)
                out(I) = objMatch
                I = I + 1
            End If
        Next
    End With
    VariableC = Array(Join(out, ", "), I)
End Function

ransi

VBA: Anzahl der Wörte in A zählen und mit B vergl

Forumthread: VBA: Anzahl der Wörte in A zählen und mit B vergl

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA: Anzahl der Wörte in A zählen und mit B vergl

Forumthread: VBA: Anzahl der Wörte in A zählen und mit B vergl

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread