Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range(VBA) - Ich komm nicht drauf

Range(VBA) - Ich komm nicht drauf
29.11.2005 08:29:56
Thomas
Hallo Excelfreunde,
ich habe eine kleine Situation die ich auf die schnelle nicht lösen kann :-)
Ich habe folgendes:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Mldg = "Wert eingeben"     ' Aufforderung festlegen.
Titel = "Punkteberechnung" ' Titel festlegen.
Voreinstellung = "10"      ' Voreinstellung festlegen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
ActiveCell.Value = ActiveCell.Value + Wert1
End Sub

Damit wird einfach nur beim doppelklick auf eine Zelle ein dialog geöffnet und der eingegebene Wert mit dem der Zelle addiert.
Jetzt möchte ich diese Funktion auf den Bereich B3 : G14 begrenzen. Ausserhalb dieser Matrix soll beim Doppelklick also nichts passieren.
Mfg und vielen Dank schonmal, Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range(VBA) - Ich komm nicht drauf
29.11.2005 08:39:18
Heiko
Hallo Thomas,
z.B. so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngUnion As Range
Set rngUnion = Application.Union(Range(Target.Address), Range("B3:G14"))
If rngUnion.Address = Range("B3:G14").Address Then
Mldg = "Wert eingeben"     ' Aufforderung festlegen.
Titel = "Punkteberechnung" ' Titel festlegen.
Voreinstellung = "10"      ' Voreinstellung festlegen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
ActiveCell.Value = ActiveCell.Value + Wert1
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Range(VBA) - Ich komm nicht drauf
29.11.2005 08:45:41
Worti
Hallo Thomas,
so geht's:

If Intersect(Target, Range("B31:G13")) Is Nothing Then
Exit Sub
End If

Worti
AW: Range(VBA) - Ich komm nicht drauf
29.11.2005 08:49:35
Thomas
Hallo ihr 2,
vielen Dank für die schnelle Antwort!
Hab´s ausprobiert und es klappt super. Vielen Dank!
Mfg, Thomas

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige