Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nullen eleminieren

Nullen eleminieren
01.10.2004 12:28:41
Matthias
Hallo,
habe folgendes Problem, möchte in einem 5-stelligen String vorhergehende Nullen löschen.
00012 soll 12 werden
Kann mir jemand dabei behilflich sein ?
Vielen Dank.
Gruss
Matthias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nullen eleminieren
Reinhard
Hi Matthias,
'00015 in Zelle A1
=TEIL(A1;4;2)
oder
=RECHTS(A1;2)
Gruß
Reinhard
Zellformat?
Günther
Hallo Matthias,
schau mal ob das Zellformat 00000 lautet - dann einfach auf Zahl ohne Dezimalstellen ändern.
Sonst:
=A1*1
Günther
AW: Nullen eleminieren
Ingo
In diesem beispiel steht der string im Bereich G5;

Sub kürzen()
Dim str As String
Dim l As Integer, i As Integer
str = ActiveSheet.Range("G5").Value
l = Len(str)
For i = 1 To l
If Left(str, 1) = "0" Then str = Right(str, l - i)
If Left(str, 1) <> "0" Then GoTo Skip
Next i
Skip:
Range("G5") = str
End Sub

mfG
Ingo Christiansen
Anzeige
AW: Nullen eleminieren
Matthias
Vielen Dank für die Hilfe!
Gruss Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige