Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range(VBA) - Ich komm nicht drauf

Forumthread: 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
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

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