Office: Anzahl Stellen in variable übergeben

Hallo zusammen,

meine aktive Zelle ist c1. Ich möchte jetzt die Anzahl der Stellen einer Zahl in A1 ermitteln und als variable k ausgeben.

Also wenn in A1 der Wert 125 steht, soll k = 3 ergebn.

Kann mir einer weiterhelfen?

Danke!

:)

 

Mit diser Formel:

=LÄNGE(TEXT(A1;"@"))

geht das.

Mit TEXT(A1;"@") wird der Inhalt von A1n einen Text umgewandelt.

 

Hallo,

Ich brauche das ganez als vba code. Das Ergebnis muss in eine variable übergeben werden und nicht die aktive Zelle soll ausgelesen werden sondern die Zelle 2 spalten links davon.

Danke

 

HAllo

Schau es dir mal an:
Option Explicit

Sub machs()
Dim K As Integer
Dim Zelle As Range
Set Zelle = ActiveCell.Offset(0, -2)
If IsNumeric(Zelle.Value) Then
K = Len(Zelle.Value)
Else:
MsgBox "Zelle enthält keine Zahl"
End If
MsgBox K
End Sub


ransi

 

Können Sie hier etwas mit?

Code: