Find-Eigenschaft / Range-Objekt Fehler!!
11.08.2004 11:12:11
Dieter.K
ich habe ein Problem mit folgendem Code:
Sub ANSuche()
Dim rng As Range
Dim iCounter As Integer
Dim sSearch As String
sSearch = txtName1
If sSearch = "" Then
MsgBox ("Bitte geben Sie den Suchbegriff ein!")
txtName1.SetFocus
Exit Sub
End If
Set rng = Columns("C").Find( _
What:=sSearch, LookAt:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
For iCounter = 1 To 12
frmKundenAdressen.Controls("TextBox" & iCounter).Text = _
Cells(rng.Row, iCounter)
Next iCounter
End Sub
Der Code bleibt jedesmal in der Zeile
Set rng = Columns("C").Find( _
What:=sSearch, LookAt:=xlWhole, LookIn:=xlValues)
mit der Fehlermeldung
Laufzeitfehler 1004
Die Find-Eigenschaft des Range-Objektes kann nicht zugeordnet werden!
hängen.
In einer anderen Datei funktioniert der selbe Code einwandfrei.
Leider reichen meine VBA-Kenntnisse nicht (noch nicht) aus um dieses Problem zu lösen (komme dank Eurer Hilfe aber immer weiter ;-) )
Könnt Ihr mir hier weiterhelfen?
Danke
Gruß
Dieter.K