Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt rechts ab bestimmten Zeichen löschen?

Forumthread: Zellinhalt rechts ab bestimmten Zeichen löschen?

Zellinhalt rechts ab bestimmten Zeichen löschen?
Selma
Hallo Leute,
wie kann ich per VBA folgendes erreichen:
Wenn in Spalte B ab Zeile 3 in der Zelle diese Zeichen vorkommen ?l=, dann ab diesen Zeichen nach rechts den Zelltext entfernen. 
Sub ZEntfernen()
Dim start As Long, letzte As Long, lngZ As Long, strW As String, rngD As Range
Application.ScreenUpdating = False          ' nach dem Test aktivieren
start = 3
letzte = ActiveSheet.Range("B65536").End(xlUp).Row
For lngZ = letzte To start Step -1
strW = Cells(lngZ, 2).Value
If strW Like "*?l=" Then Rows(lngZ).Delete 'hier stimmt es noch nicht :-)
Next
Application.ScreenUpdating = True
End Sub

Besten Dank im Voraus!
Viele Grüße,
Selma
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellinhalt rechts ab bestimmten Zeichen löschen?
02.07.2010 09:37:46
Harald
Hallo Selma,
z.B. so: 
Sub ZEntfernen()
Dim start As Long, letzte As Long, lngZ As Long, strW As String, rngD As Range
'   Application.ScreenUpdating = False          ' nach dem Test aktivieren
start = 3
letzte = ActiveSheet.Range("B65536").End(xlUp).Row
For lngZ = letzte To start Step -1
strW = Cells(lngZ, 2).Value
Cells(lngZ, 2) = Left(strW, InStr(1, strW, "?l", vbTextCompare) - 1)
Next
Application.ScreenUpdating = True
End Sub
Gruß
Harald
Anzeige
AW: Zellinhalt rechts ab bestimmten Zeichen löschen?
02.07.2010 09:54:37
Selma
Hallo Harald,
ich bekomme diese Meldung:
Laufzeitfehler: 5 Ungültiger Prozeduraufruf oder ungültiges Argument
Cells(lngZ, 2) = Left(strW, InStr(1, strW, "?l", vbTextCompare) - 1)
Viele Grüße,
Selma
fehlender Test
02.07.2010 10:12:27
Harald
Bei mir hat es funktioniert. Allerdings haate ich nur Zellen mit entsprechendem Inhalt.
Ohne dass ich getestet habe, versuch' mal folgendes: 
Sub ZEntfernen()
Dim start As Long, letzte As Long, lngZ As Long, strW As String, rngD As Range
'   Application.ScreenUpdating = False          ' nach dem Test aktivieren
start = 3
letzte = ActiveSheet.Range("B65536").End(xlUp).Row
For lngZ = letzte To start Step -1
strW = Cells(lngZ, 2).Value
if InStr(1, strW, "?l", vbTextCompare) >0 then
Cells(lngZ, 2) = Left(strW, InStr(1, strW, "?l", vbTextCompare) - 1)
end if
Next
Application.ScreenUpdating = True
End Sub

Harald
Anzeige
AW: fehlender Test
02.07.2010 10:18:46
Selma
Jetzt funktioniert es.
Vielen Dank Harald !
VG,
Selma
;

Forumthreads zu verwandten Themen

Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Anzeige
letztes Zeichen löschen
Roger

Hallo zusammen,
mein Tabellenblatt enthält in einer Spalte Textstrings, die als letztes Zeichen ein " enthalten. Das möchte ich gerne löschen.
Mit
Cells.Replace What:="Zeichen_alt", Replacement:="Zeichen_neu", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True ersetze ich z....
16.11.2009 16:00:48
Thread-ID: 1117654
4 Beiträge
von rechts bis zum Komma löschen
rechts

Moin,
ich habe folgende Frage:
Ich habe folgenden Text in einer Zelle stehen:
Eichen-Gartenschwelle, 26x16 cm, gehobelt und gefast, liefern
Ich muss jetzt von links 40 Zeichen in eine andere Zelle kopieren. Das habe ich mit der Formel =LINKS(D22; 40) geschafft. Ergebnis ist dann...
03.03.2011 10:19:32
Thread-ID: 1203999
5 Beiträge
Löschen von 2 bestimmten Zeichen
2

Hallo alle zusammen,
habe hier folgende Formel:
=HYPERLINK(getlink(C1); WENN(ISTZAHL(FINDEN("...";C1)); LINKS(C1;FINDEN("...";C1)-1); C1))
Getlink-Funktion
Option Explicit Public Function getLink(ByRef Target As Range) As String If Target.Hyperlinks.Count > 0 Then getLink = T...
18.08.2011 14:04:48
Thread-ID: 1226612
4 Beiträge
Anzeige
Zeichen von rechts und von hinten löschen
rechts

Hallo
Ich habe eine Tabelle, in der sind die Spaltenköpfe zum Teil nach folgendem Muster beschriftet:
Anzahl_BB_M2
(01.-31.01.2012)
(ACHTUNG: Nach M2 kommt ein Zeilenumbruch)
Ich habe nun versucht, aus dem Datum, dass sich in diesem String befindet, den Monat und das Jahr zu...
05.10.2012 13:15:06
Thread-ID: 1280673
5 Beiträge
Zeichen rechts entfernen?
Selma

Hallo Leute,
in möchte in aktive Spalte (ab Zeile 2 bis letzte benutzte Zelle der Spalte A) die letzten sieben Zeichen von rechts entfernen, nur wenn der Zellinhalt rechts ein sechsstelliger Zahl ist und davor ein Punkt steht.
Beispiel vorher:
15.09.2012 21:17
20.12.2012 18:25<...
30.01.2013 10:53:38
Thread-ID: 1296654
12 Beiträge
6 letzten Zeichen löschen
Muehli

Guten Morgen zusammen,
ich habe versucht einen Code zu schreiben, mit dem es mir möglich ist, mit einem Button die letzten 6 Zeichen einer Zelle zu löschen, sollte in der Zelle etwas geschrieben sein.
Hier mein Versuch:
Private Sub CommandButton1_Click() Dim WertZelle As String F =...
11.11.2014 08:17:40
Thread-ID: 1391565
3 Beiträge
Nach 3. Leerzeichen rest löschen
Bernd

Hallo liebe Excelgemeinde,
In Spalte A2:A... stehen Werte mit folgendem Aufbau:
123456789 SF301 5234-4587 M. dadada
oder
123456789 E0123 1234-5678 Tada DE
oder oder oder.
Nach dem 3. Leerzeichen kommt noch was.
Stehen bleiben soll nach Makrolauf:
123456789 SF301...
10.02.2015 11:19:22
Thread-ID: 1408351
11 Beiträge
Anzeige
VBA: Ersetzen oder löschen von Zeichen
Zeichen

Hi,
wie kann ich Zeichen oder Nummern am Ende eines Begriffes ersetzen bzw. löschen?
Darren.
Darren,
Darren!
Darren?
Darren2017
Nur Darren darf in der Variable noch übrig bleiben.
Funktion in VBA und wie funktioniert es?
Danke
Darren
05.08.2017 19:27:15
Thread-ID: 1572784
13 Beiträge
Letztes Zeichen autom. löschen
Manfred

Hi,
habe folgenden Code:
With wks
strB = .Cells(1, 2).text
For Each rngB In .Range(.Cells(6, 2), .Cells(.Rows.Count, 2).End(xlUp)).Cells
If rngB.text "" Then
strB = strB & rngB.text & ";"
End If
Next
End With
Dadurch werden die Daten von Spalte B...
14.08.2019 13:37:48
Thread-ID: 1707628
5 Beiträge
Entfernen von Leerzeichen in Strings
sandra
Hallo,
ich habe ein Problem mit Leerzeichen bei der Umwandlung von
String -> Integer
s=" 50-23 "
array = split (s,"-")
ergibt:
array(0) = " 50"
array(1) = "23 "
wie kann ich die Leerzeichen löschen ?
Für Tipps wäre ich dankbar
Sandra
08.02.2004 10:57:25
Thread-ID: 378389
3 Beiträge
Bestimmtes Zeichen von rechts her suchen
rechts

