Hallo ich möchte gerne das in einer Zelle bestimmte Zeichen gelöscht werden, wenn diese denn vorhanden sind
BSP: Aus 282496848
Soll 282496848 werden
Die Anzahl der Zahlen variert
Hallo Johannes,
die Glaskugel wurde mir vor 2Jahren in der Eifel gestohlen.
ergo : ich weiß nicht was soll es bedeuten....
Worin unterscheiden sich die 2 abgebildeten Zahlen ?
Fröhliche Weihnachten !
mfg
Gert
AW: Einzelne Zeichen löschen
25.12.2006 14:58:50
Johannes
Sorry
aus 282496848
Soll 282496848 werden
AW: Einzelne Zeichen löschen
25.12.2006 15:07:14
HermannZ
hallo Rudolph;
suchst du sowas?
beispiel;
Versuch
A
B
108
109
ABN 123456
123456
110
BSP: 282496848
282496848
111
aus < UID>282496848< /UID>
282496848
112
Formeln der Tabelle
B109 : {=RECHTS(A109;SUMME(--(ISTZAHL(RECHTS(A109;SPALTE(1:1))*1))))}
B110 : {=RECHTS(A110;SUMME(--(ISTZAHL(RECHTS(A110;SPALTE(1:1))*1))))}
B111 : {=TEIL(LINKS(A111;MAX(WENN(ISTZAHL(TEIL(A111;SPALTE($1:$1);1)*1);SPALTE(59:59))));MIN(WENN(ISTZAHL(TEIL(A111;SPALTE($1:$1);1)*1);SPALTE($1:$1)));55)} Enthält Matrixformel: Umrandende { } nicht miteingeben, sondern Formel mit STRG+SHIFT+RETURN abschließen!
Hallo Rudolph;
wenn du es mit einer Funktion machen möchtest dann so;
Function TrennZahl(str As String) As Double
Dim strTemp As String
Dim i As Integer
For i = 1 To Len(str)
If InStr("0123456789", Mid(str, i, 1)) Then
strTemp = strTemp & Mid(str, i, 1)
End If
Next i
TrennZahl = Val(strTemp)
End Function
in ein Modul kopieren.
Gruß HermannZ