Code funktioniert nicht
03.11.2004 10:04:24
Excelmania
Bitte um hilfe
______________________________________________________________________
Option Explicit
Dim C As Range
Private Sub CommandButton1_Click()
C = Columns("G:G").Select
For Each C In Selection
If InStr(1, UCase(C), "CHF") > 0 Then
C.Replace What:="CHF", Replacement:=""
C.Interior.ColorIndex = 3
End If
Next C
End Sub
______________________________________________________________________