Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In Worksheet_Deactivate() Code per Modul schreiben

Forumthread: In Worksheet_Deactivate() Code per Modul schreiben

In Worksheet_Deactivate() Code per Modul schreiben
08.10.2007 20:37:54
OliverBreith
Hallo Excelprofis,
nachdem ich schon sehr viele meiner Ideen mit Hilfe eures Forums realisieren konnte, habe ich nun auch eine Frage.
Ich formatiere mit einem Add-In alte Excel-Dateien (Zellfarben; bedingte Formatierungen) und bringe diese auf den "Stand der Dinge"
Nun möche ich noch mit diesem Add-In Code in das Worksheet_Deactivate() Ereignis schreiben.
Wie kann ich dieses realisieren?
Vielen Dank im Voraus
Gruß aus Lörrach
Oliver Breith

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Siehe Beispiel auf vba1.de
08.10.2007 22:00:05
NoNet
Hallo Oliver,
auf dieser Seite findest Du ein Beispiel für das "Worksheet_SelectionChange()"-Ereignis.
Analog dazu kannst Du auch das "Worksheet_Deactivate()"-Ereignis programmieren :
http://vba1.de/vba/020makrorein.php
Viel Erfolg dabei, wünscht NoNet

Anzeige
AW: In Worksheet_Deactivate() Code per Modul schreiben
08.10.2007 22:18:00
OliverBreith
Supi, vielen Dank für die schelle Antwort
ich denke das funkt !!!!

AW: In Worksheet_Deactivate() Code per Modul schreiben
08.10.2007 23:11:00
Luschi
Hallo Oliver,
da der Vbe-Befehl "CreateEventProc" die gewünschte Prozedur neu erzeugt, ohne zu testen, ob es die Prozezur schon gibt, habe ich das Beispiel mal so erweitert, daß eine schon vorhandene Prozedur vorher gelöscht wird.
Dazu ist dann allerdings der Verweis 'Microsoft Visual Basic fie Applications Extensibility 5.x' _ erforderlich. 

Sub Makro_einfuegen()
Dim x1 As Long, x2 As Long, x3 As Long
With ActiveWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
On Error GoTo error_1
x1 = .ProcBodyLine("Worksheet_SelectionChange", vbext_pk_Proc)
On Error GoTo 0
If x1 > 0 Then
x2 = .ProcCountLines("Worksheet_SelectionChange", vbext_pk_Proc)
.DeleteLines x1, (x2 - x1 + 2)
End If
continue_1:
x1 = .CreateEventProc("SelectionChange", "Worksheet")
MsgBox x1
.InsertLines x1 + 1, "'dieses Makro wurde per Makro eingefügt"
.InsertLines x1 + 2, "MsgBox ""Hallo, Hallo !!!"""
.InsertLines x1 + 3, "MsgBox ""Ballo, Ballo !!!"""
.InsertLines x1 + 4, "MsgBox ""Knallo, Knallo !!!"""
End With
Exit Sub
error_1:
On Error GoTo 0
GoTo continue_1
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige
AW: In Worksheet_Deactivate() Code per Modul schreiben
10.10.2007 00:39:00
OliverBreith
Hallo Luschi,
ist ja wirklich klasse wie ich hier Unterstützung bekomme. Auch Dir vielen dank für dir Mühe. Ich habe mein Projekt bereits weiter gebastelt, aber dieser Hinweis werde ich sicher noch benötigen.
Vielen Dank
;

Forumthreads zu verwandten Themen

ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Anzeige
Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
HEIMAT-Workbook eines VBA-Makros ermitteln?
Johann

Hallo,
ich habs irgendwo einmal gelesen, aber mit den Schlüsselworten +Workbook +Makro +ursprung findet man immer zu viele Treffer, aber nie die richtigen.....
Meine Frage:
Ich habe ein VBA-Makro, welches generell mit dem Activeworkbook arbeitet. Das ist irgendeine Excel-Datei in d...
01.04.2009 12:37:23
Thread-ID: 1065958
2 Beiträge
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 Beiträge
Worksh_Activate per manuell od VBA unterscheidbar?
Jörg

Hi Leute
eins der Blätter in meiner Datei zeigt beim manuellen Aktivieren eine MsgBox "nix verändern..." usw, damit man daran erinnert wird, nicht versehentlich was reinzukritteln.
Dummerweise wird im Verlauf einer anderen Prozedur dies Blatt auch zwischendurch aktiviert - prompt kommt...
23.05.2009 14:03:32
Thread-ID: 1076847
5 Beiträge
Anzeige
2 VBA Befehle in einem Worksheet
Reinhardt

Liebe Excelgemeinde,
ich habe ein (hoffentlich) einfaches Problem:
Ich habe eine VBA Code, der mir bestimmte Werte anzeigt, Name: Gültigkeitsliste / Filterdropdown
sitzt in "Q5".
Nun soll im selben Tabellenblatt ein zweiter Filter reingesetzt werden (Zelle "S5"), der zusätzlic...
19.08.2009 11:50:28
Thread-ID: 1097047
12 Beiträge
Anzeige
Druckbereich formatieren für alle Sheets VBA
Florian

Hi,
hab ein kleines Problem mit dem Druckbereich, finde irgendwie keine Losung:
Ziel ist es, ein komplettes Workbook (mehrere Sheets, jedes Sheet hat gleiche Struktur, aber unterschiedliche Anzahl Zeilen) auszudrucken (Datei wird neu per Makro erzeugt, Druckbereich muss also auch per Ma...
23.12.2009 11:11:47
Thread-ID: 1125701
5 Beiträge
Anzeige
VBA - xlSheetHidden-Blätter bearbeiten
Dogbert

Hallo!
Ich habe immer wieder folgendes Problem: Ich muss aus einer Arbeitsmappe, die versteckte Arbeitsblätter enthält, die versteckten Blätter rauslöschen.
Nun suche ich ein Makro, das mir dieses erledigt, es soll so aussehen (jetzt mal ganz umgangssprachlich formuliert):
n = Anz....
05.11.2010 11:44:42
Thread-ID: 1185339
3 Beiträge
VBA Sheets anlegen - Fehler
chris

Hallo VBA Experten,
ich habe eine frage.Ich habe eine Datei angehängt.
Warum kann ich das Makro nicht 2 mal ausführen ?
Das ganze ist jetzt ein Test gewesen.Ich möchte gerne in der Datei mehere Tabellenblätter anlegen.
Deshalb das Makro 2 mal Ausführen.Es kommt aber beim 2 klic...
14.12.2010 15:19:23
Thread-ID: 1191415
4 Beiträge
Zellüberwachung auf mehreren Worksheets via VBA
Frank

Hallo zusammen,
ich möchte in einem Workbook (mit einer Vielzahl von Worksheets) Veränderungen in bestimmten Zellen per VBA abfabgen und ein Event auslösen lassen.
Ich möchte auf keinen Fall auf in jedem einzelnen Worksheet ein "Worksheet_Change" verwenden, sondern das ganze am liebsten...
15.04.2011 14:35:58
Thread-ID: 1210614
9 Beiträge
VBA: mehrere workbooks & -sheets
Dani

Hallo Excel- Koryphäen,
Habe folgendes Problem, wo ich keinen passenden code im Archiv finden konnte.
Habe 17 xls-files mit je 2 worksheets.
Der Tabellen-Aufbau ist immer identisch und ich möchte nun für all diese 17 workbooks & deren 2 worksheets die Spaltenbreite anpassen und...
02.08.2012 14:21:51
Thread-ID: 1273532
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige