Nummern nicht anzeigen - mit VBA
17.08.2010 12:13:51
Erich
Hi zusammen,
wie wäre es damit:
| A | B |
1 | abcd234 | abcd |
2 | abcd-234 | abcd |
3 | abcd -234 | abcd |
4 | abcd- 234 | abcd- |
5 | abcd- -234 | abcd- |
6 | abcd --234 | abcd - |
7 | 234 | |
Formeln der Tabelle |
Zelle | Formel | B1 | =MakeBeauty2(A1) | B7 | =MakeBeauty2(A7) |
|
Und hier der Code dazu:
Function MakeBeauty2(varX As Variant) As String
Dim ii As Long, pp As Long, zz As Long
Dim strMB As String
If IsEmpty(varX) Then Exit Function
strMB = CStr(varX)
zz = Len(strMB) + 1
For ii = 0 To 9
pp = InStr(strMB, CStr(ii))
If pp > 0 Then zz = Application.Min(zz, pp)
Next ii
If zz > 1 Then _
If Mid(strMB, zz - 1, 1) = "-" Then zz = zz - 1
MakeBeauty2 = Left(strMB, zz - 1)
End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort