Buchstaben entfernen

Forumthread: Buchstaben entfernen

05.05.2006 10:52:25

Andre´

Hallo alle zusammen,
ich habe im Bereich J1:K3000 immer erneut Daten stehen die bearbeitet werden müssen.
In den Zellen sollen immer Zahlen stehen. Es kann passieren, dass an erster Stelle ein Buchstabe steht. Da dies oft der Fall ist, möchte ich gern mit einem Makro erreichen, dass der Buchstabe entfernt wird und nur noch die Zahl vorhanden ist.
Hier ein Bsp.:
Q155
so sollte es dann aussehen:
155
Hat jemand eine Idee.
Danke im voraus!
Andre

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Buchstaben entfernen

05.05.2006 10:58:06

Matthias
AW: Buchstaben entfernen

05.05.2006 11:45:43

Andre´

AW: Buchstaben entfernen

05.05.2006 10:58:06

Matthias

Hallo Andre,
z.B.


Sub Zahlen()
Dim z As Range, rng As Range
For Each z In Range("J1:K3000")
If z <> "" And Not IsNumeric(Left(z, 1)) Then
z = Mid(z, 2)
End If
Next z
End Sub

Gruß Matthias

AW: Buchstaben entfernen

05.05.2006 11:45:43

Andre´

Hallo Matthias,
vielen DANK es funktioniert prima!
MFG
Andre

Forumthread: Buchstaben entfernen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread