Wert per anklicken übertragen

[jjradu]

Hallo.

Ich möchte gern einen Wert per anklicken in eine andere Zeile bringen.

In Zelle K1 ergibt sich immer ein anderer Wert der durch die Spalten M-N-O sich ergibt.
Dieser entstandene Wert in K1 soll nach B26 gebracht werden durch einen Klick auf K1.

Problem was es dann noch gibt, wenn der Wert angekommen ist in B26, soll beim neuen Wert in K1 durch anklicken, der neue Wert in  B27 gehen. Danach dann in B27, dann B28 usw

Habe die Datei mal angehängt.


Wenn mir da jemand helfen könnte, das wäre super klasse.

Gruß
Jürgen



  Uwe.xlsm (Größe: 690,91 KB / Downloads: 5)

[schauan]

Hallöchen,

das wäre eine Lösung für den Doppelklick.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Wenn die Klickadresse K1 ist, dann
   If Target.Address = "$K$1" Then
     'Wenn in B26 nix steht, dann
     If Cells(26, 2).Value = "" Then
       'Eintrag aus K1 in B26 uebernehmen
       Cells(26, 2).Value = Target.Value
     'alternativ zu Wenn in B26 nix steht, dann
     Else
       'Eintrag aus K1 unter dne letzten Eintrag von Spalte B uebernehmen
       Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Value = Target.Value
     'Ende Wenn in B26 nix steht, dann
     End If
   'Ende Wenn die Klickadresse K1 ist, dann
   End If
   'Eingabemodus verlassen
   Cancel = True
End Sub

Edge-Browser & nach Einfügen in der VBE rote Zeilen im Code?
Dann hier nachschauen: http://www.clever-excel-forum.de/misc.ph...help&hid=9

[Basisa]

Hi schauan,
das hat er 2 mal gefragt: siehe hier...

Ist also alles schon erledigt ^^