Suchen und ersetzen per VBA

28/05/2010 - 06:50 von Axel Clauß | Report spam
Hallo, ich versuche per VPA nur die ersten zwei Zeichen in allen Zellen einer
Spalte zu àndern. Inhalt der Zellen zb. 0530 kann aber auch 0505 sein. Die
ersten zwei Zeichen, also die 05 möchte ich durch 07 ersetzen. Mit Suchen und
Ersetzen àndert mir Excel aber dann beim Inhalt von 0505 alles auf 0707. Soll
aber nur 0705. Geht das irgenwie? Ich hoffe ich konnte das einigermaßen
erklàren.

Gruß Axel
 

Lesen sie die antworten

#1 Andreas Killer
28/05/2010 - 09:12 | Warnen spam
On 28 Mai, 06:50, Axel Clauß
wrote:

Hallo, ich versuche per VPA nur die ersten zwei Zeichen in allen Zellen einer
Spalte zu àndern. Inhalt der Zellen zb. 0530 kann aber auch 0505 sein. Die
ersten zwei Zeichen, also die 05 möchte ich durch 07 ersetzen. Mit Suchen und
Ersetzen àndert mir Excel aber dann beim Inhalt von 0505 alles auf 0707. Soll
aber nur 0705. Geht das irgenwie? Ich hoffe ich konnte das einigermaßen
erklàren.


Es wàre einfacher gewesen Du hàttest das Makro gepostet, dann hàtte
man kucken können was Du falsch machst. .-)

Andreas.

Sub Test()
Dim C As Range, firstAddress As String
With Range("a1:a500")
Set C = .Find("05", LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
firstAddress = C.Address
Do
If Left(C, 2) = "05" Then C = "07" & Mid(C, 3)
Set C = .FindNext(C)
If C Is Nothing Then Exit Do
Loop Until C.Address = firstAddress
End If
End With
End Sub

Ähnliche fragen