Office: Letztes Zeichen löschen wenn es ein Buchstabe ist (alle von A-Z)

Hallo zusammen,
ich möchte in einer Zelle das letzte Zeichen löschen wenn es ein Buchstabe ist.
Egal welcher es ist und egal ob groß oder klein geschrieben. Wie ich einen bestimmten
Buchstaben lösche habe ich schon geschafft, aber nicht von A - Z.
Danke für eure Hilfe.

 

Moin!
Streng nach der (dünnen) Beschreibung:

	A	B
1	17a	17
2	as2	as2
3	154ö	154
4	547R	547

Zelle	Formel
B1	=WENN(ISTFEHL(--RECHTS(A1));LINKS(A1;LÄNGE(A1)-1);A1)

Gruß Ralf

 

Hallo,

folgende Formel entfernt das rechte Zeichen nur dann, wenn es tatsächlich ein Groß/Klein-Buchstabe ist (im Sinne des deutschen Alphabets):
=LINKS(A1; LÄNGE(A1) - (WENNFEHLER(SUCHEN(RECHTS(A1); "ABCDEFGHIJKLMNOPQRSTUVWXYZßÄÖÜ"); 0) > 0))
Ziffern und alle anderen Zeichen werden ignoriert.

 

Hallo Ralf
Du bist der BESTE !
Funktioniert, trotz meiner dünnen Beschreibung.
Kannst du mir erklären was die beiden -- bei (--RECHTS(A1).... bedeuten?
Vielen Dank im voraus.
LG

 

Anton ist auch der Beste!
Zu Deiner Frage:
mit -- versuche ich, aus der letzten Ziffer eine Zahl zu machen.
=--"9" ergibt 9
Ich hätte auch *1 -0 ^1 +0 oder /1 nehmen können.
=--"Z" läuft in einen Fehler <> #NV! weshalb ich per ISTFEHL auf den WAHR-Teil der Formel verzweige und so die letzte Stelle entferne.

 

Hallo Exl121150
SUPER!
Entfernt wirklich nur die Zeichen die angegeben sind.
LG

 

ICH DANKE DIR.
Meine nächste Frage werde ich besser beschreiben.
LG und schöne Feiertage

 

Sorry, vergessen
Ich wünsche dir schöne Feiertage
LG

 

Hallo,

eine weitere Alternative gäbe es, wenn du dich vor dem Einsatz von VBA nicht scheust:
In ein allgemeines VBA-Codemodul folgende benutzerdef. VBA-Funktion speichern/kopieren:

Code:

Function RegExReplace(S As String, Maske As String, Ersatz As String) As String
 
   With CreateObject("VBScript.RegExp")
      .Pattern = Maske
      .IgnoreCase = True
      RegExReplace = .Replace(S, Ersatz)
   End With
 
End Function

dann könnte man durch folgende Formel das Problem lösen:
=RegExReplace(A1;"[A-ZßÄÖÜ]$";"")

 

Ein wenig off topic:
Da sehr viele der neuen Excel-Funktionen zuerst in Google-Sheets erschienen sind …
… bin ich mir sehr sicher, REGEXREPLACE() bald auch in Excel zu finden.
Google-Sheets: =REGEXREPLACE(A1;"[a-zA-ZäöüßÄÖÜ]$";"")

Gruß Ralf

 

LibreOffice-Calc:
=REGAUS(A1;"[A-Zßa-zÄÖÜäöü]$";"")

 

Hi,

wenn tatsächlich nur Buchstaben und Ziffern an letzter Stelle vorkommen und keinerlei andere Zeichen, kann man es auch mit folgender primitiven Formel lösen:

Tabelle1

	A	B
1	17a	17
2	ad8	ad8
3	15Ä	15
4	27ü	27
5	df456	df456

verwendete Formeln
Zelle	Formel	Bereich	N/A
B1:B5	=WENN(ISTFEHLER(RECHTS(A1;1)*1);LINKS(A1;LÄNGE(A1)-1);A1)

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.24 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

---

 

Hallo,
VBA ist leider, und ich betone das leider, zu hoch für mich.
Excel fasziniert mich total, aber leider nur auf der Ebene von "normalen" Formeln.
Darf ich so unverschämt sein und dein Wissen nochmal für mich zu nutzen?
Die Formel die du mir gemacht hast funktioniert perfekt. Wie könnte ich alle Buchstaben
nach der letzten Ziffer entfernen?
Beispiel: 362A56c sollte zu 362A56 werden - die letzte Ziffer ist 6 und c sollte verschwinden
Beispiel: aB45154BGC sollte zu aB45154 werden - die letzte Ziffer ist 4 und BGC sollte verschwinden.
Beispiel: A654_H sollte zu A654_ werden - die letzte Ziffer ist 4 und das Sonderzeichen sollte behalten werden, nur H sollte verschwinden.
Wenn du mir da eine normale Formel erstellen könntest, wäre dir ein Platz im Himmel sicher.
Vielen Dank für deine Zeit und deine Mühe.
LG

 

… die ich ja extrem ähnlich gleich in #2 genannt habe, Karin.

Welche Excel-Version hast Du?

Der Himmel kann warten!

 

Moin,

diese Formel sollte in allen Excel-Versionen ab XL2007 laufen:

=LINKS(A1;MAX(ISTFEHL(SUCHEN(TEIL(A1;ZEILE($1:$99);1);"ABCDEFGHIJKLMNOPQRSTUVWXYZßÄÖÜ"))*ZEILE($1:$99)))

In älteren Excel-Versionen muss diese Matrix-Formel dann allerdings mit Strg+Shift+Enter eingegeben werden.