Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suche mit platzhalter

suche mit platzhalter
25.05.2008 17:07:00
Jakobi
Hallo zusammen,
gibt es eine Möglichkeit mit VBA in einer Textdatei nach einer Zeile zu suchen die eine Zeichenkette
z.B. "52_" beinhaltet. Alle mit diesem Suchstring gefundene Zeilen sollen dann mit einer Zeichenkette ergänzt werden.
z.B.:
gesucht nach "(XXXXXX52_X)" ergänzt mit ""$$K52$$" soll dann so "$$K52$$"(XXXXXX52_X)" aussehen.
Die mit "X" gekenzeichneten Stellen können von einem zum anderen mal unterschiedlich sein.
Kann mir jemand helfen?
Vielen Dank im voraus.
mfG Jakobi

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

Betreff
Datum
Anwender
Anzeige
AW: suche mit platzhalter
25.05.2008 17:34:58
Reinhard
Hi Jakobi,

Option Explicit
Sub tt()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If InStr(Zelle.Value, "52_") > 0 Then Zelle.Value = "$$K52$$" & Zelle.Value
Next Zelle
End Sub

Wenn du noch Anführungszeichen drinhaben willst, dann z.B. so:
If InStr(Zelle.Value, "52_") > 0 Then Zelle.Value = "$$K52$$" & chr(34) & Zelle.Value
Gruß
Reinhard

AW: suche mit platzhalter
25.05.2008 17:38:00
Daniel
Hi
also eine Text-Datei mit VBA direkt zu bearbeiten, stelle ich mir schwierig vor, da Excel und VBA (VisualBasic For APPLICATIONS, in diesem Falle Excel) dafür nicht gebaut wurden.
wenn du die Möglichkeit hast, die Textdatei mit Excel zu öffnen, dann geht das relativ einfach so:
- Textdatei öffnen (möglichst keine Aufteilung in Spalten wählen, der ganze Text sollte in Spalte A stehen)
- in Spalte B folgende Formel eingeben und nach unten kopieren:

=Wenn(Zählenwenn(A1;"*52_*")=0;A1;"$$K52$$"&A1)


- wenn alles passt, Spalte B kopieren und BEARBEITEN - INHALTE EINFÜGEN - WERTE klicken (jetzt werden die Formeln durch FIX-Werte ersetzt)
- Spalte A löschen
- die Datei mit Speichern unter wieder als Text-Datei speichern.
falls du es als Makro benötigst, lass dabei einfach den Recorder mitlaufen.
der aufgezeichnete Code wird noch ein paar Anpassungen benötigen, aber im Prinzip passts so.
gruß, Daniel

Anzeige

214 Forumthreads zu ähnlichen Themen

Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 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
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
Anzeige
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
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
16
2
2
5
1
3
18
2
4
6
4
5
2
5
5
3
7
6
4
3
1
5
17
2
4