Makro für Excel97 übersetzen ?
12.07.2004 20:11:54
Walter
habe ein kleines Problem. Mein Makro funktioniert nur in Excel2000, ich brauch
dies jedoch auch in Excel97.
Wenn ich es starte, Fehlermeldung: 1004 kann Find-Eigenschaft nicht
des Range-Objekts kann nicht zuordnen werden.
Hier mein Makro:
Private Sub Textbox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rng As Range
Set rng = ActiveCell
Set rng = Worksheets("Tabelle3").Range("a1:c300").Find(What:=Me.TextBox3, _
LookIn:=xlValues, LookAt:=xlWhole)
If rng Is Nothing Then
MsgBox "Wert wurde nicht gefunden."
Else
MsgBox "Wer in Zelle " & rng.Address & " gefunden"
rng.Select
End If
End Sub
Hoffentlich kann mir jemand helfen?
Gruss Walter
Anzeige