Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Änderung eines Zellenwertes Makro ausführen

Bei Änderung eines Zellenwertes Makro ausführen
18.07.2008 12:05:00
John
Hallo Zusammen,
ich möchte gerne ein Makro ausführen, wenn man in eine Zelle etwas eingetragen hat.
Konkret soll also nach "Return" ein Makro den neuen Wert der Zelle in eine mysql-DB schreiben. Das Schreiben klappt so ohne Probleme - mir fehlt nur noch der "Trigger-Event".
Ich konnte da jetzt nirgends etwas finden - hat jemand einen Tipp?
Tausend Dank schonmal vorab.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Änderung eines Zellenwertes Makro ausführe
18.07.2008 12:14:00
Beverly
Hi John,
dazu kannst du das Workseet_Change Ereignis verwenden

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then dein_makro
End Sub



AW: Bei Änderung eines Zellenwertes Makro ausführen
18.07.2008 12:16:00
UweD
Hallo
der Code muß in...
- rechte Maustaste auf den Tabellblattname unten
- Code anzeigen..
- reincopieren
- den Bereich noch abändern, wann das Makro aktiv werden soll (hier nur A1 und B1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
'dein Makro
End If
End Sub


Gruß UweD

Anzeige
AW: Bei Änderung eines Zellenwertes Makro ausführen
18.07.2008 12:37:12
John
Erstmal vielen Dank - das bringt mich schon ein Stück weiter (vor Allem, da ich den Aktivierungsraum einschränken kann) - löst aber noch nicht das Problem:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
fncUpdateZelle
End If
End Sub


Das Makro startet die Funktion.
Allerdings startet die Funktion mit einem Fokus auf eine neue Zelle. Und das Problem ist, dass die Zelleingabe den Fokus ja in beliebige Richtung verschiebt und ich aber ja den gerade geänderten Wert in die DB schreiben möchte - jetzt das System aber nicht weiss, wo der letzte Zellfokus lag.
Bsp:
Ich ändere den Wert in Zelle C3 und kann jetzt mit den Pfeiltasten oder der Return-Taste aus der Zelle raus. Der Wert ändert sich und triggert das Makro - und verschiebt aber den Fokus - damit wird der gerade geänderte Wert nicht geschrieben.
Eigentlich müsste das Makro ablaufen, bevor sich der Zellfokus verschiebt... geht das irgendwie?
Klar könnte ich auch die ganze DB schreiben, aber das ist mit der Performance Unsinn - ich will nur einen Wert schreiben.

Anzeige
AW: Bei Änderung eines Zellenwertes Makro ausführen
18.07.2008 12:55:09
UweD
Hallo
du suchst die Adresse der Zelle, die gerade geändert wurde?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
'die Zelle der Änderung ermitteln
MsgBox "Zelle: " & Target.Address
MsgBox "Spalte: " & Target.Column
MsgBox "Zeile: " & Target.Row
fncUpdateZelle
End If
End Sub


Gruß UweD

AW: Bei Änderung eines Zellenwertes Makro ausführen
18.07.2008 15:22:00
John
Hallo Uwe,
danke für den Tipp.
Ich habe jetzt mal versucht, der Funktion die Variable "Target" mit zugeben und habe immer einen Fehler bekommen. Kann aber auch sein, dass mein Syntax da falsch ist.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
fncUpdateZelle (Target)
End If
End Sub


Da kriege ich den Hinweis kein Objekt vorhanden.
Ich habe dann einen Kunstgriff gemacht und das geht wiederum:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
Cells(Target.Row, Target.Column).Activate
fncUpdateZelle
End If
End Sub


Vielleicht liege ich auch viel zu kompliziert...

Anzeige

48 Forumthreads zu ähnlichen Themen

Makro ausführen wenn Zellwert sich ändert
joko

Hallo alle zusammen,
ich hab da leider ein Problem.
Das Makro läuft, wenn ich es manuell starte richtig, wenn ich es per Atuomatik starte falsch.
Ich möchte:
Im Blatt 2 (FEB) die Spalte für den 29. Tag Jahreszahlabhängig ein und ausblenden.
Jahreszahl wird veränder im Blatt...
04.09.2009 20:47:54
Thread-ID: 1100695
3 Beiträge
Anzeige
Makro ausführen bei schließen der Mappe | Herbers Excel-Forum
Wolle
Guten Morgen Forum,
habe da ein Problem mit einem Makro. Ich möchte das es beim schließen der Mappe ausgeführt wird.
Das Makro unterbindet das Kopieren und ziehen von Zellen und wid beim start der Mappe aktiviert mit:
Private Sub Workbook_Open() CutCopyOff End Sub Dann wollte ich ich d...
26.01.2010 08:21:02
Thread-ID: 1132899
7 Beiträge
Makro ausführen wenn Zellwert sich ändert
Falk

Hallo zusammen,
ich habe folgende Herausforderung, von der ich überhaupt keine Ahnung habe wie ich es angehen soll.
Die Zelle A6 enthält ein Auswahlfelder (über Daten - Gültigkeit - Gültigkeitsprüfung - Liste) aus dem man zwei verschiedene Werte auswählen kann.
Ich möchte jetzt, wen...
28.01.2010 13:33:44
Thread-ID: 1133731
4 Beiträge
Anzeige
Makro ausführen auch bei Schreibschutz?
ck8600

Hallo,
ich habe eine Arbeitsmappe, die mit Makros versehen ist. Auf diese Tabelle greifen mehrere Personen zu.
Nun kann es passieren, dass 3 Leute gleichzeitig in die Datei wollen, einer ist der Glückliche und die anderen zwei, können die Datei nur im Schreibschutzmodus öffnen.
Die...
05.05.2010 13:43:39
Thread-ID: 1155592
5 Beiträge
Makro ausführen bei Eingabe x
Fritz_W

Hallo Forumsbesucher,
bitte um eure Hilfe.
Wie kann ich erreichen, dass immer wenn ich in der Tabelle in der Zelle X1 ein "x" eingebe,
das Makro "Test" gestartet wird.
Vielen Dank für eure Hilfe.
mfg
Fritz
12.06.2010 12:29:07
Thread-ID: 1161509
6 Beiträge
Makro ausführen, wenn Zellinhalt geändert wird
Dogbert

Hallo!
Ich habe in einer Zelle eine Datengültigkeit angegeben. Als gültig angegeben habe ich eine Liste von Werten, die in Zellen stehen. (Möglich sind die Werte "ja" oder "nein".)
Nun suche ich eine Möglichkeit, ein Makro auszuführen, sobald der Zellinhalt verändert wird. Wenn also "ja...
06.08.2010 10:12:51
Thread-ID: 1170856
6 Beiträge
Makro automatisch ausführen Zelländerung
Alex

Hallo an alle,
Folgendes Problem:
Wenn sich der Wert in der Zelle DF8 verändert soll
das Makro aktualisieren durchgeführt werden.
Wer kann mir helfen.
Garantierte Rückmeldung.
Danke
Alex
25.12.2010 11:49:54
Thread-ID: 1192777
4 Beiträge
VBA Makro ausführen bei Verlassen einer Zelle
KT

Hallo,
ich möchte gerne, dass mein Solver-Makro ausgeführt wird, wenn der Anwender die Zelle B1, B2, B3, B26, B27 oder B28 nach einer Veränderung verlässt. Zum besseren Verständnis habe ich hierzu meine Excel-Datei hochgeladen.
https://www.herber.de/bbs/user/74230.xls
Die Solverfun...
31.03.2011 14:28:47
Thread-ID: 1208514
3 Beiträge

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
2
10
6
3
14
4
5
5
3
2
1
3
2
8
3
3
4
12
13
4
2
8
10
4
1