Umschreiben auf Excel 97
05.02.2003 11:27:50
Gerhard
Laüft nähmlich nur unter Excel 2000.
Danke Gerhard
Private Sub Worksheet_Change(ByVal Target As Range)
Dim B As Variant
Dim Find As Range
If Target.Address <> "$A$3" Then Exit Sub
Cancel = True
Set Find = Columns("B:Cy").Find(Range("A3").Value, _
lookat:=xlWhole, LookIn:=xlValues)
If Not Find Is Nothing Then
Find.Select
Selection.Interior.ColorIndex = 6
B = Find
Else
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
Call Zurück
End Sub
Public Sub Zurück()
Range("A3").Select
Range("B1") = B
End Sub