Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

132 Forumthreads zu ähnlichen 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
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
Anzeige
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
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
17
4
7
1
1
4
11
4
2
3
2
8
4
3
6
2
2
12
7
3
5
4
2
6
4