Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro von Erich ergänzen? (Doppelklick)

Makro von Erich ergänzen? (Doppelklick)
12.02.2008 16:20:00
Erich
Guten Tag zusammen,
Erich hat mir gestern ein Makro geschrieben, dass Super funktioniert. Nun möchte ich mit dem gleichen Makro im gleichen Tabellenblatt, noch eine zusätzliche Berechnung machen, was ich aber alleine nicht hin bekomme und deshalb um eure Hilfe bitte.
Auf dem hochgeladenen Muster, ist es leichter zu verstehen, was ich genau möchte.
Hier das Muster: https://www.herber.de/bbs/user/49847.xls
Vielen Dank schon mal für eure Mühe.
Gruß Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Makro ergänzt (Doppelklick)
12.02.2008 17:56:27
Erich
Hallo Josef,
das sollte funzen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target(1), Range("C5:Z5")) Is Nothing Then
Cancel = True
Range("B5") = Target(1) / Target(1).Offset(-1, 0) ^ 2
ElseIf Not Intersect(Target(1), Range("C20:Z20")) Is Nothing Then
Cancel = True
Range("B20") = Target(1) / Target(1).Offset(-1, 0)
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Makro ergänzt (Doppelklick)
12.02.2008 20:00:00
Josef_T
Hallo Erich,
Genau so sollte es sein, perfekt!
Danke sehr Erich und schönen Abend noch.
Gruß Josef
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige