Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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ß

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige