Letzte Zelle merken

[maine-coon]

Hallo liebe Experten für Excel,

in der Datei möchte ich folgendes erreichen:
Ich selektiere die Zelle B2, mache dann einen Doppelklick in Zelle F2.
Jetzt soll B2 automatisch den Wert aus F2, also Montag, erhalten.

Gehe ich nach B22, Doppelklick auf F7 fügt dann Samstag ein.

Aber ich weiß nicht wie ich im Code für den Doppelklick die selektierte Zelle in der Spalte B ansprechen soll.
Denn sobald ich den Doppelklick ausführe ist ja die zuletzt gewählte Zelle aus der Spalte B nicht mehr die aktive Zelle.
Die MSG Box zeigt mir der Wert nach dem Doppelklick an.

Hier muss ich nun den Code haben (Copy Paste oder wie auch immer) von der Zelle der Spalte B, aus der ich kam vor dem Doppelklick.

Kann mir da jemand sagen wie ich das hinbekomme?
Vielen Dank im voraus.

[ralf_b]

die beiden Eventmakros sollten reichen.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.EnableEvents = False
    Target = ret
    Application.EnableEvents = True
   Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("F2:F8")) Is Nothing Then ret = Target.Value
End Sub

plus das hier in ein allgemeines Modul
Public ret As String

[maine-coon]

Hallo erstmal,

ich habe es so ausgeführt wie du es beschrieben hast.
In Tabelle1 steht jetzt das hier:

PHP-Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.EnableEvents = False
    Target = ret
    Application.EnableEvents = True
   Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("F2:F8")) Is Nothing Then ret = Target.Value
End Sub 


und in einem Modul das hier

PHP-Code:

Public ret As String 


Aber es funktioniert nicht.
Habe deine Vorgaben wohl falsch interpretiert.

[ralf_b]

  Liste cef_maine-coon .xlsm (Größe: 28,46 KB / Downloads: 2)

so schwer kann das ja nicht sein.  Wochentagzelle auswählen, nicht bearbeiten. Doppelklick auf Zielzelle.

[maine-coon]

Oha, ich hatte genau anders herum gemacht, weil ich auch so die Frage stellte.
Deshalb funktionierte es nicht.
So hatte ich die erste Lösung bereits korrekt von dir erhalten.

Vielen Dank für deine Hilfe.
Wünsche einen schönen Sonntag

[ralf_b]

ende gut alles. bau es doch um wie du es brauchst.