Registriert seit: 28.12.2017
Version(en): 2016
Hallo,
irgendwie funktionieren heute Morgen meine grauen Gehirnzellen noch nicht. Ich möchte, wenn ich in eine Zelle (Zelle: W7) klicke ein Makro (Makro: Haus1) ausführen lassen. Das Makro funktioniert auch, nur mit dem Aktivieren der Zelle habe ich so meine Mühe. Über eine kleine Hilfestellung wäre ich dankbar.
VG
Peter
Registriert seit: 10.04.2014
Version(en): 2016 + 365
29.12.2017, 12:20
(Dieser Beitrag wurde zuletzt bearbeitet: 29.12.2017, 12:20 von Rabe.)
Hi,
Du kannst mit einem Aktivier-Event für die Zellen ein Makro starten, mußt dazu dann aber die Zellen einschränken.
Mir fällt leider gerade der Name des Events nicht ein und ich habe hier kein Excel.
Gehe im VBA-Editor im Worksheet auf die Auswahl oben rechts und suche Dir den richtigen Event.
Registriert seit: 11.04.2014
Version(en): Office 365
29.12.2017, 12:26
(Dieser Beitrag wurde zuletzt bearbeitet: 29.12.2017, 12:26 von Klaus-Dieter.)
Hallo,
diese Ereignisprozedur schreibst du in das Modul des Tabellenblattes, in dem sie wirken soll. Soll es nur in bestimmten Zellen wirken, muss das mit Intersect definiert werden.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Haus1
End Sub
Dein Makro gehört in ein Standardmodul.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 28.12.2017
Version(en): 2016
Hallo,
ich bin schon jenseits der 60zig und in der VBA-Sprache nicht so bewandert. Events und Intersect sind für mich böhmische Dörfer. Das Makro soll auch nur funktionieren, wenn ich auf Zelle W7 klicke.
Peter
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo Peter,
dann versuche es so:
Zitat:Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("W7"))
If Not isect Is Nothing Then Haus1
End Sub
Zitat:ich bin schon jenseits der 60zig und in der VBA-Sprache nicht so bewandert.
Die Ausrede gilt übrigens nicht, ich bin über 70.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 28.12.2017
Version(en): 2016
Hallo Klaus-Dieter,
vielen Dank für die schnelle und auch hilfreiche Unterstützung. Jetzt funktioniert es so, wie ich es mir vorstelle.
PS: Und zum Alter sei gesagt. Man ist so alt, wie man sich fühlt. Und ich fühle mich sehr alt, denn, wenn man all das nicht mehr machen kann, was einem vorher viel Freude bereitet hat. Zur EDV bin ich erst vor 3 Jahren gestoßen. Nach mehreren OPs. Vorher kannte ich nur meinen Job (Handwerksmeister) und die Liebe zum Fußball (Über 40 Jahre Jugendtrainer).
Viele Grüße
Peter