Buchstaben aus Buchstaben-/Zahlenkombi löschen

04/03/2008 - 13:49 von Harald | Report spam
Hallo Zusammen,

ich habe eine Spalte mit Buchstaben und Zahlen. Hier ein Beispiel:

F33S
J90FH
SL250C
B90F
EM240ABC

Die Spalte soll so lange durchsucht werden, bis kein Eintrag mehr
kommt (also bis zum Ende).
Alle Buchstaben, die rechts von einer Zahl stehen sollen gelöscht
werden, so dass nachher folgende Werte übrig bleiben würden (gem.
Beispiel):

F33
J90
SL250
B90
EM240

Kann mir jemand einen VBA-Code hierfür nennen?

VIELEN DANK im Voraus.

Beste Grüße

Harald
 

Lesen sie die antworten

#1 Bernd P
04/03/2008 - 14:19 | Warnen spam
Hallo Harald,

Du kannst die entsprechende Spalte auswàhlen und dann dieses Makro
laufen lassen:

Sub drfn()
'Delete all characters to the right from last number
'in selection
Dim v, i As Long
For Each v In Selection
i = Len(v)
Do While i > 0
Select Case Mid(v, i, 1)
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
Exit Do
End Select
i = i - 1
Loop
If i > 0 Then v.Formula = Left(v, i)
Next v
End Sub

Viele Grüße,
Bernd

Ähnliche fragen