Herbers Excel-Forum - das Archiv

Einzelne Zeichen löschen

Bild

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
Bild

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
Bild

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
Bild

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

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

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...
Bild

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
 Bild
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