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

VBA - suchen und ersetzen

Forumthread: VBA - suchen und ersetzen

VBA - suchen und ersetzen
13.06.2021 12:54:20
Hans-Jürgen
Liebe Forum-Mitglieder
ich möchte ein VBA erstellen mit folgender Problematik:
Begriff "test" in Spalte "A" suchen, wenn gefunden, dann in Spalte "B" in der gleichen Zeile den darin stehenden Begriff durch "erfolgreich" ersetzten. Das soll für die ganze Tabelle geschehen, bis zum Ende des Inhalts der Spalte "A".
Für Hilfe wäre ich Euch sehr dankbar.
Grüße aus dem sonnigen Wachendorf
H.-J. Ruf
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - suchen und ersetzen
13.06.2021 13:19:21
Hajo_Zi
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen (Alt+F4, oder Kreuz rechts oben).
Register Ansicht, Befehlsgruppe Makros, auf Makro klicken, Makros anzeigen, Makro auswählen und ausführen (Alt+F8 ).

Option Explicit
Sub Test()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For LoI = 1 To LoLetzte
If UCase(Cells(LoI, 1)) = "TEST" Then
Cells(LoI, 2) = "erfolgreich"
End If
Next LoI
End Sub
GrußformelHomepage
Anzeige
AW: VBA - suchen und ersetzen
13.06.2021 13:55:51
GerdL
Moin Hans-Jürgen!

Sub Unit()
Dim EZ As String, C As Range, U As Range
Set C = Columns("A").Find(what:="test", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
If Not C Is Nothing Then
EZ = C.Address
Do
If U Is Nothing Then
Set U = C
Else
Set U = Union(U, C)
End If
Set C = Columns("A").FindNext(C)
Loop Until C.Address = EZ
End If
If Not U Is Nothing Then U.Offset(, 1).Value = "erfolgreich"
Set U = Nothing: Set C = Nothing
End Sub
Gruß Gerd
Anzeige
;

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
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
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
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
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
Anzeige
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
Anzeige
VBA Suchen/Ersetzen inkl. Anzahl der Ersetzungen
Randolf

Hallo Excel-Gemeinde,
ich habe folgende Aufgabenstellung? Mit der normalen Suchen & Ersetzen-Funktion wird im Anschluss die Anzahl der Ersetzungen mitgeteilt. So weit so gut. Ich habe jetzt das Makro aufgezeichnet und es normal ablaufen lassen. Aber es kommt keine Anzahl der Ersetzungen...
14.05.2009 11:54:34
Thread-ID: 1075089
7 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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