Office: (Office 2010) Zellbereich überwachen und bei Änderung andere Zelle um 1 erhöhen

Hi

Bräuchte mal wieder eure Hilfe.

Ich möchte per Fomularsteuerelement ein Makro starten und stoppen.

Dieses Makro soll dann einen Zellbereich überwachen (J3:J1000).
Wenn sich im Zellbereich eine Zelle ändert, soll in gleicher Zeile in Spalte "L" sich der Wert um 1 reduzieren.

Diese Überwachung soll solange andauern bis ich das Makro wieder ausschalte.


Danke schon mal im vorraus

Andreas

:)

 

Hallo Andreas,

für solche "Überwachungsfunktionen" sind in Excel Ereignismakros vorgesehen.
Durch welches Ereignis ändern sich denn die Werte in J3:J1000 ?

Falls diese Zellen manuell geändert werden ist das Ereignis Worksheet_Change das richtige.

Man kann innerhalb des Makros die Aktivität abhängig vom Wert einer Zelle ein- und ausschalten.

Diesen Eintrag kann man, wenn gewünscht über ein Makro zum Steuerelement ändern.

 

Hallo Helmut,

das Ereignis ändert sich momentan manuell.

Hatte dafür auch schon mal ein Makro versucht zu schreiben:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("J3:J1000")) Is Nothing Then

Range("").Value = Range("").Value - 1

End If


End Sub

In diesem Makro fehlt mir aber noch, das er immer in der Zeile wo sich der Wert ändert auch in Spalte "L" sich der Wert um 1 verringert.

Wie schreibt man sowas am besten?

Wie kann ich so ein Makro per Steuerelement ein und ausschalten?


Danke

Andreas

 

Hallo Andreas,

Code für das Codemodul des Tabellenblatts, das Du überwachen willst:
Code:

Code für ein allgemeines Modul (im VB-Editor Einfügen/Modul) namens Modul1
Code:

Das Makro anaus legst Du hinter den Button. Wenn Du einen ActiveX-Button verwenden willst, nimm das Click-Ereignis.

Die Überwachung ist beim Öffnen der Mappe standardmäßig aus und muss eingeschaltet werden. Wenn Du es anders herum willst, musst Du das Gegenteil von "If Modul1.blnAktiv" prüfen und sinnigerweise den Variablennamen anpassen.


Grüße
EarlFred

 

Hallo EarlFred,

vielen Dank....das klappt super. Genau so wie ich es wollte. Schön das es solche Foren gibt.

Gruß

Andreas

 

Hallo, ich hoffe ich kann dieses Thema nochmal aufgreifen.

ich versuche mich auch an so einem Code ran. Nur das nicht nach einer Spalte kontrolliert werden soll, sondern über Zeilen hindurch (A6:U6) und in X6 und Y6 bspw. "Änderung" steht. Dies soll für jede Zeile ab A6 bis zur letzten beschriebenen Zeile passieren..

Hat hierzu jemand vielleicht eine Idee?

Viele Grüße

 

Hallo,

Du musst dafür doch nur den überwachten Bereich anpassen:
Code:

Grüße
EarlFred

 

ok. wusste nicht dass, ich nur das ändern muss *Smilie

Jetzt gibt er mir aber eine Fehlermeldung bei ".blnaktiv "
Muss ich das noch irgendwie deklarieren?

Danke und Grüße

 

du musst einfach Beitrag #4 lesen und umsetzen...