Nachfolgende Null entfernen

Forumthread: Nachfolgende Null entfernen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Nachfolgende Null entfernen

19.06.2006 11:28:32

roland

Hallo,
ich hab mal ein kleines Problem:
in einer Tabelle sind in Spalte A die Telefonvorwahlen eingetragen, jedoch mit Nullen auf 5-Stellen recht aufgefüllt.
A1: 08900
A2: 09110
A3: 71100
A4: 08080
Wie kann ich die rechten Nullen entfernen, sodaß die Spalte B so aussieht:
B1: 089
B2: 0911
B3: 711
B4: 0808
Beste Grüsse
Roland

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Nachfolgende Null entfernen

19.06.2006 11:59:13

Harald
AW: Nachfolgende Null entfernen

19.06.2006 12:13:36

Roland

AW: Nachfolgende Null entfernen

19.06.2006 11:59:13

Harald

Quick and dirtxy:


Sub test()
Const MAXzeile = 1000
Dim i As Integer
For i = 1 To MAXzeile
If Cells(i, 1) <> 0 Then
Do
Cells(i, 1) = Cells(i, 1) / 10
Loop Until Cells(i, 1) <> Int(Cells(i, 1))
Cells(i, 1) = Cells(i, 1) * 10
End If
Next i
End Sub

Gruß Harald

AW: Nachfolgende Null entfernen

19.06.2006 12:13:36

Roland

Besten Dank für die Hilfe, so funktionert es!
Gruß
Roland