Code für Anzahl Leerzeichen in Zelle

Dieter(Drummer) · 2023-02-07T17:07:26+00:00

Guten Tag VBA Spezialisten/innen, mit folgendem Code - hab lange dran gebastelt :-) - kann ich die Anzahl Leerzeichen einer Zelle zählen und in MsgBox zeigen. Das funktioniert, s. Beispieldatei: https://www.herber.de/bbs/user/157700.xlsm • Sub Leerzeichen_Anzahl() MsgBox "Leerzeichen Anzahl: " & Len(ActiveCell) - Len(Replace(ActiveCell, " ", "")) End Sub Kann der Code kürzer sein und wenn ja wie? Mit der Bitte um Hilfe, grüßt, Dieter(Drummer)

Hallo Dieter,
kürzer bedeutet nicht besser. Wichtig ist, dass Du heute vertehst, was im Code passiert und dass Du immer noch verstehst, wenn Du den Code 3 Monaten liegen lässt. Zugegeben, je kürzer desto weniger zu analysieren.
Daher finde ich deine Längenunterschied hervorragend und ausreichend.
Wenn es nicht darum geht, "etwas kürzes" zu haben, aber algorythmisch gesehen etwas stabiles, wäre folgendes leichter zu verallgemeinen:

Sub GegebeneZeichen_zählen 
Dim Zähler as Integer
    For i = 1 to Len(ActiveCell.Text) 
        If Mid(ActiveCell.Text, i,1) = " " Then Zähler = Zähler + 1
    Next
    MsgBox "Es wurden " & Zähler & " Leerzeichen gefunden."
End Sub

Es ist nicht kurzgeschrieben, aber im Sinne von CPU-Verarbeitung, ist es am schnellsten (besser oder nicht?)
Gleichzeitig schliesse ich mich die sehr kreative Lösungen von Gerd und Daniel, falls Du daraus etwas entnehmen kannst, um dein Wissen aufzustocken, mit einer ein Bischen kürzere Lösung, aber nicht so leicht zu verstehen:

Sub GegebeneZeichen_zählen 
Dim Zähler as Integer
    For i = 1 to Len(ActiveCell.Text) 
        Zähler = Zähler - (Mid(ActiveCell.Text, i,1) = " ")
    Next
    MsgBox "Es wurden " & Zähler & " Leerzeichen gefunden."
End Sub

Liegt daran, False in einem Integer 0 und True in einem Integer -1 konvertiert werden.

VG
Yal

In der Tat.
Vergleicht man die beide Version, kommt man sogar auf ca 75 mal schneller.
Man muss erst die Aufgabe 10.000 durchlaufen lassen, sodass die Zeiten aussagekräftig sind. Da viel Nebenrechnung auf dem Rechner stattfinden, empfieht es sich mehrere Laufe zu machen und eine Durchschnitt zu rechen.

Sub GegebeneZeichen_zählen()
Dim Zähler As Integer
Dim i&, j&, k& '&: Long
Dim s As String
Dim T, T1, T2
Dim Durchschnitt As Double
Const f = "0.00000"
    For k = 1 To 10
    'Version Variable
        T = Timer
        s = Range("A1").Text
        For j = 1 To 10000
            Zähler = 0
            For i = 1 To Len(s)
                If Mid(s, i, 1) = " " Then Zähler = Zähler + 1
            Next i
        Next j
        T1 = Timer - T
    'Version Zelle
        T = Timer
        For j = 1 To 10000
            Zähler = 0
            For i = 1 To Len(Range("A1").Text)
                If Mid(Range("A1").Text, i, 1) = " " Then Zähler = Zähler + 1
            Next i
        Next j
        T2 = Timer - T
        Debug.Print Format(T1, f), Format(T2, f), Format(T2 / T1, f)
        Durchschnitt = Durchschnitt + T2 / T1
    Next k
    Debug.Print Durchschnitt / 10
End Sub

Aber jetzt wissen wir es genau.
VG
Yal

Code für Anzahl Leerzeichen in Zelle

Forumthread: Code für Anzahl Leerzeichen in Zelle

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Code für Anzahl Leerzeichen in Zelle

Forumthread: Code für Anzahl Leerzeichen in Zelle

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread