Thema: Rechte Maustaste Inhalt von bestimmter Zelle

Hallo
Ich hab da einen VBA Code mit dem ich mit der Rechten Maustaste Zellen färben kann. Wie kann man den Code umstellen das keine Farben gesetzt werden sondern die Inhalte in Spalte A. Code und Beispiel in der Datei.

https://www.herber.de/bbs/user/174909.xlsm

Mfg Heiko

Hi

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)



If Not Intersect([B2:M2,B3:M3,B4:M4,B5:M5,B6:M6,B7:M7,B8:M8,B9:M9], Target) Is Nothing Then

   If Target.Value = "" Then

      Target.Value = Target.Offset(0, 1 - Target.Column).Value

   Else

      Target.ClearContents

   End If

   Cancel = True



End If

End Sub

bei der Referenz auf die spalte A gibt' verschiedene Möglichkeiten.
andere wären:
Cells(Target.Row, 1).Value
Intersect(Target.EntireRow, Columns(1)).Value

Gruß Daniel

Hi
danke für deine schnelle Hilfe. Klappt super. Kann man noch was ändern damit man mehr Zellen markieren und eintragen kann. So wie mit den Farben. Da konnte man auch mehrere Zellen Färben.

Mfg Heiko

Hi
bei mehreren Zellen stellt sich die Frage, was passieren soll, wenn die markierten Zellen nicht alle gleich sind, dh einige sind befüllt, einige sind nicht befüllt?
was soll dann passieren?
im prinzip gibts zwei Möglichkeiten
a) die Zellen, die einen inhalt haben, werden geleert, die Zellen, die leer sind, bekommen den Inhalt aus Spalte A
b) alle Zellen werden gleich bearbeitet, wobei man dann festlegen muss, wie bestimmt wird ob die Zellen gefüllt oder geleert werden.

Gruß Daniel