Hi, all
on the macro der Wert "ID" in Column "b" is not available the Error
Message pop up Runtimeerrot 91 Objectvariable or With-Blockvariable not
set.
Sub Makro5()
'
Dim ID As Integer

Range("D1").Select
ID = Range("D1")
Columns("B:B").Select

Selection.Find(what:=ID, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns,SearchDirection:=xlNext,M atchCase_
:=False, SearchFormat:=False).Activate

ActiveCell.Offset(0, 1).Activate
ActiveCell.Select
Selection.Copy

Range("F1").Select
ActiveSheet.Paste

End Sub


Thanks
Reiner

Reiner
ERR 91 is because the value you are looking for is not in the rang
selected. Below I added Resume Next if the value is not found a msgbo
will be displayed showing you the value not found.

HTH

Charles



Sub Makro5()
'
Dim ID As Integer

Range("D1").Select
ID = Range("D1").Value
Columns("B:B").Select
On Error Resume Next
Selection.Find(What:=ID, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Err = 91 Then
MsgBox "Could not find " & ID
Exit Sub
End If
ActiveCell.Offset(0, 1).Activate
ActiveCell.Select
Selection.Copy

Range("F1").Select
ActiveSheet.Paste

End Su

--
Message posted from http://www.ExcelForum.com