Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Stern(*) Suchen/Ersetzen mit VBA

Forumthread: Stern(*) Suchen/Ersetzen mit VBA

Stern(*) Suchen/Ersetzen mit VBA
18.07.2022 11:04:21
Florian
Hi Leute,
ich versuche mit diesem Code einen Stern aus Zellen zu löschen bzw. gegen nichts zu ersetzen. Allerdings bleiben die Sterne erhalten.
Kann jemand helfen?

Sub SternLoeschen()
Dim wks As Worksheet
Dim rngZelle As Range
Dim lngLetzteZeile As Long
Set wks= ThisWorkbook.Sheets("Tabelle")
lngLetzteZeile = wks.Cells(Rows.Count, 1).End(xlUp).Row
wks.Activate
For Each rngZelle In wks.Range("I2:I" & lngLetzteZeile)
rngZelle.Value = Replace(rngZelle.Value, "~*", "")
Next rngZelle
End Sub
Danke Euch!
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Stern(*) Suchen/Ersetzen mit VBA
18.07.2022 11:08:56
Daniel
Hi
trozt gleicher Benennung unterscheidet sich die Textfunktion Replace von dem Menü-Kommando Relpace/Ersetzen in einigen Punkten.
die Replace-Funktion kennt keine Jokerzeichen.
da sie keine Jokerzeichen kennt, brauchen die Joker auch keine Tilde, wenn sie normal verwendet werden sollen
du kannst also direkt "*" durch "" nichts austauschen.
Gruß Daniel
Anzeige
AW: Stern(*) Suchen/Ersetzen mit VBA
18.07.2022 11:34:37
Florian
Wenn ich es so mache, werden alle Inhalte in allen Zellen in der Spalte gelöscht.
AW: Stern(*) Suchen/Ersetzen mit VBA
18.07.2022 12:17:00
Daniel
dann machst du es nicht "so" sondern anders.
machs richtig so wie gezeigt, dann gehts.
AW: Stern(*) Suchen/Ersetzen mit VBA
18.07.2022 11:11:56
Nepumuk
Hallo Florian,
versuch es mal so:

Sub SternLoeschen()
Call ThisWorkbook.Worksheets("Tabelle").Columns(9).Replace(What:="~*", Replacement:=vbNullString, LookAt:=xlPart)
End Sub
Gruß
Nepumuk
Anzeige
AW: Stern(*) Suchen/Ersetzen mit VBA
18.07.2022 13:13:35
Florian
So läufts. Danke! :)
;

Forumthreads zu verwandten Themen

Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Anzeige
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Anzeige
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
suchen und ersetzen
Detlef

Hallo alle zusammen,
ich habe mehrere Arbeitsblätter in denen ich immer den Inhalt einer Spalte überprüfe. Dabei wird der jeweilige Inhalt der Zelle mit dem Inhalt eines KorrekturArbeitsblattes verglichen. Wird der Zellinhalt gefunden, wird er ersetzt.
Im Moment mache ich das mit folgen...
04.06.2009 14:35:31
Thread-ID: 1079155
5 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Wert suchen und ersetzen
VBAmateur

Hallo an alle,
bin noch Neuling in VBA und hier im Forum, und hoffe ich mache nicht zuviel falsch.
Ich habe ein Problem das ich auch nach vielen Stunden probieren mit meinen mageren Kenntnissen nicht lösen konnte. Hoffentlich kann mir jemand helfen.
Ich habe 10 Spalten von denen 3 i...
13.09.2009 15:45:57
Thread-ID: 1102420
6 Beiträge
Suchen und Ersetzen mit Ergebinsliste
Horst

Hey!
Ich möchte gerne Das Suchen und Ersetzen im Excel per VBA nachimplementieren.
Ich habe dann den VBA-Recorder angeschissen und dan kam dieses heraus:
------------------------------------------------------------------------
Cells.Replace What:="ABC", Replacement:="def", LookA...
24.09.2009 09:33:51
Thread-ID: 1105113
3 Beiträge
Anzeige

