Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Zeichen löschen

bestimmte Zeichen löschen
Karsten
Hallo...
in folgendem Beispiel möchte ich bestimmte Zeichen löschen. D.h: die, die keine "richtigen Buchstaben" sind.
https://www.herber.de/bbs/user/69042.xls
Kann mir jemand mit einer entsprechenden Methode weiterhelfen?
Gruß
Karsten

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: bestimmte Zeichen löschen
13.04.2010 11:50:16
Tino
Hallo,
teste mal diesen Code.
Sub Nur_Text()
Dim Regex As Object
Dim meAr(), strInhalt$
Dim nCount&, lngMaxRow&


With Sheets("Tabelle1") 'Tabelle anpassen 
    lngMaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    
    If lngMaxRow = 1 Then
        meAr = .Range("A1", .Cells(lngMaxRow, 1)).Resize(, 2).Value2
        Redim Preserve meAr(1 To Ubound(meAr), 1 To 1)
    Else
        meAr = .Range("A1", .Cells(lngMaxRow, 1)).Value2
    End If
    
    Set Regex = CreateObject("Vbscript.Regexp")
    
    With Regex
      .MultiLine = True
      .Global = True
    
        For nCount = 1 To Ubound(meAr)
            .Pattern = "\W|\d"
            meAr(nCount, 1) = .Replace(meAr(nCount, 1), " ")
            
            .Pattern = " +"
            meAr(nCount, 1) = .Replace(meAr(nCount, 1), " ")
            
            .Pattern = "^ | $"
            meAr(nCount, 1) = .Replace(meAr(nCount, 1), "")
        Next nCount
    
    End With

    .Range("A1").Resize(Ubound(meAr)) = meAr

End With

End Sub
Gruß Tino
Anzeige
, strInhalt$ kann gelöscht werden...
13.04.2010 11:53:23
Tino
Hallo,
, strInhalt$ war zum testen eingebaut, kann gelöscht werden.
Gruß Tino
AW: bestimmte Zeichen löschen
13.04.2010 12:08:21
Karsten
Hallo Tino,
abgesehen von ein paar Schönheitsfehlern im Ergebnis funktioniert dein Makro spitze.
Falls du ihn noch verbessern könntest / willst:
- Vorher müßte alles nach dem Punkt gelöscht werden, da es da noch "richtige" Zeichen gibt, die nicht gebraucht werden.
- Der "." sowohl "ä,ü,ö,ß" und ? sollten erhalten bleiben.
Aber, trotzdessen. Es bringt mir schon wesentlich mehr Ordnung in die Sache.
Danke.
Gruß
Karsten
hmmmm.....
13.04.2010 12:19:20
Oberschlumpf
Hi Karsten
....wer eine qualifizierte Antwort erwartet, sollte, nein, MUSS eine qualifizierte Frage stellen...
Warum schreibst du nicht gleich in deinem Eingangsthread das, was du jetzt noch willst?
Ciao
Thorsten
Anzeige
teste mal diesen Code.
14.04.2010 08:37:55
Tino
Hallo,
bin gestern nicht mehr dazu gekommen.
Sub Nur_Text()
Dim Regex As Object
Dim meAr(), strInhalt$
Dim nCount&, lngMaxRow&
Dim oMatch As Object

