Find Funktion und Laufzeitfehler 91
21.10.2004 12:44:51
Stefanie
ich habe seit letzter Woche Office XP.
Das folgende Makro lief unter Excel 97 einwandfrei. Beim Abspielen unter Office XP
erscheint Fehlermeldung 91 und ich habe keine Ahnung warum.
Anbei das Makro
Private Sub CommandButton1_Click()
Dim frm2 As UserForm2
Set frm2 = UserForm2
With frm2
Sheets("2").Select
Range("a1:z1").Select
On Error GoTo Fehler
Selection.Find(What:=CDate(TextBox1.Value), After:=ActiveCell, _
LookIn:=xlDate, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).EntireColumn.Select
UserForm2.Hide
Exit Sub
Fehler:
MsgBox "Datum konnte nicht gefunden werden"
End With
End Sub
Leider habe ich noch ein anderes Verständnisproblem. Ich habe mit dem Makrorekorder folgendes Makro aufgezeichnet und verändert und es erscheint der gleiche Fehler
Sub Makro2()
'
'
' On Error GoTo ERRORHANDLER
With Worksheets(1)
Range("A1").Select
Cells.Find(What:=CDbl("14905,46"), After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Columns("H:H").Select
End With
Exit Sub
ERRORHANDLER:
MsgBox "Suchbegriff nicht gefunden!"
End Sub
Vielleicht weiß ja einer Rat.
Anzeige