Infobox / Tutorial

Sternchen in Excel suchen und ersetzen mit VBA

Schritt-für-Schritt-Anleitung

Um in Excel ein Sternchen (*) zu suchen und zu ersetzen, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA)-Editor zu öffnen.

  2. Einfügen eines Moduls: Klicke im Menü auf Einfügen und wähle Modul.

  3. Code eingeben: Füge den folgenden Code in das Modul ein:

    Sub SternLoeschen()
   Call ThisWorkbook.Worksheets("Tabelle").Columns(9).Replace(What:="*", Replacement:=vbNullString, LookAt:=xlPart)
End Sub

  4. Anpassen der Tabelle: Stelle sicher, dass der Name der Tabelle im Code korrekt ist (hier "Tabelle").

  5. Ausführen des Codes: Klicke auf F5, um den Code auszuführen und die Sternchen in der angegebenen Spalte zu ersetzen.

Häufige Fehler und Lösungen

  • Fehler: Die Sternchen bleiben auch nach der Ausführung des Codes erhalten.

    • Lösung: Überprüfe, ob Du das Sternchen im Code richtig eingegeben hast. Verwende kein Tildezeichen (~), wenn Du direkt mit einem Jokerzeichen arbeitest.

  • Fehler: Alle Inhalte in den Zellen der Spalte werden gelöscht.

    • Lösung: Stelle sicher, dass Du LookAt:=xlPart im Code verwendest, damit nur die Sternchen ersetzt werden und der restliche Inhalt erhalten bleibt.

Alternative Methoden

Falls Du keine VBA-Lösung verwenden möchtest, kannst Du auch die integrierte Funktion "Suchen und Ersetzen" in Excel nutzen:

  1. Markiere die Zellen: Wähle den Bereich aus, in dem Du das Sternchen ersetzen möchtest.
  2. Öffne "Suchen und Ersetzen": Drücke Strg + H.
  3. Suchfeld ausfüllen: Gib * in das Feld "Suchen nach" ein.
  4. Ersetzen-Feld ausfüllen: Lass das Feld "Ersetzen durch" leer.
  5. Ersetzen durchführen: Klicke auf Alle ersetzen.

Diese Methode ist einfach, hat jedoch den Nachteil, dass Du keine spezifischen Regeln wie in VBA festlegen kannst.

Praktische Beispiele

Hier ein Beispiel, wie Du das Sternchen in Excel ersetzen kannst:

Angenommen, die Spalte I enthält folgende Werte:

  • Apfel*
  • Banane*
  • Kirsche*

Nach Ausführung des VBA-Codes oder der "Suchen und Ersetzen"-Funktion würde die Liste so aussehen:

  • Apfel
  • Banane
  • Kirsche

Tipps für Profis

  • Stern in Excel einfügen: Wenn Du in Excel ein Sternchen einfügen möchtest, kannst Du einfach ALT + 42 auf dem numpad drücken.
  • Mehrere Spalten bearbeiten: Du kannst den Code anpassen, um mehrere Spalten zu durchsuchen, indem Du die Columns-Eigenschaft in der VBA-Anweisung änderst.
  • Sicherungskopie erstellen: Bevor Du Massenänderungen durchführst, erstelle immer eine Sicherungskopie Deiner Datei.

FAQ: Häufige Fragen

1. Wie kann ich ein Sternchen in Excel suchen und ersetzen?
Du kannst entweder VBA verwenden oder die integrierte Funktion "Suchen und Ersetzen" nutzen, um Sternchen in Excel zu suchen und zu ersetzen.

2. Warum bleibt das Sternchen nach dem Ersetzen erhalten?
Das kann passieren, wenn Du im VBA-Code ein Tildezeichen (~) benutzt oder das Sternchen falsch eingegeben hast. Stelle sicher, dass Du direkt * ohne zusätzliche Zeichen verwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige