VBA

Makro im Hintergrund abspielen (Application.ScreenUpdating)

Roman VBA (Makros) , , , , , ,

Sobald ein Makro andere Tabellen öffnen und viele Befehle ausführen soll, eignet es sich, dieses im Hintergrund abzuspielen. Dadurch sieht der Benutzer nur das fertige Resultat, nicht jedoch die Einzelschritte im Schnelldurchlauf, was vorwiegend wie ein "Flackern" des Bildschirms aussieht. Um diese Hintergrundverarbeitung zu aktivieren, benötigt man lediglich zwei Codezeilen: Zu Beginn schaltet man die Sichtbarkeit aus [False], am Ende des Makros oder eines beliebigen Code-Abschnitts aktiviert man sie wieder [True]:

Sub MeinMakro()

Application.ScreenUpdating = False

...

...

Application.ScreenUpdating = True

End Sub

Dadurch, dass das Makro im Hintergrund verarbeitet wird und man die einzelnen Verarbeitungsschritte nicht sieht, ist das Programm grundsätzlich auch schneller fertig ausgeführt.

Ein YouTube-Video in Excel einbinden

Roman Allgemein, VBA (Makros) , , , , , , ,

Excel muss nicht immer "eintönig" sein – Du kannst Deine Excel-Tabelle zum Beispiel auch mit Leichtigkeit mit YouTube-Videos versehen. Dafür solltest Du als erstes im Menüband die "Entwicklertools" einblenden – dieser Tab hilft Dir allgemein im Umgang mit Makros und sogenannten Steuerelementen. Ein solches werden wir uns hier anschauen. Die "Entwicklertools" kannst Du unter "Datei" → "Optionen" → "Menüband anpassen" aktivieren:

In diesem Menüpunkt klickst Du unter "Einfügen" rechts unten auf "weitere Steuerelemente" (WeitereSteuerelemente) und suchst dann nach "Shockwave Flash Object". Du kannst "S" auf Deiner Tastatur eingeben, um den Begriff rascher zu finden. Klicke danach auf "OK" und ziehe ein Rechteck in Deiner Tabelle, wo das Video angezeigt werden soll. Die Grösse kannst Du später jederzeit noch anpassen.

Gehe nun auf YouTube, kopiere die URL (beispielsweise https://www.youtube.com/watch?v=evuJ2roYMsg) Deines gewünschten Videos und bearbeite diese wie folgt:

  1. Entferne "watch?"
  2. Ersetze "=" durch "/"
  3. Füge "?fs=1&hl=en_US" ans Ende der URL

Die überarbeitete URL lautet demnach:

https://www.youtube.com/v/evuJ2roYMsg?fs=1&hl=en_US

Füge diese bei "Movie" ein, nachdem Du mittels Rechtsklick auf Dein Rechteck die "Einstellungen" aufgerufen hast:

Eigenschaften

Stelle zudem sicher, dass die Einstellungen gemäss obigem Bild sind - beispielsweise "True" bei "EmbedMovie". Sobald Du nun den "Entwurfsmodus" im Menüband deaktivierst (klicke hierfür auf das Symbol "Entwurfsmodus" im Register "Entwicklertools"), kannst Du Dein Video direkt in Excel abspielen.

VBA - Meldungen (Display Alerts) automatisch umgehen

Roman VBA (Makros) , , , , , , ,

Makros können alle denkbaren Befehle ausführen – und sogar noch mehr. Auch wenn Du beispielsweise in Excel ein Tabellenblatt löschen möchtest, wirst Du gefragt, ob Du dies tatsächlich tun willst:

DisplayAlert

Um diese Meldungen (sogenannte Display Alerts) zu umgehen/zu überspringen, helfen zwei Codezeilen:

Application.DisplayAlerts=False

Application.DisplayAlerts=True

Am besten fügst Du diese beiden Zeilen exakt vor und nach dem entsprechenden Befehl ein:

Application.DisplayAlerts = False

Sheets("Tabelle1").Delete

Application.DisplayAlerts = True

Dadurch schränkst Du auch ein, dass sonstige mächtige Befehle ohne Dein Wissen und Deiner ausdrücklichen Bestätigung ausgeführt werden.