Office: Zellenfarbe mit Mausklick wechseln und bestimmten wert dann ausgeben

Hi,

der Code aus meinem vorhergehenden Beitrag beinhaltet aber eine zusätzliche Zeile, und zwar im ElseIf-Teil.

So wie du deine Bilder hochlädst kannst du auch eine Excel-Mappe hochladen - unter "Zusätzliche Einstellungen" -> "Anhänge verwalten".

Bis später,
Karin

 

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   If Target.Interior.ColorIndex = xlNone Then
      Target.Interior.Color = 52377
   ElseIf Target.Interior.Color = 52377 Then
      Target.Interior.Color = 195633
      Range("A1") = Cells(Target.End(xlDown).Row, Target.Column)
   Else
      Target.Interior.ColorIndex = xlNone
   End If
End Sub

Bis später,
Karin

 

Hallo Karin,
danke, das sieht schon ganz gut aus, nur die Zelle die als leztes hellgrün makiert wurde, wird immer in A1 angezeigt.
Ich müsste aber die hellgrüne Zelle (deren Wert, wie ja auch soweit richtig funktioniert)
der zeile 24 in Zelle AP24 anzeigen
der zeile 21 in Zelle AP21
der zeile 18 in Zelle AP18
der zeile 15 in Zelle AP15
der zeile 11 in Zelle AP11

Vielleicht ist es aber auch so lösbar, in dem die erste hellgrüne Zelle in AP24 angezeigt wird, die zweite in AP21 .... und die fünfte in AP11.
Obwohl der Zeilenbezug mir lieber währe, so kommen keine Fehler zustande bei unterschiedlicher Reihenfolge des markierens der Zellen in hellgrün.

Danke an dieser Stelle.
Gruß leo4teo

 

Hi,

Genau so stand es doch in deiner Aufgabenstellung weiter oben...

Ändere diese Zeile (ungetestet):

Code:

Cells(Target.Row, "AP") = Cells(Target.End(xlDown).Row, Target.Column)

Bis später,
Karin

 

Hallo Karin,
1000 DANK!!!!

das ist es was ich hinbekommen wollte und nie erreicht habe.

Und wie ich sehe, hatte ich mich falsch ausgedrückt mit immer in A1.
Ich kann gar nicht DANKE genug sagen, weil es mich die letzten Wochen, bevor ich hier im Forum gelandet bin, des öfteren an den Rand der Verzweiflung gebracht hatte.
Danke! Danke! Danke!

Gruß leo4teo