Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Löschen einer Bestimmten Position

Löschen einer Bestimmten Position
17.05.2006 20:48:44
Martina
Hallo,
ich habe z.B. folgende Zahlen in einer Spalte untereinander:
123523
111534
234545
345545
552511
222522
111511
Da ich 4000 davon habe kommt Handarbeit für mein Problem nicht in Frage.
mein Problem:
Wie bekomme ich die 5 (ist immer gleich) an jeweils drittletzter Stelle jeder Zahl gelöscht.
Also am Ende müssten dann nur noch 5stellige Zahlen übrigbleiben.
Habs mit dem Macrorecorder versucht, hat aber nicht funktioniert.
Danke schon mal
Martina
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen einer Bestimmten Position
17.05.2006 21:04:07
Bertram
Hallo Martina,
ohne VBA:
A1-A4000: Deine Zahlen
B1-B4000: =ERSETZEN(A1;4;1;"") (in A1 eingeben und runterkopieren)
Gruß
Bertram
AW: Löschen einer Bestimmten Position
17.05.2006 21:18:15
Martina
Super Schnelle Antwort. Danke. UND: Es klappt!
Ein kleines Problem hatte ich vergessen darzustellen. Da nicht alle Zahlen 6ziffrig sind klappt es manchmal nicht. Da ich aber das Prinzip verstanden habe, kann ich mir meine Zahlen zurechtsortieren und dann entsprechen der Ziffernanzahl die Formel abändern.
Danke nochmal Bertram
Anzeige
AW: Löschen einer Bestimmten Position
17.05.2006 21:08:30
Xelleron(Dennis)
Hallo Martina,

Sub fünf_entfernen()
Dim s As String
Dim zelle As Range
Sheets("Tabelle1").Activate
For Each zelle In Selection
s = Application.Substitute(zelle, "5", "")
zelle.Value = s
Next zelle
End Sub

Gruss Dennis
AW: Löschen einer Bestimmten Position
17.05.2006 21:34:39
Gerd
Hallo Martina,
steht die zu löschende "5" auch bei unterschiedlicher Länge der Zahlen
immer an einer bestimmten Stelle ?
Gruß
Gerd
Anzeige
AW: Löschen einer Bestimmten Position
17.05.2006 21:44:10
Martina
Ach Ihr seit so lieb!
Ich habs doch schon längst vollbracht! Mit bertram seiner Formel und ein paar Veränderungen.
@ Gerd
Ja, Die betreffende Ziffer ist immer an drittletzter Stelle oder anders an 3. Position von rechts. Aber wie gesagt, mit ein wenig Motifikation gings auch so.
Wenn ich nun aber die "fertigen" Zahlen in ein neues Feld kopiere (mit "nur Werte einfügen", da Sie ja aus einer Formel generiert wurden) hab ich jetzt immer so ein grünes Dreick in jeder einzelnen Zelle. Wie bekomme Ich das jetzt weg? Alle auf einmal.
Anzeige
AW: Löschen einer Bestimmten Position
17.05.2006 22:01:19
Gerd
Hallo Martina,
Dieser Code löscht bei allen Zahlen, Mindestlänge drei Stellen unterstellt,
immer die dritte Stelle von rechts.
Option Explicit

Sub Drittletzte_Stellen_löschen()
Dim x As Long, z As Long
'#   , 1) steht für Spalte "A"     #  , 2) wäre Spalte "B"
'ermittelt von unten die Zeile der letzten gefüllte Zelle in Spalte "A"
x = Cells(Rows.Count, 1).End(xlUp).Row
For z = 2 To x
Cells(z, 1) = Left(Cells(z, 1), Len(Cells(z, 1)) - 3) & Right(Cells(z, 1), 2)
Next
End Sub

Wegen deinem weiteren Problem.
Die grünen Eckchen kannst Du im Excel-Menüleiste Extras-Optionen
abschalten. Genauer kann ich dir dies leider nicht beschreiben,
da ich Excel 2003 im Moment nicht zur Verfügung habe.
Gruß
Gerd
Anzeige
AW: Löschen einer Bestimmten Position
17.05.2006 22:12:47
Martina
Dankeschön Gerd.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Löschen einer Bestimmten Position in Excel


Schritt-für-Schritt-Anleitung