With Sheets("Tabelle1") 'Tabelle anpassen 
    lngMaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    
    If lngMaxRow = 1 Then
        meAr = .Range("A1", .Cells(lngMaxRow, 1)).Resize(, 2).Value2
        Redim Preserve meAr(1 To Ubound(meAr), 1 To 1)
    Else
        meAr = .Range("A1", .Cells(lngMaxRow, 1)).Value2
    End If
    
    Set Regex = CreateObject("Vbscript.Regexp")
    
    With Regex
      .MultiLine = True
      .Global = True
    
        For nCount = 1 To Ubound(meAr)
            
            .Pattern = "[.!?]"
            Set oMatch = .Execute(meAr(nCount, 1))
            For Each oMatch In oMatch
                meAr(nCount, 1) = Left$(meAr(nCount, 1), oMatch.FirstIndex + 1)
                Exit For
            Next oMatch
            
            .Pattern = "[^A-Za-z .!?,äüöß]"
            meAr(nCount, 1) = .Replace(meAr(nCount, 1), " ")
            
            .Pattern = " +"
            meAr(nCount, 1) = .Replace(meAr(nCount, 1), " ")
            
            .Pattern = "^ | $"
            meAr(nCount, 1) = .Replace(meAr(nCount, 1), "")
        
        Next nCount
    
    End With

    .Range("A1").Resize(Ubound(meAr)) = meAr

End With

End Sub
Gruß Tino
Anzeige
AW: bestimmte Zeichen löschen
13.04.2010 11:56:50
Oberschlumpf
Moin Karsten
Versuch es mal mit dieser Datei:
https://www.herber.de/bbs/user/69044.xls
Die erste Schleife 

For liRow =...
durchläuft Spalte A bis zur letzten, benutzen Zeile, weil ja deine Daten in Spalte A stehen.
Die zweite Schleife 

For liChar =...
überprüft jedes einzelne Zeichen der Einträge in Spalte A.
Sollte ein Zeichen kein Groß- oder Kleinbuchstabe sein, wird dieses Zeichen gegen ein Leerzeichen getauscht.
Wenn die zweite Schleife also durchgelaufen ist, gibt es sehr viele Leerzeichen in den Einträgen.
Mit der Schleife 

Do Until...
werden so lange 2 nebeneinander stehende Leerzeichen durch nur 1 Leerzeichen ersetzt, bis es keine 2 nebeneinander stehende Leerzeichen mehr gibt.
Das kann aber bedeuten, dass in den Einträgen noch jeweils ein Leerzeichen ganz am Anfang und/oder ein Leerzeichen am Ende des Eintrages steht.
Mit der Zeile 

Cells(liRow, 1).Value = Trim(Cells(liRow, 1).Value)
werden auch diese Leerzeichen eliminiert, so dass wirklich nur die Buchstaben übrig bleiben.
Hilfts?
Ciao
Thorsten
Anzeige
AW: bestimmte Zeichen löschen
13.04.2010 11:59:32
David
Hallo Karsten,
zum Beispiel so:
Tabelle1
 AB
3ƈ]/ó·€Mæ¿~>ç· 0 …#WERT!
4çSie sahen zu, wie die Sonne unterging.' …Sie sahen zu, wie die Sonne unterging.
5çThey watched the sun setting.0 „They watched the sun setting.
6çThey watched the sun setting.0 „They watched the sun setting.
7çSie sorgte für das Baby, während die Eltern weg waren.A Sie sorgte für das Baby, während die Eltern weg waren.
8çShe &took care of& the baby while the parents were out.' She &took care of& the baby while the parents were out.
9ç&Take care& or you will fall.5 &Take care& or you will fall.
10çEin Lächeln lag auf dem Gesicht des Kindes.2 ~Ein Lächeln lag auf dem Gesicht des Kindes.
11çThere was a &smile& on the child's face.3 ~There was a &smile& on the child's face.
12çIhr Hund ist ein Schutz gegen Einbrecher.7 }Ihr Hund ist ein Schutz gegen Einbrecher.
13çTheir dog is a &protection& against burglars.< }Their dog is a &protection& against burglars.
14çMan kann ein Kind nicht vor jeder Gefahr schützen.< }Man kann ein Kind nicht vor jeder Gefahr schützen.
15çYou cannot &protect& a child against every danger.. |You cannot &protect& a child against every danger.
16çPaß auf (auf das), was ich dir sage!+ |Paß auf (auf das), was ich dir sage!
17çPay attention to what I tell you.> {Pay attention to what I tell you.
18çIhr Mann merkte nicht, daß sie ein neues Kleid trug.G {Ihr Mann merkte nicht, daß sie ein neues Kleid trug.
19çHer husband didn't &notice& that she was wearing a new dress.E {Her husband didn't &notice& that she was wearing a new dress.
20çIch vermißte meinen Geldbeutel erst, als ich zahlen wollte.8 zIch vermißte meinen Geldbeutel erst, als ich zahlen wollte.
21çI only &missed& my purse when I wanted to pay.> zI only &missed& my purse when I wanted to pay.
22çEine Kapelle wurde zum Andenken an den König gebaut.3 zEine Kapelle wurde zum Andenken an den König gebaut.
23çA chapel was built in memory of the king.2 zA chapel was built in memory of the king.
24çSie hat keine Erinnerung an ihren Vater., ySie hat keine Erinnerung an ihren Vater.
25çShe has no &memory& of her father.8 yShe has no &memory& of her father.
26çKönnen wir ihm in dieser Angelegenheit helfen?+ yKönnen wir ihm in dieser Angelegenheit helfen?
27çCan we help him in this &matter&?, yCan we help him in this &matter&?
28çEr redete sehr freundlich mit uns.4 yEr redete sehr freundlich mit uns.
29çHe talked to us in a very friendly manner.C yHe talked to us in a very friendly manner.
30çDie Art, wie sie sich kleidet, zeugt von gutem Geschmack.4 xDie Art, wie sie sich kleidet, zeugt von gutem Geschmack.
31çHer &manner& of dressing shows good taste.- xHer &manner& of dressing shows good taste.
32çEr ging sehr früh von zu Hause weg.9 wEr ging sehr früh von zu Hause weg.
33çEr versteckte den Brief in seinem Schreibtisch.* wEr versteckte den Brief in seinem Schreibtisch.
34çHe &hid& the letter in his desk.A vHe &hid& the letter in his desk.
35çEltern können ihre Kinder nicht vor Krankheit schützen.@ vEltern können ihre Kinder nicht vor Krankheit schützen.
36çParents cannot &guard& their children against disease.. vParents cannot &guard& their children against disease.
37çVergiß nicht, das Licht auszumachen.. uVergiß nicht, das Licht auszumachen.
38çDon't &forget& to put out the light. ¤ í ê ¤Q´c8é›mЄ5ЁR¦=ï¡R̒Z Don't &forget& to put out the light.

verwendete Formeln
Zelle Formel
B3 =LINKS(TEIL(A3;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A3;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A3;3;999)));FINDEN("!";TEIL(A3;3;999));FINDEN("?";TEIL(A3;3;999)));FINDEN(".";TEIL(A3;3;999))))
B4 =LINKS(TEIL(A4;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A4;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A4;3;999)));FINDEN("!";TEIL(A4;3;999));FINDEN("?";TEIL(A4;3;999)));FINDEN(".";TEIL(A4;3;999))))
B5 =LINKS(TEIL(A5;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A5;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A5;3;999)));FINDEN("!";TEIL(A5;3;999));FINDEN("?";TEIL(A5;3;999)));FINDEN(".";TEIL(A5;3;999))))
B6 =LINKS(TEIL(A6;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A6;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A6;3;999)));FINDEN("!";TEIL(A6;3;999));FINDEN("?";TEIL(A6;3;999)));FINDEN(".";TEIL(A6;3;999))))
B7 =LINKS(TEIL(A7;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A7;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A7;3;999)));FINDEN("!";TEIL(A7;3;999));FINDEN("?";TEIL(A7;3;999)));FINDEN(".";TEIL(A7;3;999))))
B8 =LINKS(TEIL(A8;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A8;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A8;3;999)));FINDEN("!";TEIL(A8;3;999));FINDEN("?";TEIL(A8;3;999)));FINDEN(".";TEIL(A8;3;999))))
B9 =LINKS(TEIL(A9;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A9;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A9;3;999)));FINDEN("!";TEIL(A9;3;999));FINDEN("?";TEIL(A9;3;999)));FINDEN(".";TEIL(A9;3;999))))
B10 =LINKS(TEIL(A10;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A10;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A10;3;999)));FINDEN("!";TEIL(A10;3;999));FINDEN("?";TEIL(A10;3;999)));FINDEN(".";TEIL(A10;3;999))))
B11 =LINKS(TEIL(A11;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A11;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A11;3;999)));FINDEN("!";TEIL(A11;3;999));FINDEN("?";TEIL(A11;3;999)));FINDEN(".";TEIL(A11;3;999))))
B12 =LINKS(TEIL(A12;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A12;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A12;3;999)));FINDEN("!";TEIL(A12;3;999));FINDEN("?";TEIL(A12;3;999)));FINDEN(".";TEIL(A12;3;999))))
B13 =LINKS(TEIL(A13;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A13;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A13;3;999)));FINDEN("!";TEIL(A13;3;999));FINDEN("?";TEIL(A13;3;999)));FINDEN(".";TEIL(A13;3;999))))
B14 =LINKS(TEIL(A14;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A14;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A14;3;999)));FINDEN("!";TEIL(A14;3;999));FINDEN("?";TEIL(A14;3;999)));FINDEN(".";TEIL(A14;3;999))))
B15 =LINKS(TEIL(A15;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A15;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A15;3;999)));FINDEN("!";TEIL(A15;3;999));FINDEN("?";TEIL(A15;3;999)));FINDEN(".";TEIL(A15;3;999))))
B16 =LINKS(TEIL(A16;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A16;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A16;3;999)));FINDEN("!";TEIL(A16;3;999));FINDEN("?";TEIL(A16;3;999)));FINDEN(".";TEIL(A16;3;999))))
B17 =LINKS(TEIL(A17;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A17;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A17;3;999)));FINDEN("!";TEIL(A17;3;999));FINDEN("?";TEIL(A17;3;999)));FINDEN(".";TEIL(A17;3;999))))
B18 =LINKS(TEIL(A18;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A18;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A18;3;999)));FINDEN("!";TEIL(A18;3;999));FINDEN("?";TEIL(A18;3;999)));FINDEN(".";TEIL(A18;3;999))))
B19 =LINKS(TEIL(A19;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A19;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A19;3;999)));FINDEN("!";TEIL(A19;3;999));FINDEN("?";TEIL(A19;3;999)));FINDEN(".";TEIL(A19;3;999))))
B20 =LINKS(TEIL(A20;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A20;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A20;3;999)));FINDEN("!";TEIL(A20;3;999));FINDEN("?";TEIL(A20;3;999)));FINDEN(".";TEIL(A20;3;999))))
B21 =LINKS(TEIL(A21;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A21;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A21;3;999)));FINDEN("!";TEIL(A21;3;999));FINDEN("?";TEIL(A21;3;999)));FINDEN(".";TEIL(A21;3;999))))
B22 =LINKS(TEIL(A22;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A22;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A22;3;999)));FINDEN("!";TEIL(A22;3;999));FINDEN("?";TEIL(A22;3;999)));FINDEN(".";TEIL(A22;3;999))))
B23 =LINKS(TEIL(A23;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A23;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A23;3;999)));FINDEN("!";TEIL(A23;3;999));FINDEN("?";TEIL(A23;3;999)));FINDEN(".";TEIL(A23;3;999))))
B24 =LINKS(TEIL(A24;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A24;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A24;3;999)));FINDEN("!";TEIL(A24;3;999));FINDEN("?";TEIL(A24;3;999)));FINDEN(".";TEIL(A24;3;999))))
B25 =LINKS(TEIL(A25;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A25;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A25;3;999)));FINDEN("!";TEIL(A25;3;999));FINDEN("?";TEIL(A25;3;999)));FINDEN(".";TEIL(A25;3;999))))
B26 =LINKS(TEIL(A26;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A26;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A26;3;999)));FINDEN("!";TEIL(A26;3;999));FINDEN("?";TEIL(A26;3;999)));FINDEN(".";TEIL(A26;3;999))))
B27 =LINKS(TEIL(A27;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A27;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A27;3;999)));FINDEN("!";TEIL(A27;3;999));FINDEN("?";TEIL(A27;3;999)));FINDEN(".";TEIL(A27;3;999))))
B28 =LINKS(TEIL(A28;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A28;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A28;3;999)));FINDEN("!";TEIL(A28;3;999));FINDEN("?";TEIL(A28;3;999)));FINDEN(".";TEIL(A28;3;999))))
B29 =LINKS(TEIL(A29;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A29;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A29;3;999)));FINDEN("!";TEIL(A29;3;999));FINDEN("?";TEIL(A29;3;999)));FINDEN(".";TEIL(A29;3;999))))
B30 =LINKS(TEIL(A30;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A30;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A30;3;999)));FINDEN("!";TEIL(A30;3;999));FINDEN("?";TEIL(A30;3;999)));FINDEN(".";TEIL(A30;3;999))))
B31 =LINKS(TEIL(A31;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A31;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A31;3;999)));FINDEN("!";TEIL(A31;3;999));FINDEN("?";TEIL(A31;3;999)));FINDEN(".";TEIL(A31;3;999))))
B32 =LINKS(TEIL(A32;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A32;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A32;3;999)));FINDEN("!";TEIL(A32;3;999));FINDEN("?";TEIL(A32;3;999)));FINDEN(".";TEIL(A32;3;999))))
B33 =LINKS(TEIL(A33;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A33;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A33;3;999)));FINDEN("!";TEIL(A33;3;999));FINDEN("?";TEIL(A33;3;999)));FINDEN(".";TEIL(A33;3;999))))
B34 =LINKS(TEIL(A34;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A34;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A34;3;999)));FINDEN("!";TEIL(A34;3;999));FINDEN("?";TEIL(A34;3;999)));FINDEN(".";TEIL(A34;3;999))))
B35 =LINKS(TEIL(A35;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A35;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A35;3;999)));FINDEN("!";TEIL(A35;3;999));FINDEN("?";TEIL(A35;3;999)));FINDEN(".";TEIL(A35;3;999))))
B36 =LINKS(TEIL(A36;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A36;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A36;3;999)));FINDEN("!";TEIL(A36;3;999));FINDEN("?";TEIL(A36;3;999)));FINDEN(".";TEIL(A36;3;999))))
B37 =LINKS(TEIL(A37;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A37;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A37;3;999)));FINDEN("!";TEIL(A37;3;999));FINDEN("?";TEIL(A37;3;999)));FINDEN(".";TEIL(A37;3;999))))
B38 =LINKS(TEIL(A38;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A38;3;999)));WENN(ISTFEHLER(FINDEN("?";TEIL(A38;3;999)));FINDEN("!";TEIL(A38;3;999));FINDEN("?";TEIL(A38;3;999)));FINDEN(".";TEIL(A38;3;999))))

