Frage: VBA Code mit Zelle kopieren

[Ironangel]

Hallo zusammen,

ich habe für eine Zelle (A13) einen VBA Code hinterlegt. Wenn man auf diese Zelle klickt, dann geht zurzeit eine msgbox auf. Wenn ich diese Zelle jetzt kopiere, möchte ich diese Aktion auch für die kopierte Zelle haben. Ist sowas möglich?

Viele Grüße

[RPP63]

Moin!
Sind ziemlich dünne Infos.
Wenn Du ein Selection_Change() meinst:
Nein, das dürfte nicht funktionieren.

Warum nimmst Du nicht Daten, Datengültigkeit, Eingabemeldung?
Dann hast Du beim selektieren der Zelle eine kommentarähnliche Anzeige.
Dies lässt sich dann auch beim kopieren der Zelle vervielfältigen.

Gruß Ralf

[Ironangel]

Guten Morgen,

das ist mein Code:

Code: Alles auswählen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address(0, 0) <> "A13" Then Exit Sub
    Cancel = True
    MsgBox "Test"
End Sub


der dafür sorgt, dass bei einem Doppelklick auf Zelle A13 eine msgbox startet. Später soll eine userform gestartet werden. Wenn ich die Zelle jetzt kopiere und unterhalb von A13 einfüge, dann ist das ja die Zelle A14. Wenn ich jetzt auf A14 drücke, dann soll ebenfalls die msgbox angezeigt werden. Mein Problem ist, dass das die Zellen A7,11,13,15,17,19, und 21 betrifft. Wenn ich jetzt den Code bis A21 setze und oberhalb wird die Zelle A13 zweimal kopiert und eingefügt, dann geht diese Tabelle ja bis A25 und da ist dann nicht dieser Code hinterlegt der eine Aktion beim doppelklicken auslöst.

Ich hoffe, ich habe es einigermaßen verständlich rübergebracht.

[slowboarder]

Hi

So direkt geht das nicht.
Ein möglicher Workaround wäre, dass du die Zellen mit einer bestimmten Hintergrundfarbe färbst und dann im Makro diese Farbe abfragst.
Die Farbe wandert beim Kopieren ja mit:

Code: Alles auswählen

If Target.Column = 1 and Target.Interior.Color = vbRed then MsgBox "Test"

Oder du kennzeichnet die Zeilen in einer freien Spalte mit einem "x" und fragst das ab:

Code: Alles auswählen

if target.Column = 1 And cells(target.row, "Z") = "x" then MsgBox "Test"

Gruß Daniel

[Ironangel]

Danke für den Tipp. Ich werde es versuchen und mich wieder melden.

[Ironangel]

Die Idee mit der Farbe ist gut. Klappt gut.

Danke und viele Grüße