Wie Excel VBA ersetzen Funktion mit Groß-und Kleinschreibung verwenden?

Question

Dieser Code sollte die Wörter durch den Fall ersetzen, der vom Benutzer eingegeben wurde, stattdessen wird er immer durch den ersten ersetzt, der den Fall ignoriert.

Irgendwelche Ideen, wie man es beheben kann?

Sub chaser() 

Range(Range("B15"), Range("B15").End(xlDown)).Replace what:="Part of chair", replacement:="Chair part" 
Range(Range("B15"), Range("B15").End(xlDown)).Replace what:="part of chair", replacement:="chair part" 

End Sub 

Ergebnis:

Chair part 
Chair part 

sollte sein:

Chair part 
chair part 

Irgendwelche Ideen?

Answer 1

Sie müssen die MatchCase-Kriterien verwenden; MatchCase:=True.

Fügen Sie einfach bis zum Ende Ihrer bestehenden Aussagen:

Sub chaser() 

Range(Range("B15"), Range("B15").End(xlDown)).Replace what:="Part of chair", replacement:="Chair part", MatchCase:=True 
Range(Range("B15"), Range("B15").End(xlDown)).Replace what:="part of chair", replacement:="chair part", MatchCase:=True 

End Sub 

HERE auf Range.Replace für weitere Informationen.