Range(VBA) - Ich komm nicht drauf
29.11.2005 08:29:56
Thomas
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