Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmten Text aus Zelle entfernen

Forumthread: Bestimmten Text aus Zelle entfernen

Bestimmten Text aus Zelle entfernen
25.07.2017 14:46:43
Blue
Servus,
bräuchte mal wieder Hilfe bei einem Makro.
Möchte in Tabelle1 in Spalte A wenn in der Zelle am Anfang S_ steht dieses löschen.
Beispiel: Vorher S_1400 Danach 1400.
mfg Blue Bird
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmten Text aus Zelle entfernen
25.07.2017 14:52:42
MatthiasG
Hallo Bluebird,
probiere mal: 

Sub Entf_test()
Dim r0 As Range, r As Range
Dim sh As Worksheet
Set sh = ActiveSheet
Set r0 = Intersect(sh.Columns(1), sh.UsedRange)
For Each r In r0
If Left(r.Value, 2) = "S_" Then r.Value = Mid(r.Value, 3)
Next r
End Sub

Gruß Matthias
Anzeige
etwas schmuddeliger
25.07.2017 15:18:10
lupo1 

Sub Entf_Leading_S_(): [XFD1:XFD99999].FormulaR1C1 = "=MID(RC1,2*(LEFT(RC1,2)=""S_"")+1,999)"
[A1:A99999] = [XFD1:XFD99999].Value: [XFD:XFD].Delete: End Sub

Nee, richtig schön dreckig... ;-) Gruß owT
25.07.2017 18:30:43
Luc:-?
:-?
AW: Bestimmten Text aus Zelle entfernen
25.07.2017 15:18:50
Blue
Servus Matthias,
danke erstmal vielmals!
Wie müsste man es anpassen das die Horizontale Lage = linksbündig und die Vertikale Lage = Mittig der Zellen wird.
mfg Blue Bird
Anzeige
Die Augen geradeaus
25.07.2017 15:23:46
lupo1 

Sub RichtEuch()
Columns("A:A").VerticalAlignment = xlCenter
Columns("A:A").HorizontalAlignment = xlLeft
End Sub

Vielen Dank
25.07.2017 16:03:22
Blue
Servus,
danke an euch beide, habt mir super weiter geholfen!
mfg Blue Bird
;

Forumthreads zu verwandten Themen

Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 Beiträge
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Textfelder nach ausfüllen löschen
Beate

Hallo,
bin heute auf diese Seite gestoßen und habe viele Beiträge durchforstet um mein Problemchen zu lösen.
Und ich lese immer noch...
Folgendes: habe ein Rechnungsformular welches Daten enthält zur dauerhaften Speicherung in einer db.
Diese Felder sind leider nicht zusammenhän...
16.06.2009 20:18:44
Thread-ID: 1082043
3 Beiträge
Anzeige
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Mahlzeit @ all
ich will gerne einen Verweis wieder in einer Tabelle aufteilen
also das habe ich bisher als Formel:
=VERWEIS(G10;{0;10;12;14};{"D";"C";"B";"A"})
in G10 würde zum Bsp. 11 stehen, dann würde C rauskommen.
Nun würde ich aber gerne diese Daten woanders ändern könn...
25.06.2009 13:50:05
Thread-ID: 1084334
4 Beiträge
Text aus Zelle in MsgBox einfügen.
Wolfgang

Hallo,
über eine Checkbox wird, sofern diese markiert wird, eine MsgBox angezeigt. Wie kann ich erreichen, dass aus einem Tabellenblatt "Steuerung" der Text aus Zelle E20 mit eingefügt werden kann?
MsgBox "Bitte folgende Hinweise beachten:"......... und dann der Text aus Zelle E20.
...
08.07.2009 21:08:52
Thread-ID: 1087280
5 Beiträge
Textteil aus Zelle als Wenn Formel
Beni

