Addition fester Werte auf Knopfdruck

12/06/2016 - 10:35 von Bernd | Report spam
Ich möchte auf "Knopfdruck" in drei Zellen den Wert erhöhen.
Der ersten Zelle (B25) sollen 67, der zweiten (B26) 62 und der dritten (B27) 28 dazu gezàhlt werden. Es handelt sich um einen Lagerbestand, der beim Eintreffen eines Ereignisses um die genannten Werte erhöht wird.
Vielen Dank
Bernd
 

Lesen sie die antworten

#1 Díetmar Vollmeíer
12/06/2016 - 11:29 | Warnen spam
*Bernd* schrieb am 12.6.2016 um 10:35 Uhr...
Ich möchte auf "Knopfdruck" in drei Zellen den Wert erhöhen.
Der ersten Zelle (B25) sollen 67, der zweiten (B26) 62 und der dritten (B27) 28 dazu gezàhlt werden. Es handelt sich um einen Lagerbestand, der beim Eintreffen eines Ereignisses um die genannten Werte erhöht wird.



Erstelle dir erstmal in deiner Mappe ein Modul für dein Makro
<https://support.office.com/de-de/ar...crovba>

In diesem Modul "Modul1" fügst du dann folgenden Code ein:

8<->8
Sub AddFixValue()
[B25] = [B25] + 67
[B26] = [B26] + 62
[B27] = [B27] + 28
End Sub
8<->8

Anschließend erzeugst du dir eine Schaltflàche und weist dieser obiges
Makro zu
<https://support.office.com/de-de/ar...olbar_>

Alternativ kannst du auch auf den ersten Schritt übergehen und den Code,
allerdings ohne Sub ... /End Sub direkt in "Schaltflàche1_Klicken"
einfügen.

Das würde dann so aussehen

8<>8
Sub Schaltflàche1_Klicken()
[B25] = [B25] + 67
[B26] = [B26] + 62
[B27] = [B27] + 28
End Sub
8<>8

Übersichtlicher, bei mehreren Makros, ist allerdings der erstgenannte
Weg.

HTH
Servus | Der Daten sind genug gewechselt, nun laßt uns endlich
Didi | Informationen sehen!

Ähnliche fragen