Clever-Excel-Forum

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

[attachment=9820]

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

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

Ist also alles schon erledigt ^^

jjradu

schauan

Basisa