Schönen Samstag Morgen
Trotz suche und Ansätzen im Archiv bekomme ich das nicht zum Laufen:
Zeile I4 enthält O:\Hugo\Geräte\"Hersteller"\Backöfen\ESC 100.pdf
In Zelle A4 sollte der "Hersteller" erscheinen, (z.B Miele, Electrolux)
Gescheitert bin ich mit dem Versuch:
=WENN(...
12.09.2009 07:04:58
Thread-ID: 1102152
3 Beiträge
Zahlen aus Zelle entfernen
Peter

Hallo,
ich muss 2 zellen miteinander vergleichen.
In Spalte AN:AN stehen Werte Bsp 312A706 dazu stehen in Spalte AO:AO 000030-002894-K03-12A-070-600
Jetzt muss geprüft werden ob das A aus AN mit dem A aus AO identisch ist. Wenn ja dann Gutaussage
siehe Bsp-Datei
https://www....
16.09.2009 20:34:31
Thread-ID: 1103353
10 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

Bestimmten Text aus Zelle entfernen in Excel

Schritt-für-Schritt-Anleitung

Um einen bestimmten Text aus einer Zelle in Excel zu entfernen, kannst Du ein einfaches Makro nutzen. Die folgende Anleitung zeigt Dir, wie Du den Text "S_" am Anfang von Zellen in Spalte A löschen kannst.

  1. Öffne Excel und gehe zu der Tabelle, in der Du arbeiten möchtest.

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

  3. Klicke auf Einfügen > Modul, um ein neues Modul hinzuzufügen.

  4. Kopiere den folgenden Code in das Modul:

    Sub Entf_test()
    Dim r0 As Range, r As Range
    Dim sh As Worksheet
    Set sh = ActiveSheet
    Set r0 = Intersect(sh.Columns(1), sh.UsedRange)
    For Each r In r0
        If Left(r.Value, 2) = "S_" Then r.Value = Mid(r.Value, 3)
    Next r
End Sub

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

  6. Drücke ALT + F8, wähle das Makro Entf_test aus und klicke auf Ausführen.

Jetzt wird der Text "S_" aus den Zellen in Spalte A entfernt.

Häufige Fehler und Lösungen

  • Fehler: Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass Du in der richtigen Tabelle bist und dass die Makros in Deinen Excel-Einstellungen aktiviert sind.

  • Fehler: Der Text wird nicht entfernt.

    • Lösung: Überprüfe, ob der Text "S_" tatsächlich am Anfang der Zellen steht. Möglicherweise gibt es Leerzeichen, die entfernt werden müssen.

Alternative Methoden

Falls Du kein Makro verwenden möchtest, kannst Du auch die Funktion SUBSTITUTE oder MID in Excel verwenden:

  1. Gehe zu einer leeren Zelle, z.B. B1.

  2. Gib die folgende Formel ein:

    =IF(LEFT(A1, 2) = "S_", MID(A1, 3, LEN(A1)), A1)

  3. Ziehe das Ausfüllkästchen nach unten, um die Formel auf die anderen Zellen anzuwenden.

Diese Methode entfernt den Text "S_" ohne ein Makro zu verwenden.

Praktische Beispiele

  1. Beispiel 1: Entfernen von "S_" aus Zellen in Spalte A.

    • Vorher: S_1400
    • Nachher: 1400

  2. Beispiel 2: Entfernen von allen Zellen, die mit "S_" beginnen.

    • Verwende das oben genannte Makro oder die Formel, um alle betroffenen Zellen zu bearbeiten.

Tipps für Profis

  • Nutze die TRIM-Funktion, um sicherzustellen, dass keine überflüssigen Leerzeichen in deinen Zellen vorhanden sind, bevor Du Text entfernst.
  • Experimentiere mit anderen Textfunktionen in Excel, wie REPLACE oder FIND, um komplexere Textmanipulationen durchzuführen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Texte gleichzeitig entfernen? Du kannst das Makro anpassen oder mehrere Formeln verwenden, um verschiedene Texte zu entfernen.

2. Funktioniert das auch in Excel 365? Ja, die genannten Methoden und Makros funktionieren in Excel 365 sowie in den meisten anderen Versionen von Excel.

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