Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Zellwert sich ändert soll ein Macro laufen

Wenn Zellwert sich ändert soll ein Macro laufen
Helga
Hallo zusammen,
ich möchte, wenn sich der Wert einer Zelle von "" auf 1 ändert,
ein Makro aufgerufen wird. Es soll aber ständig der Zellwert überprüft
werden. Der Zellwert ändert sich aber maximal für eine Sekunde,
danach ist der Wert der Zelle wieder ""
Doch hiermit klappt es nicht: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("L41") = True Then Call Übertrag
End Sub
Wo habe ich den Fehler?
Danke schon mal im Voraus
Helga
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 13:22:48
Dirk
Hallo Helga,
wie wird denn der Wert in der Zelle geaendert? Erfolgt das durch Benutzereingabe oder durch ein Macro?
Gruss
Dirk aus Dubai
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 13:27:01
Helga
in der Zelle steht eine Formel.
Gruß
Helga
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 13:30:13
JogyB
Hallo Helga,
dann geht es nicht so wie ich es im anderen Posting geschrieben habe, da sich L41 für das Worksheet_Change Ereignis nie ändert. Welches sind denn die Zellen, die in der Formel stehen? Liegen die auf demselben Tabellenblatt?
Gruß, Jogy
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 13:27:16
JogyB
Hallo Helga,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("L41"), Target) Is Nothing Then
If Range("L41") = 1 Then Call Übertrag
End If
End Sub
TRUE entspricht in VBA -1 und nicht 1. Und das Intersect(...) ist dazu da um zu prüfen, ob sich die Zelle überhaupt geändert hat. Sonst steht da doch mal länger 1 in der Zelle und bei jeder Änderung einer anderen Zelle wird dann wieder Übertrag ausgeführt.
Gruß, jogy
Anzeige
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 18:02:05
Helga
Also,
erst einmal Danke, aber leider läuft das nicht :-(
In meiner Tabelle "D2" läuft ein Counter rückwärts, der mir Stunde, Minute und Sekunde anzeigt.
Diesen Counter aber starte ich selber.
In der Zelle "J41" habe ich die Formel =MINUTE(D2)
und in "K41" habe ich die Formel =SEKUNDE(D2) stehen.
Nun frage ich in Zelle "L41" =WENN(und(J41=0;K41=0);1;"")
Und wenn dann in "L41" eine 1 erscheint, soll das Makro "Übertrag" ausgeführt werden.
In Zelle "L41" erscheint dann auch die 1, aber das Makro wird trotzdem nicht ausgeführt.
Ich bringe es einfach nicht fertig :-((
Helga
Anzeige
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 18:26:00
JogyB
Hallo Helga,
geht das? 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pruefRange As Range
Dim nextLevel As Range
On Error GoTo errorHandler
Set pruefRange = Range("L41")
Set nextLevel = pruefRange.Precedents
' Vorgänger sammeln, also die Zellen, die in der Formel stehen
Do
Set pruefRange = Union(pruefRange, nextLevel)
Set nextLevel = nextLevel.Precedents
Loop
weiter:
On Error GoTo 0
If Not Intersect(Target, pruefRange) Is Nothing Then
If Range("L41") = 1 Then Call Übertrag
End If
Exit Sub
errorHandler:
Resume weiter
End Sub
Wieso prüfst Du eigentlich nicht direkt D2, also so: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then
If IsDate(Range("D2").Text) Then
If Minute(Range("D2")) = 0 And Second(Range("D2")) = 0 Then
Call Übertrag
End If
End If
End If
End Sub
Gruss, Jogy
Anzeige
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 19:15:03
Helga
Hallo Jogy,
danke, das erste Sub läuft nicht, aber das zweite läuft super.
Nur....
kann ich nach der Ausführung Makro "Übertrag" noch eine Sekunde Pause einlegen,
denn das Makro wird 2 Mal ausgeführt.
Gruß
Helga
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 19:24:29
JogyB
Hallo Helga,
ja, das geht. Um es richtig gut zu machen, bräuchte ich eine Beispielmappe, aber das sollte auch tun: 
Private Sub Worksheet_Change(ByVal Target As Range)
Const paUse = 1 ' pause in Sekunden
If Not Intersect(Target, Range("D2")) Is Nothing Then
If IsDate(Range("D2").Text) Then
If Minute(Range("D2")) = 0 And Second(Range("D2")) = 0 Then
If Not keinÜbertrag Then
keinÜbertrag = True
Call übertrag
Application.OnTime Now + TimeSerial(0, 0, paUse), "resetMarker"
End If
End If
End If
End If
End Sub

Und das hier noch in ein allgemeines Modul (also nicht in ein Modul, das zu einer Tabelle gehört): 

Public keinÜbertrag As Boolean
Public Sub resetMarker()
keinÜbertrag = False
End Sub

Gruß, Jogy
Anzeige
AW: Wenn Zellwert sich ändert soll ein Macro laufen
26.07.2010 20:00:56
Helga
Hallo Jogy,
vielen Dank :-))
Ich habe es endlich geschafft :-)
Habe jetzt einfach einfach nur eine "Application.Wait" von 1 Sekunde
nach dem Makro "Übertrag" eingesetzt.
Nochmals vielen Dank und noch einen schönen Abend wünscht Dir
und natürlich auch der ganzen Gemeinde hier
Helga

308 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
8
4
7
7
2
1
4
4
2
2
3
4
2
2
1
2
5
5
2
33
3
5
1
3