Zelleninhalte ersetzten ?
14.09.2007 09:46:50
Selma
ich möchte in Spalte G ab Zeile 2 folgendes ersetzen:
- wenn in Zelleninhalt ein "*" vorkommt, dann soll dieser (also nur Sternchen) entfernt werden
- wenn in Zelleninhalt dies "Reims GmbH, Berlin" vorkommt, dann soll dieses durch "Reims GmbH" ersetzt werden.
Leider werden mit meinem Code alle Zelleninhalte gelöscht, anstatt ersetzt.
Sub ersetzten()
Dim lngLast As Long
Dim Zelle As Range
Dim lastCom As Integer
'letzte gefüllte Zelle in Spalte G wird ermittellt
lngLast = Range("G65536").End(xlUp).Row
'In Spalte G (6) ab Zeile 2 wird bis zu letzte gefüllte Zelle (aus Spalte G ermittellt) die _
Eingaben ersetzt
Range(cells(2, 6), cells(lngLast, 6)).Select
Selection.Replace What:="*", Replacement:=" ", LookAt:=xlPart, MatchCase:=True
Selection.Replace What:="Reims GmbH, Berlin", Replacement:="Reims GmbH", LookAt:=xlPart, _
_
MatchCase:=True
End Sub
Was habe ich falsch gemacht ?
Vielen Dank im Voraus...
Liebe Grüße
Selma