Um eine bestimmte Ziffer, wie zum Beispiel die "5" an drittletzter Stelle einer Zahl in Excel zu löschen, kannst du folgende Schritte ausführen:

  1. Daten eingeben: Stelle sicher, dass deine Zahlen in einer Spalte (z.B. A1 bis A4000) stehen.
  2. Formel anwenden: In die Zelle B1 gibst du die folgende Formel ein:
    =ERSETZEN(A1;4;1;"")
  3. Formel nach unten ziehen: Ziehe die Ecke der Zelle B1 nach unten, um die Formel auf alle anderen Zellen in Spalte B anzuwenden.
  4. Werte kopieren: Markiere die Zellen in Spalte B, kopiere sie und füge sie in eine neue Spalte ein, indem du „Nur Werte einfügen“ wählst.

Wenn du die letzte Ziffer entfernen möchtest, kannst du auch die Formel =LINKS(A1;LÄNGE(A1)-1) verwenden.


Häufige Fehler und Lösungen

  • Problem: Die Zahlen haben unterschiedliche Längen, und die Formel funktioniert nicht.

    • Lösung: Stelle sicher, dass die Position der zu löschenden Ziffer immer gleich ist. Du kannst die Formel entsprechend anpassen.
  • Problem: Nach dem Einfügen der Werte erscheinen grüne Dreiecke in den Zellen.

    • Lösung: Gehe zu „Extras“ > „Optionen“ und deaktiviere die Option für Fehlerüberprüfung.

Alternative Methoden

Eine VBA-Lösung kann auch effizient sein, wenn du mit großen Datenmengen arbeitest. Hier ist ein einfaches Makro, das die "5" an drittletzter Stelle entfernt:

Sub fünf_entfernen()
    Dim s As String
    Dim zelle As Range
    Sheets("Tabelle1").Activate
    For Each zelle In Selection
        s = Application.Substitute(zelle, "5", "")
        zelle.Value = s
    Next zelle
End Sub

Wenn du die letzte Ziffer oder die letzten drei Ziffern löschen möchtest, kannst du das folgende Makro verwenden:

Sub Drittletzte_Stellen_löschen()
    Dim x As Long, z As Long
    x = Cells(Rows.Count, 1).End(xlUp).Row
    For z = 2 To x
        Cells(z, 1) = Left(Cells(z, 1), Len(Cells(z, 1)) - 3) & Right(Cells(z, 1), 2)
    Next
End Sub

Praktische Beispiele

Angenommen, du hast folgende Zahlen:

123523
111534
234545
345545
552511

Nach Anwendung der Formel =ERSETZEN(A1;4;1;"") in Spalte B, erhältst du:

12323
11134
23445
34545
55211

Diese Methode funktioniert auch, wenn du die letzte Zahl entfernen möchtest, indem du die Formel =LINKS(A1;LÄNGE(A1)-1) anwendest.


Tipps für Profis

  • Nutze die Funktion „Daten filtern“, um nur die relevanten Zahlen anzuzeigen, bevor du mit der Bearbeitung beginnst.
  • Experimentiere mit der LINKS und RECHTS Funktion, um spezifischere Positionen zu bearbeiten.
  • Du kannst auch die FINDEN-Funktion nutzen, um das spezifische Zeichen zu identifizieren, bevor du es entfernst.

FAQ: Häufige Fragen

1. Wie kann ich die letzte Ziffer in einer Zahl entfernen? Du kannst die Formel =LINKS(A1;LÄNGE(A1)-1) verwenden, um die letzte Ziffer zu löschen.

2. Was mache ich, wenn die zu löschende Ziffer an einer variablen Stelle steht? In diesem Fall ist es hilfreich, die FINDEN-Funktion zu verwenden, um die Position der Ziffer zu ermitteln und dann gezielt zu ersetzen.

3. Wie kann ich alle Ziffern rechts von einem bestimmten Zeichen löschen? Du kannst die Formel =LINKS(A1;FINDEN("Z";A1)-1) verwenden, wobei "Z" das Zeichen ist, nach dem du suchst.

4. Kann ich diese Methoden auch in Excel Online anwenden? Ja, die meisten Formeln und Funktionen sind auch in Excel Online verfügbar, jedoch können einige VBA-Makros nicht verwendet werden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige