AW: Makro Suchen und Ersetzen
14.06.2016 16:38:25
UweD
Hallo
das ginge z.B. so...
Ich habe die Spalte, in der getauscht werden soll mal als Spalte B und die Zelle, in der der Tauschwert steht mit D1 angenommen
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Such As String, Neu As String
Dim Sp%
On Error GoTo Fehler
Sp = 2 'Spalte B
If Not Intersect(Target, Range("D1")) Is Nothing Then
If Target.Count = 1 Then
If Target = 100 Then
Such = "(%)"
Neu = "(100)"
ElseIf Target = "%" Then
Such = "(100)"
Neu = "(%)"
Else
MsgBox "Unbekannter Wert"
Exit Sub
End If
Application.EnableEvents = False
Columns(Sp).SpecialCells(xlCellTypeConstants, 3).Replace _
What:=Such, Replacement:=Neu, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Else
MsgBox "Einzeln bearbeiten"
End If
End If
Err.Clear
On Error GoTo Fehler
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub
Gruß UweD
Über Rückmeldungen würde ich mich freuen