Tabellendarstellung in Foren Version 4.11


Die Zellen, in denen nur "Müll" steht, kannst du sicher manuell löschen, ansonsten könnte man noch eine WENN/DANN Abfrage darumstricken.
Anschließend könntest du noch die Hilfsspalte mit Kopieren, Inhalte einfügen-Werte auf den Datenbereich überschreiben.
Gruß
David
Anzeige
AW: bestimmte Zeichen löschen
13.04.2010 12:18:30
Karsten
Hallo David,
absolute Spitze. Danke! Es wäre, soweit ich es richtig überblicke, nur noch "&" zuviel. Habe es versuch, mit in die Formel einzubauen, aber es gelang mir nicht.
Gruß
Karsten
AW: bestimmte Zeichen löschen
13.04.2010 12:36:29
David
Hallo Karsten,
das & ist mir gar nicht aufgefallen. Kriegst du so weg:
=WECHSELN(LINKS(TEIL(A3;3;999);WENN(ISTFEHLER(FINDEN(".";TEIL(A3;3;999)));WENN(ISTFEHLER(FINDEN("?"; TEIL(A3;3;999)));FINDEN("!";TEIL(A3;3;999));FINDEN("?";TEIL(A3;3;999)));FINDEN(".";TEIL(A3;3;999)))); "&";"")
Gruß
David
AW: bestimmte Zeichen löschen
13.04.2010 12:53:21
Lena
Hallo David,
nun ist es perfekt.
Danke.
Gruß
Karsten
Anzeige
loooooooooooooooool
13.04.2010 12:57:17
Oberschlumpf
Hi Karsten, Hallo Lena (mit Karsten "unterschrieben")
hahahahhahaha
wenn man sich schon - wann auch immer - mit falschem Namen ausgibt, dann sollte man nich so blöd sein...aber ihr seht ja selbst...grins
Das ist hier der gleiche Grund, warum so...
15.04.2010 17:13:30
Luc:-?
…viele (Re)Antworter einen unpassenden Betreff beibehalten, Thorsten;
es wurde ihnen vorgegeben… !;-))
Nach dem Prinzip fktt übrigens auch der Medien-Mainstream…
Gruß Luc :-?

