Excel und VBA - Die Excel-FAQ

Bereich aus anderer Tabelle für 2 Sekunden anzeigen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Excel-Grundwerk (Beispiel-Arbeitsmappen) Excel-Tutorial Excel-Dialoge Excel-Forums-Archiv Excel-Grundlagen (Einführung) VBA-Grundlagen (Einführung) Zur Bestellseite

Bereich aus anderer Tabelle für 2 Sekunden anzeigen

Problem: Wie kann ich einen vorgegebenen Bereich aus einer zweiten Tabelle im aktiven Blatt für 2 Sekunden anzeigen lassen?


StandardModule: basMain

Sub Anzeige()
   Worksheets("Rang").Range("B2:M16").CopyPicture _
      Appearance:=xlScreen, Format:=xlBitmap
   With Worksheets("Tabelle1")
      .Paste Destination:=.Range("B2")
   End With
   Application.Wait Now + TimeSerial(0, 0, 2)
   ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub