Doppelklick auf Zelle .. Fehler wenn Wert Leer

Bild

Betrifft: Doppelklick auf Zelle .. Fehler wenn Wert Leer
von: Sabrina
Geschrieben am: 11.10.2015 13:15:11

Hallo Leute,
Ich habe in dem Bereich A5:T18 sowie A24:T40 per Formel Zahlen ( oder leer ) drinnen stehen.
Wenn man ein Doppelklick drauf macht soll der Inhalt in die Zelle A19 geschrieben werden.
Ich habe Fundstücke zusammengesucht. Es funktioniert außer wenn die Zelle leer ist.
Kann mir jemand weiterhelfen?
https://www.herber.de/bbs/user/100709.zip
LG Sabbel

Bild

Betrifft: AW: Doppelklick auf Zelle .. Fehler wenn Wert Leer
von: Hajo_Zi
Geschrieben am: 11.10.2015 13:22:32
es sind die falschen Dateien. In keiner ist ein Doppelklick Ereignis.


Bild

Betrifft: AW: Doppelklick auf Zelle .. Fehler wenn Wert Leer
von: Sepp
Geschrieben am: 11.10.2015 13:23:13
Hallo Sabrina,
warum so kompliziert?

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Not Intersect(Target, Range("A5:T18,A24:T40")) Is Nothing Then
  Cancel = True
  If Target <> "" Then
    Range("A19") = Target
    'Call Lager
  Else
    Range("A19") = ""
  End If
End If

End Sub

Gruß Sepp


Bild

Betrifft: AW: Doppelklick auf Zelle .. Fehler wenn Wert Leer
von: Sabrina
Geschrieben am: 11.10.2015 14:19:54
Danke Sepp,
du bist der beste!
LG
Sabbel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Doppelklick auf Zelle .. Fehler wenn Wert Leer"