304 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Anzeige
Anzahl identischer Einträge in 2 Spalten ermitteln
Christian

Hallo zusammen,
ich möchte die Anzahl identischer Werte in zwei spalten ermitteln.
Die erste Spalte enthält eindeutige Werte (Artikelnummern).
Die zweite Spalte enthält eine Teilmenge der ersten Spalte (Bestimmte Artikel, die beobachtet werden sollen).
Im Übersichtsichtsbereic...
11.06.2009 14:56:03
Thread-ID: 1080747
5 Beiträge
nach @ Buchstaben und Zeichen in Spalte daneben
Thomas

Hallo Forum!
Ich hab in Spalte D viele verschiedene E-Mailadressen und möchte jeweils alles was nach dem @ kommt in die Spalte E daneben hineinkopieren. Die Teilformel nutzt mir ja nicht viel wiel die Zeichen und Buchstaben vor dem @ immer unterschiedlich sind.
Viellecht kann mir wer he...
24.06.2009 09:22:34
Thread-ID: 1084002
2 Beiträge
Zeichen in Spalte löschen
christian

Hallo
Ich möchte in einer Spalte alle Zeichen außer den Zahlen 0-9 löschen.
Hintergrund: Ich habe mit einem Texterkkennungsprogramm eine Tabelle gescannt. Leider sind dor ein paar Zeichen drin, die da nicht hingehören und die sollen weg.
Da gibt es doch bestimmt eine Lösung.
V...
14.10.2009 10:18:36
Thread-ID: 1109521
10 Beiträge
Zeichen links neben Zahl Löschen
Fenja

Hallo liebe Leute,
ich habe in einer Spalte, in der steht z. Besispiel in H3: blabla 7 blublu
Ich möchte in einer neuen Spalte rechts von H, alle Zeichen links neben der 7 gelöscht haben, so dass ab der 7 angezeigt wird.
Kann mir jemand helfen?
Lieben Dank
F.
20.11.2009 11:24:11
Thread-ID: 1118839
5 Beiträge
Anzahl Zellen in Spalte dividiern durch Zahl
edie

Hallo zusammen,
die Spalte A mit Zahlen ist variabel lang, nun hätte ich gerne, dass die Anzahl der belegten
Zellen in Spalte A dividiert wird durch die Zahl in der Zelle C1 und in die Spalte B wird einfach eine 1 bzw. 2 u.s eingetragen.
Hier das Beispiel:
Spalte A...
14.12.2009 22:22:47
Thread-ID: 1123927
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
2
4
4
4
1
9
4
8
5
7
10
11
7
3
4
2
5
9
2
1
2
3
10