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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Anzahl_Worte() Dim VariableA As String Dim loAnzahl As Long VatiableA = "Tasse Kaffee guten Morgen" loAnzahl = Len(VariableA) - Len(Replace(VariableA, " ", "")) + 1 MsgBox "In der Zelle stehen " & loAnzahl & " Worte" End Sub

Public Sub Anzahl_Worte() Dim VariableA As String Dim loAnzahl As Long VariableA = "Tasse Kaffee guten Morgen " 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" End Sub

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

Hallo
Sorry, hatte für Spalte(B) nochmal A1 eingelesen.
Ein schlaue Fuchs hat es sicher bemerkt ;-)
Die Bereiche können/müssen angepasst werden,
ebenso ob man aus A in B sucht oder aus B in A sucht.
hier wird geprüft welcher String aus A in B vorhanden ist
sieht also eigentlich so aus:
Tabelle2

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

Formeln der Tabelle

Zelle	Formel
A2	=LÄNGE(A1)-LÄNGE(WECHSELN(A1;" ";""))
B2	=LÄNGE(B1)-LÄNGE(WECHSELN(B1;" ";""))
C2	=SUMME(C4:C8)
C4	=ZÄHLENWENN($B$4:$B$8;A4)
C5	=ZÄHLENWENN($B$4:$B$8;A5)
C6	=ZÄHLENWENN($B$4:$B$8;A6)
C7	=ZÄHLENWENN($B$4:$B$8;A7)
C8	=ZÄHLENWENN($B$4:$B$8;A8)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Aber das Bsp. von ransi ist perfekt, das würde ich eher auch benutzen :-)
Ich wollte jetzt nur meinen Darstellungsfehler korrigieren.
Gruß Matthias

Public Sub Anzahl_Worte() Dim VariableA As String Dim loAnzahl As Long VariableA = WorksheetFunction.Trim(Range("A1")) loAnzahl = Len(VariableA) - Len(Replace(VariableA, " ", "")) + 1 MsgBox "In der Zelle stehen " & loAnzahl & " Worte" End Sub

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

Beliebteste Forumthreads (12 Monate)

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

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

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

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

329 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread