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

Einzelne Zeichen löschen

Einzelne Zeichen löschen
25.12.2006 13:50:23
Johannes
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Zeichen löschen
25.12.2006 14:25:51
Gert
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
 AB
108  
109ABN 123456 123456
110BSP: 282496848 282496848
111aus < 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!
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Gruß HermannZ
Anzeige
AW: Einzelne Zeichen löschen
25.12.2006 15:10:51
Johannes
ich wollte es gerne in ein Makro packen...
AW: Einzelne Zeichen löschen
25.12.2006 16:59:52
HermannZ
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige