Suchen und ersetzen

Forumthread: Suchen und ersetzen

Suchen und ersetzen

17.01.2007 11:38:11

ChrisW

Hallo, ich hätte da mal ne Frage,
ich habe in einer Spalte verschiedene Einträge wie z.B.
Oberkochen
Oberk
Aalen
Oberkochen (OST)
Oberkochen (West)
....
Nun möchte ich , dass er alles was mit Oberk anfängt in Oberkochen umschreibt und den rest, also des Ost oder West einfach weglässt.
Also dann müsste die Spalte so aussehen:
Oberkochen
Oberkochen
Aalen
Oberkochen
Oberkochen
Weis einer wie ich das mit VBA machen kann?
Wäre super wenn mir da einer helfen könnte.
Vielen Dank.
mfg Chris

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen und ersetzen

17.01.2007 11:50:23

Uwe
AW: Suchen und ersetzen

17.01.2007 11:52:46

haw
AW: Suchen und ersetzen

17.01.2007 12:04:41

ChrisW
AW: Suchen und ersetzen

17.01.2007 12:10:00

haw
AW: Suchen und ersetzen

17.01.2007 18:29:24

Peterchen

AW: Suchen und ersetzen

17.01.2007 11:50:23

Uwe

Hi Chris,
klappt es so?:


Sub ersetzen()
Dim R As Range
For Each R In Selection
If Left(R, 5) = "Oberk" Then R.Value = "Oberkochen"
Next
End Sub

Gruß
Uwe
(:o)

AW: Suchen und ersetzen

17.01.2007 11:52:46

haw

Hallo Chris,
ich habe den Vorgang einfach aufgezeichnet:


Sub Ersetzen()
Range("B10:B17").Replace What:="Oberk*", Replacement:="Oberkochen", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Gruß Heinz

AW: Suchen und ersetzen

17.01.2007 12:04:41

ChrisW

Ja, des hab ich auch schon aufgezeichnet, und des funktioniert auch fast so wie ich will, aber er hängt mir noch die andere Zeichen auch noch dran, also wie im folgendem Beispiel:
Oberk (west,....)
ersetzt er aber in Oberkochen (west,....)
Ich möchte aber dass er nur Oberkochen reinschreibt ohne des WEst.

AW: Suchen und ersetzen

17.01.2007 12:10:00

haw

Hallo Chris,
das funktioniert ja nach deinen Wünschen, außer du hast das (WEST) in einer eigenen Zelle. Oder hast du Stern nach Oberk in ... What:="Oberk*",... übersehen?
Gruß Heinz

AW: Suchen und ersetzen

17.01.2007 18:29:24

Peterchen

Hallo Chris,
so geht's:
Public


Sub ReplaceSpecial()
Dim s As String 'Suchtext
Dim l As Long   'laenge des Suchtextes
Dim e As String 'Ersetztext
Dim c As Range  'Zelle
s = InputBox("Suchen:", "Anfangs-Such-Text eingeben", "Oberk")
If s = vbNullString Then Exit 

Sub   'Abbrechen
l = Len(s)
e = InputBox("Ersetzen:", "Ersetz-Text eingeben", "Oberkochen")
If e = vbNullString Then Exit 

Sub   'Abbrechen
For Each c In Selection.Cells
If Left$(Trim$(c.Value), l) = s Then c.Value = e
Next
End Sub


Einfach den Bereich wo du austauschen willst markieren und dann als Makro ausführen.

Gruß Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Suchen und ersetzen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread