Hi
use
Sub Makro5()
'
Dim IDrng As range
Dim ID

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


--
Regards
Frank Kabel
Frankfurt, Germany


Reiner wrote:
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