Code eingefügt mit Syntaxhighlighter 1.16
Public Sub Leerzeichen()
Dim iZeichen As Integer
For iZeichen = Len(Range("A1").Value) To 1 Step -1
If Mid(Range("A1").Value, iZeichen, 1) = " " Then
MsgBox "das rechteste Leerzeichen ist auf Position " & iZeichen, _
64, " Hinweis für " & Application.UserName
Exit For
End If
Next iZeichen
End Sub
Um das letzte Leerzeichen in einer Zelle zu finden, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Methode:
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul.
Füge den folgenden Code in das Modul ein:
Public Sub Leerzeichen()
Dim iZeichen As Integer
For iZeichen = Len(Range("A1").Value) To 1 Step -1
If Mid(Range("A1").Value, iZeichen, 1) = " " Then
MsgBox "Das rechteste Leerzeichen ist auf Position " & iZeichen, _
vbInformation, "Hinweis für " & Application.UserName
Exit For
End If
Next iZeichen
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro Leerzeichen aus, um die Position des letzten Leerzeichens in Zelle A1 zu finden.
Fehler: "Falscher Verweis auf Range"
Fehler: "Makro kann nicht ausgeführt werden"
Eine alternative Methode zur Ermittlung des letzten Leerzeichens ist die Verwendung der Funktion FIND oder SEARCH in Kombination mit LEN und SUBSTITUTE. Diese Methode ist etwas komplexer, aber du kannst sie ohne VBA nutzen.
Beispiel:
=LEN(A1) - LEN(SUBSTITUTE(A1, " ", "")) + 1Diese Formel zählt die Anzahl der Leerzeichen in Zelle A1 und gibt die Position des letzten Leerzeichens zurück.
Angenommen, du hast in Zelle A1 den Text "Das ist ein Beispiel".
Nutze InstrRev, um das letzte Vorkommen eines Zeichens in einem String zu finden. Diese Funktion ist besonders nützlich, wenn du nach Zeichen suchst, die nicht nur Leerzeichen sind.
Beispiel:
Dim letztePos As Integer
letztePos = InStrRev(Range("A1").Value, " ")
MsgBox "Das letzte Leerzeichen ist auf Position: " & letztePosExperimentiere mit verschiedenen Texten, um ein Gefühl für die Funktionen und deren Möglichkeiten zu bekommen.
1. Wie kann ich das letzte Zeichen in einer Zelle finden?
Du kannst die Funktion RIGHT zusammen mit LEN verwenden, um das letzte Zeichen zu extrahieren. Beispiel: =RIGHT(A1,1).
2. Gibt es eine Formel, die das letzte Leerzeichen findet, ohne VBA zu verwenden?
Ja, du kannst die Kombination aus FIND, LEN und SUBSTITUTE verwenden, um das letzte vorkommende Leerzeichen in einem String zu finden.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen