Einzelne Zeichen löschen

• Einzelne Zeichen löschen von Johannes Rudolph vom 25.12.2006 13:50:23
• AW: Einzelne Zeichen löschen - von Gert Seler am 25.12.2006 14:25:51
  • AW: Einzelne Zeichen löschen - von Johannes Rudolph am 25.12.2006 14:58:50
    • AW: Einzelne Zeichen löschen - von HermannZ am 25.12.2006 15:07:14
      • AW: Einzelne Zeichen löschen - von Johannes Rudolph am 25.12.2006 15:10:51
        • AW: Einzelne Zeichen löschen - von HermannZ am 25.12.2006 16:59:52

Betrifft: Einzelne Zeichen löschen
von: Johannes Rudolph

Geschrieben am: 25.12.2006 13:50:23
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

Betrifft: AW: Einzelne Zeichen löschen
von: Gert Seler
Geschrieben am: 25.12.2006 14:25:51
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

Betrifft: AW: Einzelne Zeichen löschen
von: Johannes Rudolph
Geschrieben am: 25.12.2006 14:58:50
Sorry
aus < UID>282496848< /UID>
Soll 282496848 werden

Betrifft: AW: Einzelne Zeichen löschen
von: HermannZ

Geschrieben am: 25.12.2006 15:07:14
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!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Gruß HermannZ

Betrifft: AW: Einzelne Zeichen löschen
von: Johannes Rudolph
Geschrieben am: 25.12.2006 15:10:51
ich wollte es gerne in ein Makro packen...

Betrifft: AW: Einzelne Zeichen löschen
von: HermannZ

Geschrieben am: 25.12.2006 16:59:52
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

Excel-Beispiele zum Thema "Einzelne Zeichen löschen"
Einzelnes Tabellenblatt speichern	Summe einzelner Zellwerte ermitteln
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen	Einzelnes Tabellenblatt unter Tagesdatum speichern
Positionen einzelner Zeichen in langer Zeichenfolge auslesen	Sicherheitskopie einzelner Arbeitsblätter
Summe bilden, wenn Kriterium Zeichenfolge	Leerzeichen aus einem Bereich löschen
Anfügen des Zeichens für Durchmesser	Zeichenfolge aufteilen