Zweites Zeichen von rechts?

31/12/2010 - 11:12 von Peter Schuerer | Report spam
Hallo Zusammen,

XL2002.

Ich habe in Spalte G Text wie "TFT-WS HD T.3 " oder "HDT 456 DP "
stehen. Jeder Eintrag endet mit einem Leerzeichen. Es soll per VBA
geprüft werden, ob das zweite Zeichen von rechts eine Zahl ist und wenn
ja diese Zahl in Spalte I gleiche Zeile eingetragen werden.
Wie kann man das lösen? Ich kriege es nicht hin.

Ich wünsche allen Helfenden und Lesenden einen Guten Rutsch ins neue Jahr.
Peter
 

Lesen sie die antworten

#1 Andreas Killer
31/12/2010 - 11:23 | Warnen spam
Am 31.12.2010 11:12, schrieb Peter Schuerer:

Ich habe in Spalte G Text wie "TFT-WS HD T.3 " oder "HDT 456 DP " stehen. Jeder Eintrag endet mit einem Leerzeichen. Es
soll per VBA geprüft werden, ob das zweite Zeichen von rechts eine Zahl ist und wenn ja diese Zahl in Spalte I gleiche
Zeile eingetragen werden.



Sub Test()
Dim R As Range, C As Range, Value As Variant
Set R = Range(Range("G1"), Range("G" & Rows.Count).End(xlUp))
For Each C In R
Value = Mid$(C, Len(C) - 1, 1)
If IsNumeric(Value) Then Range("I" & C.Row) = Value
Next
End Sub

Ähnliche fragen