Excel Clipboard kopieren

[Hilfesuchender]

Hallo

Ich möchte in Excel ein dateiübergreifendes Makro entwerfen, das nach Werten sucht.

Problem:
Das automatisch generierte Makro schreibt nicht den dynamischen Wert aus dem Clipboard in die Suchfunktion, sondern bleibt bei einem Wert. Im Beispiel 85.
Wie lese ich nun den Zahlenwert aus dem Clipboard aus, um ihn an die Suchfunktion übergeben zu können?



Sub Makro16()
ActiveCell.Offset(0, 2).Range("A1").Select Selection.Copy
Selection.Copy
Windows("störung 11b.xls").Activate
Cells.Find(What:="85", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("stehtage at b.xls").Activate
Sheets("Tabelle1").Select
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("störung 11b.xls").Activate
ActiveCell.Offset(0, 2).Range("A1").Select
Selection.Copy
Windows("stehtage at b.xls").Activate
Sheets("Tabelle1").Select
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub


;(

Thanks in advance