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
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen & Ersetzen

Suchen & Ersetzen
14.12.2007 00:04:03
BOSSE123
Hallo liebe Gemeinde,
habe ein kleine Frage:
ich möchte gerne folgende Zeichen (ı , ç , ğ , ş) per Makro in einer Zelle suchen und durch diese (i , c , g , s) ersetzen.
Habt ihr eine Idee ?
Gruß

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen & Ersetzen
14.12.2007 07:53:12
haw
Hallo,
die vier Zeichen (ı , ç , ğ , ş) stehen in A1:A4 und (i , c , g , s) in B1:B4.
In E1:E4 stehen Texte, in denen die zu ersetzenden Zeichen stehen:

Sub Ersetzen()
Dim i%
For i = 1 To 4
Range("E1:E4").Replace What:=Cells(i, 1).Value, Replacement:=Cells(i, 2).Value, LookAt:= _
xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
End Sub


Gruß
Heinz

AW: Suchen & Ersetzen
14.12.2007 14:03:00
BOSSE123
Vielen Dank,
gute Idee das mann die zu ersetzenden auch in der Tabelle hat.
Ein kleines Problem ist noch vorhanden.
Wie mache ich das mit Grossbuchstaben, die sollten nämlich auch nach dem Ersetzen Gross bleiben.
Danke

Anzeige
AW: Suchen & Ersetzen
14.12.2007 20:09:27
Erich
Hallo ?,
schreibe in A5:A8 bzw. B5:B8 die entprechenden Großbuchstaben.
Im Makro schreibst du
For i = 1 To 8
statt
For i = 1 To 4
und
MatchCase:=True
statt
MatchCase:=False
Dann sollte das gehen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Suchen & Ersetzen
15.12.2007 01:38:46
BOSSE123
Ja, auch das klappt.
Nur jetzt ersetzt es alle zellen. Kann man es so einstellen das nur die eine Sucht und Ersetzt ?

AW: Suchen & Ersetzen
15.12.2007 02:55:00
BOSSE123
Kommando zurück. Sysntax Fehler..... Läuft Prima. Danke

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige