Ich möchte aus dieder Formel es so haben das es eine Ja/Nein Box gibt und wenn ja das man dann einen Link öffnen kann (Local also per Pfad angabe)
Sub A()
Worksheets("Datenbank").Range("A3:c16").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Worksheets("Menu").Paste Destination:=Worksheets("Menu").Range("d6")
MsgBox "Weiter mit Mausklick..."
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub
Gruß Uwe W