Zelleninhalt nach doppelklick kopieren

Bild

Betrifft: Zelleninhalt nach doppelklick kopieren
von: D. Henschel
Geschrieben am: 18.09.2015 13:10:55

Hallo,
ich habe eine Liste D7:S7, je nachdem auf welche Zelle per doppelclick geklcikt wird, soll der Inhalt der jeweiligen Zelle (z.B. F7) in A1 kopiert werden.
Ist dies möglich? Wahrscheinlich nur per VBA oder?
Möchte das benutzen um ein Summewenn zu erstellen
VG

Bild

Betrifft: AW: Zelleninhalt nach doppelklick kopieren
von: RPP63
Geschrieben am: 18.09.2015 13:27:42
Hi!
Folgendes ins Modul der Tabelle kopieren:
(Rechtsklick auf Tabellenreiter, Code anzeigen)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D7:S7")) Is Nothing Then
   Range("A1") = Target
   Cancel = True
End If
End Sub
Gruß Ralf

Bild

Betrifft: AW: Zelleninhalt nach doppelklick kopieren
von: D. Henschel
Geschrieben am: 18.09.2015 13:31:18
perfekt danke

Bild

Betrifft: AW: Zelleninhalt nach doppelklick kopieren
von: D. Henschel
Geschrieben am: 18.09.2015 14:10:49
perfekt danke

Bild

Betrifft: AW: Zelleninhalt nach doppelklick kopieren
von: D. Henschel
Geschrieben am: 18.09.2015 14:22:44
Kann ich dies so ergänzen, dass er die jeweilige Zelle in D7:S7 nach dem Doppelklick anders formatiert (z.B. Dunkelblau und Weisser Text) ?

Bild

Betrifft: AW: Zelleninhalt nach doppelklick kopieren
von: RPP63
Geschrieben am: 18.09.2015 14:43:36
Moin!
Dann wird es umfangreicher:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Set Bereich = Me.Range("D7:S7")
If Not Intersect(Target, Bereich) Is Nothing Then
   With Bereich
      .Interior.Color = xlNone
      .Font.ColorIndex = 1 'schwarz
   End With
   With Target
      .Interior.ColorIndex = 5 'blau
      .Font.ColorIndex = 2 'weiß
      Range("A1") = .Value
   End With
   Cancel = True
End If
End Sub
Gruß Ralf

Bild

Betrifft: AW: Zelleninhalt nach doppelklick kopieren
von: D. Henschel
Geschrieben am: 18.09.2015 14:46:15
Klappt bestens, danke

Bild

Betrifft: AW: Zelleninhalt nach doppelklick kopieren
von: D. Henschel
Geschrieben am: 18.09.2015 14:46:16
Klappt bestens, danke

Bild

Betrifft: einfacher:
von: RPP63
Geschrieben am: 18.09.2015 14:51:11
Nimm meinen ersten Code und weise eine bed. Formatierung zu:
markiere D7:S7
Start, bed. Formatierung, neue Regel, Formel ist:
=D7=$A1
Format zuweisen.
Gruß Ralf

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zelleninhalt nach doppelklick kopieren"