Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Wert per anklicken übertragen
#1
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



.xlsm   Uwe.xlsm (Größe: 690,91 KB / Downloads: 5)
Antworten Top
#2
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Hi schauan,
das hat er 2 mal gefragt: siehe hier...

Ist also alles schon erledigt ^^
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste