Office: Punkte in Zelle zählen

Hallo zusammen,

ich habe in einem Excel Reiter eine Liste mit Werten, je nach dem wie viele "." in der Zelle sind handelt es sich um eine bestimmte Gruppe.

Die Werte in der Liste können wie folgt aussehen:

C1: X100
C2: X200.1A1
C3: X3.3000.1

Ich wollte über die Anzahl der Punkte (via VBA) die entsprechende Gruppe dem Wert zuordnen, mir fehlt jedoch ein Denkanstoß...

Danke viele Grüße & bleibt gesund!

:)

 

Hallo,

wozu VBA, geht doch einfach mit Formel:
Code:

Kann natürlich auf gleiche Weise in VBA umgesetzt werden.

 

Hallo,

weil es Teil eines größeren Makros ist.

 

Habe folgenden Code im Netz gefunden, verstehe jedoch "UBound" nicht auch nach der Erklärung auf der MS Seite...

Sub Test()
Dim s, d As String
s = "X1.100.A"
d = UBound(Split(s, "."))
End Sub

 

Moin!
Ein Variant-Array ist (ohne zusätzliche Deklarierung) nullbasiert.
Split teilt in drei Teile (0, 1 und 2; "X1", "100" und "A").
Daher ist die Obergrenze (upper bound, UBound) halt 2.

Gruß Ralf

 

Wieso setzt du die Formel nicht einfach mittels Schleife im Makro um, wie geschrieben?

 

Hallo Klavier3,

in deinem kleine Code-Schnipsel sind gleich mehrere Fehler enthalten
und dann auch noch Sourcecode verwenden, den du jetzt noch nicht verstehst?
Warum aufwendig mit Variant-Arrays und Array-Funktionen hantieren, wenn einfachste Stringfunktionen ausreichen? *rolleyes.gif*

Besser:
die Excel-Formel von Berni läßt sich direkt in VBA umsetzen und dann in ein Makro einbauen. Das ist elegant einfach, ressourcenschonend und schnell.

Gruß Ulrich

 

Hallo Klavier3,
das würde ich einfach so lösen.
Gruß E.GO

Code:

 

\@E.GO

wass glaubst Du, welchen Datentyp hat die Variable ANZ in Deinem Code ?

Code:

 

Hallo Scorefun,
ANZ Variant, i integer

sonst
Dim ANZ%, i% '= beide integer

Gruß E.GO