Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Suchen und Ersetzen

Makro Suchen und Ersetzen
15.06.2021 11:02:39
Raphael
Hallo zusammen,
ich würde gerne in einer in zufälliger Reihenfolge generierten Tabelle einen Namen Suchen und Ersetzen. Dazu habe ich folgendes Makro:

Sub FindandReplaceText()
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
Set xRg = Cells
xFind = "Gruber"
xRep = "=Verketten(""Gruber, "";LINKS(INDIREKT(""ZS(-1)"";0);1))"
If xFind = "False" Or xRep = "False" Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub
Ersetzt werden soll der Name Gruber durch "Gruber, (Erster Bustabe der Zelle Links davon)". Die Funktion '=LINKS(INDIREKT(""ZS(-1)"";0);1) gibt diesen an.
Das Suchen und Ersetzten funktioniert auch. Lediglich wenn ich beides kombiniere Funktioniert es nicht.
Weitere Infos:
In Spalte A steht der Vorname
In Spalte B der Nachname (Gruber)
Als Alternativen zu "=Verketten(""Gruber, "";LINKS(INDIREKT(""ZS(-1)"";0);1))" habe ich bereits "=Verketten(""Gruber, ""&LINKS(INDIREKT(""ZS(-1)"";0);1))" und "=""Gruber, ""&LINKS(INDIREKT(""ZS(-1)"";0);1)" probiert.
Vielen Dank
Gruß Raphael

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

Betreff
Datum
Anwender
Anzeige
AW: Makro Suchen und Ersetzen
15.06.2021 11:38:32
Daniel
Hi
dein Code ist ziemlich unvollständig.
Du suchst nicht nach Gruber, und auch dein hinzufügen des ersten Buchstabens wird nicht ausgeführt.
du triffst zwar die Vorbereitungen, in dem du Suchbegriff und Formel als Text bereit stellst, aber das wars dann.
wenn du das wirklich programmieren willst, dann so:

dim xFind as string
dim rFind as range
xFind = "Gruber"
set rFind = ActiveSheet.Columns(2).Find(what:=xFind, lookat:=xlwhole, lookin:=xlvalues)
if not rFind is nothing then then rFind.value = rFind.Value & left(rFind.Offset(0, -1).value, 1)
sollte der "Gruber" mehrfach vorkommen und an allen Stellen ersetzt werden, nicht nur an einer, dann in der letzten Zeile:

if not rFind is nothing then then Cells.Replace rFind.value, rFind.Value & left(rFind.Offset(0, -1).value, 1), xlwhole
Gruß Daniel
Anzeige
AW: Makro Suchen und Ersetzen
15.06.2021 12:45:39
Raphael
Hi Daniel,
vielen Dank erstmal. Das Makro läuft und ersetzt den Text. Es gibt nur ein Problem. Gruber kommt zweil mal vor und bei dem zweiten Eintrag wird auch der selbe Buchstabe (wie beim ersten Eintrag) dahinter übernommen. Ist es möglich den Code so anzupassen, dass der Buchstabe indivuell ewählt wird?

Sub probe()
Dim xFind As String
Dim rFind As Range
xFind = "Gruber"
Set rFind = ActiveSheet.Columns(2).Find(what:=xFind, lookat:=xlWhole, LookIn:=xlValues)
If Not rFind Is Nothing Then Cells.Replace rFind.Value, rFind.Value & ", " & Left(rFind.Offset(0, -1).Value, 1), xlWhole
End Sub
Viele Grüße Raphael
Anzeige
AW: Makro Suchen und Ersetzen
15.06.2021 16:38:58
Daniel
Hi
wenns individuell erstetzt werden soll, musst du die ersten Variante nehmen und sooft wiederholen, bis alle "Gruber" abgearbeitet wurden

Sub probe()
Dim xFind As String
Dim rFind As Range
xFind = "Gruber"
Do
Set rFind = ActiveSheet.Columns(2).Find(what:=xFind, lookat:=xlWhole, LookIn:=xlValues)
if rFind is Nothing then Exit do
rFind.value = rFind.Value & left(rFind.Offset(0, -1).value, 1)
Loop
End Sub
in Spalte A muss was stehen. ist Spalte A leer und in Spalte B steht "Gruber", gibts ne endlosschleife
Gruß Daniel
AW: Makro Suchen und Ersetzen
16.06.2021 07:21:55
Raphael
Hallo Daniel,
vielen Dank! Das Makro ist Perfekt und alles läuft wie es soll.
Gruß Raphael
Anzeige

319 Forumthreads zu ähnlichen Themen

Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Mehrzeilige Textbox mit Enter nächsten Zeile?
Timo

Hallo Ihr,
ich habe eine mehrzeilige Textbox.
Wie bringe ich diese dazu wenn Enter gedrückt wird der Cursor eine Zeile nach unten springt und nicht in die nächste Textbox?
Mit "shift & Enter" gehts! Ich hätte aber gerne nur Enter!
2. Frage in der Textbox stehen bereits ein...
17.11.2008 14:48:08
Thread-ID: 1025232
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
2
4
5
1
2
4
3
21
3
2
2
1
5
7
4
5
8
4
4
2
7
3