Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen per Doppelklick addieren

Zahlen per Doppelklick addieren
01.05.2006 23:47:06
Josef
Guten Abend zusammen,
habe mal wieder ein Problem, dass ich alleine nicht lösen kann.
In C12:C110 und in E12:E110, habe ich Zahlen stehen, die ich in D5 mit einem Doppelklick auf irgendeine Zahl in C oder E, summieren möchte.
Kann mir bitte jemand dabei helfen?
Danke schon mal im Voraus
Gruss Josef

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen per Doppelklick addieren
01.05.2006 23:53:17
Matthias
Hallo Josef,
z.B. so:
Ins Tabellenblattmodul:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const Bereich = "C12:C110,E12:E110"
Dim rng As Range
Set rng = Intersect(Target, Range(Bereich))
If Not rng Is Nothing Then
Beep 'akustisches Signal, kannst du auch wegklassen
Range("d5") = Range("d5") + Target
Cancel = True
End If
End Sub

Gruß Matthias
AW: Zahlen per Doppelklick addieren
02.05.2006 10:10:42
Josef
Guten Morgen Matthias,
Danke Dir sehr für die Lösung. Arbeitet alles einwandfrei.
Gruss Josef
AW: Zahlen per Doppelklick addieren
01.05.2006 23:58:02
Josef
Hallo Josef!
Kopiere diesen Code in das Modul der Tabelle.
Bei Doppellick auf "D5" wird die Zelle geleert!
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("E12:E110,C12:C110,D5")) Is Nothing Then
  Cancel = True
  If Target.Address = "$D$5" Then
    Target.ClearContents
  Else
    Range("D5") = Range("D5") + Target
  End If
End If
On Error GoTo 0
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zahlen per Doppelklick addieren
02.05.2006 10:19:12
Josef
Guten Morgen Sepp,
Deine Lösung für mein Problem, hat den Vorteil, dass ich ohne es extra zu erwähnen, die Summierung mit einen Doppelklick wieder löschen kann. Kannst Du Hellsehen?
Danke für Deine Lösung, arbeitet alles einwandfrei.
Gruss aus Köln
Josef
AW: Zahlen per Doppelklick addieren
02.05.2006 10:23:22
Josef
Guten Morgen Sepp!
Danke Dir für die einwandfrei arbeitende Lösung.
Gruss aus Köln
Josef

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige