Autor: Peter Haserodt  --- Aus Excel VBA - Gruppe: Verschiedenes

Zelle in nicht aktivem Blatt aktivieren

Autor: Peter Haserodt - Erstellt: --      - Letzte Revision: --
Wie verändert man die aktive Zelle in einem nicht aktivierten Tabellenblatt?
Hier eine Möglichkeit (Kleiner Excelbetrug - siehe unten):

Option Explicit
	
Public Sub ZelleInTabelleAktivieren()
	'Peter Haserodt 2006
	'Zelle in einem nicht aktivierten Tabellenblatt aktivieren
	Dim oZiel As Worksheet
	Set oZiel = Worksheets(1) ' Oder so
	oZiel.Range("a1").Copy
	oZiel.Range("a1").PasteSpecial (xlPasteFormats)
	Application.CutCopyMode = False
End Sub

Ein Hinweis sei noch gestattet:

So elegant wie dies auch aussehen mag, betrügt Excel hier.
Tatsächlich aktiviert Excel das Blatt, auf welchem das PasteSpecial ausgeführt wird.
Somit werden auch diesbezügliche Ereignismakros ausgeführt.
Letztendlich ist es dann doch ein Aktivieren und Deaktivieren, nur das wir es nicht ausführen.


Weitere Artikel der Gruppe: Verschiedenes Aus Excel VBA
Nach oben