Hallo,
Ich habe folgendes Problem:
In einer Spalte steht pro Zelle ein Datei-Pfad mit der Datei. Also zum Beispiel
"c:\temp\index.htm"
Ich möchte nun nur den Datei-Namen kopieren und in ein anderes Feld schreiben, zum Beispiel in das rechts davon. Dies möchte ich für die ganze Spal...
09.08.2004 16:48:51
Thread-ID: 466891
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zellinhalt rechts ab bestimmten Zeichen löschen

Schritt-für-Schritt-Anleitung

Um in Excel per VBA den Zellinhalt rechts von einem bestimmten Zeichen zu löschen, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub ZEntfernen()
   Dim start As Long, letzte As Long, lngZ As Long, strW As String
   start = 3
   letzte = ActiveSheet.Range("B65536").End(xlUp).Row

   For lngZ = letzte To start Step -1
       strW = Cells(lngZ, 2).Value
       If InStr(1, strW, "?l", vbTextCompare) > 0 Then
           Cells(lngZ, 2) = Left(strW, InStr(1, strW, "?l", vbTextCompare) - 1)
       End If
   Next
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus:

    • Drücke ALT + F8, wähle ZEntfernen aus und klicke auf Ausführen.

Mit diesem Makro wird der Zellinhalt ab dem Zeichen ?l= in der Spalte B ab Zeile 3 gelöscht.

Häufige Fehler und Lösungen

  • Laufzeitfehler: 5 Ungültiger Prozeduraufruf oder ungültiges Argument:

    • Dieser Fehler tritt auf, wenn das Zeichen ?l= nicht in der Zelle vorhanden ist. Stelle sicher, dass die Zelle diesen Inhalt hat oder füge eine Fehlerbehandlung hinzu.

  • Makro läuft nicht:

    • Überprüfe, ob die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros.

Alternative Methoden

Falls du nicht mit VBA arbeiten möchtest, kannst du auch die Funktion TEXTVERKETTEN oder LINKS in Excel verwenden. Hier ein Beispiel:

  1. Verwende die Formel: 
    =LINKS(B3;FINDEN("?l";B3)-1)
  2. Ziehe die Formel nach unten, um sie auf weitere Zellen anzuwenden.

Diese Methode ist einfach und erfordert keine Programmierung, hat aber ihre Grenzen im Vergleich zu VBA.

Praktische Beispiele

  • Beispiel 1:

    • Wenn in Zelle B3 der Wert https://example.com?l=test steht, wird der Inhalt nach der Ausführung des Makros auf https://example.com reduziert.

  • Beispiel 2:

    • Bei einer Liste von URLs in Spalte B kannst du mit dem VBA-Skript alle Inhalte rechts von ?l= auf einmal löschen.

Tipps für Profis

  • Effizienz steigern: Aktiviere Application.ScreenUpdating = False und Application.ScreenUpdating = True um die Ausführungsgeschwindigkeit des Makros zu erhöhen, besonders bei großen Datenmengen.

  • Verwende Debug.Print: Nutze diese Funktion, um während der Entwicklung den Status deiner Variablen zu überprüfen, was dir helfen kann, Fehler schneller zu identifizieren.

FAQ: Häufige Fragen

1. Kann ich das Makro anpassen, um auch andere Zeichen zu löschen?
Ja, du kannst das Zeichen ?l im Code durch jedes andere Zeichen ersetzen, um es an deine Bedürfnisse anzupassen.

2. Ist dieses Makro in allen Excel-Versionen kompatibel?
Das Makro sollte in den meisten Excel-Versionen ab 2007 funktionieren. Stelle sicher, dass du die VBA-Funktionalität aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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