Probleme mit Suchen/Ersetzen
22.06.2005 17:23:12
Nadine
Sub Textfeld2_BeiKlick()
Dim blatt As Worksheet
For Each blatt In ActiveWorkbook.Sheets
Range("F30:F200").Cells.Replace What:="Value", Replacement:="V.", LookAt:=xlPart, _
SearchOrder:=xlRows, MatchCase:=False
Next blatt
End Sub