Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Doppelklick dann....

Doppelklick dann....
24.07.2008 16:28:00
amina
Hallöchen nochmal,
hab eine Frage und hoffe auf eine Antwort.
Ich möchte gern, dass wenn ich in Zelle S12 doppelklicke, dass der Inhalt von der Zelle AH5 in der Zelle R12 steht.
Kann mir jemand den Code dann auch erklären da ich des mit dem doppelklick und den Inhalt übertragen in verschiedenen Zellen einbringen muss.
Bin echt dankbar dafür.
Gruß

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelklick dann....
24.07.2008 16:40:18
Backowe
Hi,
für Dein zweites Problem bitte mal ein konkretes Beispiel, ansonsten geht das so:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Code in das entsprechende Tabellenblatt
If Not Intersect(Target, [S12]) Is Nothing Then [R12] = [AH5]
End Sub
Gruss Jürgen

Anzeige
so gehts ...
24.07.2008 16:46:00
Matthias
Hallo amina
Code in die entsprechende Tabelle

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [S12]) Is Nothing Then
[R12].Value = [AH5].Value
End If
End Sub


Wenn Du in S12 einen Doppelklick ausführst, ist S12=Target (also S12 ist die auslösende Zelle)
Damit das nur in dieser einen Zelle passiert ist diese Codezeile:
If Not Intersect(Target, [S12]) Is Nothing Then
also wenn in S12 doppelklick, dann Code ausführen. Sonst ginge es nach End If weiter, also End Sub

.
hier das Beispiel:
https://www.herber.de/bbs/user/54115.xls
Gruß Matthias

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige