Also so ziemlich das, was der Titel schon sagt. Ich habe eine Tabelle für ein Budget, an dem ich arbeite, und ich möchte eine Schaltfläche, damit ich jede Woche, wenn ich bezahlt werde, darauf klicken kann und der bereits ausgezahlte Lohn dem Pool des zugewiesenen Geldes für jede Ausgabe hinzugefügt wird.
Klicken Sie hier für meinen Tisch
Ich habe also alle Berechnungen für die Verteilung der wöchentlichen Auszahlung auf die Ausgaben ausgearbeitet, kann aber nicht herausfinden, wie ich die Schaltfläche so codieren muss, dass sie das tut, was ich brauche.
Ok, grundsätzlich brauche ich alle Zahlen von D6 bis D48, die zu den benachbarten Zahlen in E6 bis E48 addiert werden. Allerdings muss die neue Zahl auch in dieser Spalte erscheinen, als würde jedes Mal einfach der neue Betrag hinzugefügt. D. h. E6 = E6+D6 und jedes Mal, wenn Sie die Taste drücken, wird einfach der Inhalt von Spalte D zu Spalte E addiert.
Entschuldigen Sie mein Geschwafel und ich hoffe, es ergibt Sinn.
Vielen Dank für jede Hilfe im Voraus
Peter
Antwort1
Ok, ich habe es also geschafft, den Code mit großer Hilfe von Scott zum Laufen zu bringen. Vielen Dank für Ihren Beitrag, ich weiß ihn sehr zu schätzen. Hier ist der Code, den ich erstellt habe:
Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Double
Range("E2").Value = Range("E2").Value + 1
For x = 6 To 48
y = Range("E" & x).Value
Range("E" & x).Value = y + Range("D" & x).Value
Next x
End Sub
Ich habe außerdem oberhalb der Stelle, an der ich die Schaltfläche platziert habe, einen Zähler hinzugefügt, damit ich weiß, ob ich sie in dieser Woche bereits gedrückt habe oder nicht.