Excel - Bei Klick auf Button in Zelle Springen
Guten Abend,
Ich brauche Hilfe bei der Erstellung eines Makros in Excel:
Die Excelmappe besteht aus mehreren Tabellenblättern. Eine Datenbank und ein übersichtlicheres Datenblatt.
Ich möchte es hierbei ermöglichen, dass der Anwender über die Übersicht die Datenbank abändern kann.
Bei einem Klick soll folgendes geschehen:
Der Wert einer Zelle der Datenbank soll mit dem Wert aus R18 überschrieben werden. Die Spalte der Datenbank ist fest (B).
Die Zeile ergibt sich aus der Nummer des Datensatzes (wird in R10 angegeben) +1. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Wie würde die Formel aussehen, wenn statt eines Ersetzen des Inhalts, der Wert aus R18 hinzuaddiert wird?
Bsp Datenbank!B10(neu)=R18+Datenbank!B10(alt)
Gibt es eine Möglichkeit, diese über ein Makro auszuführen?
Vielen Dank!
1 Antwort
Ich bin mir nicht sicher, ob ich das richtig verstehe, aber vielleicht kannst Du meinen Code ja noch anpassen, falls es nicht klappt:
Private Sub CommandButton1_Click()
Dim Zielzelle As Range
Dim Zielzeile As Long
Zielzeile = ActiveSheet.Range("R10").Value + 1
Set Zielzelle = Sheets("Datenbank").Cells(Zielzeile, 2)
Zielzelle.Value = Zielzelle.Value + ActiveSheet.Range("R18").Value
End Sub
Sehr vielen Dank!
Es funktioniert so, wie es soll!