Office: Aufaddieren von ganzen Spalten

Hi Thorbin,

nur Spalte A? Was ist mit Spalte B? Was soll passieren wenn das Kontrollkästchen nicht aktiviert ist? Beschreibe doch noch mal genau was wann wie passieren soll.

Was hat es nun plötzlich mit dem Button auf sich?

Bis später,
Karin

 

Hallo karin.

Der Konkrete Fall sieht folgendermaßen aus.
Spalte B enthält Werte die nicht sofort übernommen werden sollen. Erst wenn der Preis aller bestellten Artikel akzeptable ist, soll die Menge in B von dem Lagerbestand in H abgezogen werden.
Ob das nun über das aklicken eines Kontrollfeldes oder über die Betätigung eines Buttons geschieht ist dabei völlig belanglos

Ich hänge hier mal die Originaldatei an um die es geht.

mfg
Thorbln

 

Hi Thorbin,

weise dieses Makro einem Schalter zu:

Code:

Sub BestandKorrigieren()
    Dim loZeile As Long
    loZeile = 2
    Do
        If Cells(loZeile, 2) <> "" Then Cells(loZeile, 8) = Cells(loZeile, 8) - Cells(loZeile, 2)
        loZeile = loZeile + 1
    Loop While Cells(loZeile, 1) <> ""
End Sub

Bis später,
Karin

 

Hallo Karin,
super, danke, genau das was ich brauche.
:-D
mfg
Thorbln