Punkt am Ende löschen

Forumthread: Punkt am Ende löschen

26.02.2003 12:11:09

Alex

Halli-Hallo,

ich habe eine Tabelle mit Text in den Zellen der Spalte A.
Ich möchte per Makro den Punkt am Textende (innerhalb der einzelnen Zellen) löschen (nur den am Textende). Wie macht man das?

Dank im voraus,
liebe Grüße Alex

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Punkt am Ende löschen

26.02.2003 12:16:29

Felix
Dankeschön!

26.02.2003 12:20:39

Alex
es geht auch per VBA

26.02.2003 13:15:38

Uwe

Re: Punkt am Ende löschen

26.02.2003 12:16:29

Felix

Hallo Alex,

ohne VBA könntest Du z.B. in der Spalte daneben folgende Formel schreiben:

=LINKS(A1;LÄNGE(A1)-1)
=LINKS(A2;LÄNGE(A2)-1)
...

Gruß, Felix

Dankeschön!

26.02.2003 12:20:39

Alex

Spitze, danke, so geht es natürlich auch... war zu sehr bei VBA,

sehr gut!

einen schönen Tag noch!

es geht auch per VBA

26.02.2003 13:15:38

Uwe

Hallo Alex,

das geht auch per VBA:

dim x as string
x = .cells(1, 1)
.cells(1, 1) = left(len(x)-1) 'z.B. für die erste Zelle

So sollte es gehen.

Uwe

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Punkt am Ende eines Textes in einer Excel-Zelle zu löschen, kannst Du zwei verschiedene Methoden verwenden: eine Formel ohne VBA und ein VBA-Makro.

Methode 1: Mit einer Formel

Gehe zu der Zelle, in der Du das Ergebnis anzeigen möchtest (z.B. B1).
Schreibe die folgende Formel:
```
=LINKS(A1;LÄNGE(A1)-1)
```
Ziehe die Formel nach unten, um sie auf die anderen Zellen in Spalte A anzuwenden.

Methode 2: Mit VBA

Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul ein (Einfügen > Modul).

Schreibe den folgenden Code:

Sub PunktAmEndeLoeschen()
   Dim x As String
   x = Cells(1, 1).Value
   Cells(1, 1).Value = Left(x, Len(x) - 1)
End Sub

Schließe den VBA-Editor und führe das Makro aus.

Häufige Fehler und Lösungen

Fehler: Die Formel gibt einen Fehler aus.
- Lösung: Stelle sicher, dass die Zelle in Spalte A tatsächlich Text enthält und nicht leer ist.
Fehler: Das Makro funktioniert nicht.
- Lösung: Überprüfe, ob Du die richtigen Zellreferenzen im VBA-Code verwendest. Stelle außerdem sicher, dass Du das Makro ausführst.

Alternative Methoden

Wenn Du den Punkt am Ende von mehreren Zellen entfernen möchtest, kannst Du auch die "Suchen und Ersetzen"-Funktion verwenden:

Markiere die Zellen, in denen Du den Punkt löschen möchtest.
Drücke STRG + H, um das "Suchen und Ersetzen"-Fenster zu öffnen.
Gib im Feld "Suchen nach" einen Punkt (.) ein und lasse das Feld "Ersetzen durch" leer.
Klicke auf "Alle ersetzen".

Diese Methode funktioniert gut, wenn Du sicherstellen kannst, dass der Punkt nur am Ende steht.

Praktische Beispiele

Beispiel 1: Du hast in A1 den Text "Test." und möchtest nur den Punkt entfernen:

Verwende die Formel in B1:
```
=LINKS(A1;LÄNGE(A1)-1)
```
Ergebnis: "Test"

Beispiel 2: Mit VBA für die Zelle A2:

Cells(2, 1).Value = Left(Cells(2, 1).Value, Len(Cells(2, 1).Value) - 1)

Ergebnis: Der Punkt wird entfernt.

Tipps für Profis

Überlege, die VBA-Lösung in eine benutzerdefinierte Funktion umzuwandeln, um sie leicht wiederverwenden zu können.
Nutze die Möglichkeit, mehrere Zellen gleichzeitig zu bearbeiten, um Zeit zu sparen.
Teste Deine Formeln und Makros immer zuerst an einer Kopie Deiner Daten, um unerwünschte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich die Formel auch für andere Zeichen verwenden? Ja, Du kannst die Formel anpassen, um andere Zeichen zu entfernen, indem Du die LÄNGE-Funktion entsprechend modifizierst.

2. Funktioniert das auch in Excel Online? Ja, die Formel funktioniert auch in Excel Online, jedoch ist die VBA-Methode nur in der Desktop-Version von Excel verfügbar.

Beliebteste Forumthreads (12 Monate)