Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bereich aus anderer Tabelle für 2 Sekunden anzeigen

Gruppe

Ansicht

Problem

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

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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