Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte ersetzen: alles ausser x

Werte ersetzen: alles ausser x
31.01.2007 13:12:25
mtremer
Hallo Excel-Freunde,
ich habe eine Frage, die Ihr bestimmt beantworten könnt.
Mit folgendem Code suche und ersetze ich in einem bestimmten Bereich alle "Moin" in "Hallo":
Range("B18:C317").Select
Selection.Replace What:="Moin", Replacement:="Hallo", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Wie kann ich den Code umschreiben, sodass alles ausser "Guten Tag" in "Hallo" geändert wird?
Ich tue mich nämlich schwer, jede einzelne Begrüßung mit einem eigenen Befehl zu versehen...
Danke für Eure Mühe.
Viele Grüße
Marco

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

Betreff
Datum
Anwender
Anzeige
AW: Werte ersetzen: alles ausser x
31.01.2007 13:19:26
haw
Hallo Marco,
dein Vorhaben kann so nicht funktionieren, denn du ersetzt eine Zeichenfolge durch eine andere. Wenn du "alles" durch Hallo ersetzt, bleibt ja nur noch Hallo übrig, oder?
Du kommst nicht umhin, alle Zeichenfolgen aufzuführen, die durch Hallo zu ersetzen sind.
Z.B. so:

Sub Ersetzen()
Dim Gruß(1 To 3) As String, i%
Gruß(1) = "Moin"
Gruß(2) = "Hello"
Gruß(3) = "Hi"
For i = 1 To 3
Range("B18:C317").Replace What:=Gruß(i), Replacement:="Hallo", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
End Sub

Gruß Heinz
Anzeige
Danke
31.01.2007 14:14:33
mtremer
Hallo Heinz,
danke Dir. Das ist für mich aber auch schon eine Abkürzung.
Ich hätte ansonsten jedes Mal den Code neu geschrieben (3 Zeilen für jeden Gruß)...
;-)
Viele Grüße
Marco

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige