Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nachfolgende Null entfernen

Nachfolgende Null entfernen
19.06.2006 09: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
Anzeige
AW: Nachfolgende Null entfernen
19.06.2006 09: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 10:13:36
Roland
Besten Dank für die Hilfe, so funktionert es!
Gruß
Roland
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige