VBA EXCEL - Zellinhalt formatieren und ausgeben

Question

Hallo Zusammen,

ich hab ein Problem mit excel vba programmierung.

ich habe in einer spalte einige, ab zelle D2 bis ende datensatz, verschiendene alpha nummerische Zeichen. bsp. 0.65mm². ich brauche einen vba code, der diese zelle ausliest, von rechts an und bis zur ersten zahl den rest abschneidet. aber in genau dieser zelle D2. dann auch wiedergibt. ergebnis sollte so aussehen 0.65. es darf nicht nur auf mm² zurückgegriffen werden, da es noch weitere, verschiedene Buchstaben anhaften können.
Ich verzweifel langsam, da ich schon vieles versucht habe, es aber nicht schaffe. Für jede Hilfe wäre ich echt dankbar

Answer 1

Hallo Derby,

hilft Dir dieser Ansatz?

Linksklick in die relevante Zelle schneidet die Dimension ab.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strAlt As String, strNeu As String, intI As Integer
strAlt = Target.Value
For intI = 1 To Len(strAlt)
If Asc(Mid(strAlt, intI, 1)) >= 46 And Asc(Mid(strAlt, intI, 1)) <= 57 Then
strNeu = strNeu & Mid(strAlt, intI, 1)
Else
Exit For
End If
Next
Target.Value = Val(strNeu)
End Sub

Gruß
Rainer

Answer 2

Hallo Rainer,

die Idee mit dem <= werde ich gleich mal ausprobieren. ansonsten sieht es leider wie eine der vielen verschiedenen Varianten aus, die ich schon ausprobiert habe.
Aber schon mal Danke dafür das du dir die Mühe gemacht hast.

Gruß
Derby