VBA Problem der Reihenfolge

Hallo liebe Excel Helfer,
ich bräuchte bitte eure Unterstützung bzw. eine Info.
Habe in einem Tab.blatt in Spalte 4(D) verschiedene Zahlen stehen ( 1 - 80 ), und
würde nun gerne ein Makro haben dass sobald ich irgendeine Zeile in Spalte
5 auswähle, dass der Wert in Spalte 4 ( gleiche Zeile ) dann um 1 erweitert oder um 1 verringert wird.
( in Spalte 5 stehen jew. Verweisformeln, die anhand des Zahlenwertes in S.4 dann entsprechend in einer Namensliste verweisen)
Meinem Wunsch-handling nach würde ich gerne bei Rechtsklick in Spalte 5 den Wert in 4 dann abwerten, und bei Linksklick in Spalte 5 den Wert in Spalte 4 aufwerten ... und somit die Namen dann in der jeweiligen Zelle in Spalte 5 sozusagen durchzappen per Rechtsklick oder Linksklick hoch / runterwärts.
Ich habe dazu auch mal folgende Anweisungen geschrieben:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then
Cells(ActiveCell.Row, 4).Value = Cells(ActiveCell.Row, 4).Value - 1
Cancel = True
End If
End Sub

'----------------------------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
Cells(ActiveCell.Row, 4).Value = Cells(ActiveCell.Row, 4).Value + 1
End If
End Sub

Mit dem Ergebnis, dass es an sich so funktionieren würde, jedoch ist noch ein kleiner
Schönheitsfehler drinne !
Der Linksklick über Sel.Change reagiert so nur beim Wechsel in die Zeile, klicke ich mehrmals in die gleiche Zelle mit links, passiert nichts mehr ...
Beim Rechtsklick geht es so mehrmals ...
Habe ich von der Reihenfolge her was falsch gemacht ?
gibt es eine Möglichkeit, den Linksklick genauso mehrmals in der gleichen Zelle zu verwenden, dass bei jedem Linksklick jeweils in Spalte 4 um eins erweitert wird ?
Wäre euch sehr dankbar um eure Hilfe.
Liebn Dank
Udo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 5 Then Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value - 2 Cancel = True Application.EnableEvents = False Target.Offset(0, -1).Select Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 Then Cells(Target(1).Row, 4).Value = Cells(Target(1).Row, 4).Value + 1 Application.EnableEvents = False Target.Offset(0, -1).Select Application.EnableEvents = True End If End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread