Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Zählfunktion durch doppelklick

Forumthread: Zählfunktion durch doppelklick

Zählfunktion durch doppelklick
26.04.2008 14:01:55
roland
Hallo zusammen. Ich benötige mal die Hilfe von einem Fachmann. Ich habe ein Rechnungsprogramm, mit einer Produktpalette. Wenn ich mein eingetragenes Produkt in der Palette doppelt anklicke, wird es automatisch in das Rechnungsprogramm übernommen. Durch dieses Doppelklicken soll aber auch ein Zählwerk in einer Zelle der gleichen Spalte um 1 verringern.
Es muß also wie folgt aussehen.
Durch doppelklick im Bereich AO32-BN32 , soll BT32 -1 Zählen
Das natürlich für jede weitere Spalte auch.
Also
doppelklick AO33-BN33 = BT33 -1
doppelklick AO34-BN34 = BT34 -1
doppelklick AO35-BN35 = BT35 -1
u.s.w.
Es währe nett, wenn mir jemand einen solchen VBA Code basteln könnte. Ich stoße dabei leider an meine Grenzen. mit bestem Dank....Roland

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählfunktion durch doppelklick
26.04.2008 15:29:55
Gerd
Hallo Roland,
ungetestet.
'ins Tabellenblattmodul bzw. in die dort bereits vorhandene Prozedur einbauen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim usw As Long
usw = 50 'Beispiel
If Not Intersect(Target, Range("AO33:BN" & usw)) Is Nothing Then
Range("BT" & Target.Row).Value = Range("BT" & Target.Row).Value - 1
End If
End Sub


Die Cells-Schreibweise wäre natürlich besser. Wie Du die letzte Zeile definieren könntest,
kann ich deiner Frage nicht entnehmen.
Gruß Gerd

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige