Makro einer Zelle zuordnen

[Pitter 1953]

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

[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.

[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.

[Pitter 1953]

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

[Klaus-Dieter]

Hallo Peter,

dann versuche es so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set isect = Application.Intersect(Target, Range("W7"))
    If Not isect Is Nothing Then Haus1
End Sub

ich bin schon jenseits der 60zig und in der VBA-Sprache nicht so bewandert.

Die Ausrede gilt übrigens nicht, ich bin über 70.

[Pitter 1953]

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