Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro ausführen wenn....

makro ausführen wenn....
16.01.2004 12:54:12
jonathan
sich der wert einer bestimmten zelle ändert.....

Hallo übrigends!

Jonathan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro ausführen wenn....
16.01.2004 13:00:53
P@ulchen
Hallo Jonathan,
für Zelle A1 (Code in das Modul des Tabellenblattes):


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

     Code eingefügt mit Syntaxhighlighter 2.1

Gruß
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: makro ausführen wenn....
16.01.2004 13:04:10
Matthias G
Hallo P@ulchen,
um auch das Ereignis abzufangen, wenn sich unter mehreren Zellen auch die Zelle A1 geändert hat (bei Mehrfachauswahl oder Bereichsauswahl), sollte man besser folgende Abfrage verwenden:
If Not Intersect(Target, Range("A2")) Is Nothing Then Dein Makro
Gruß,
Matthias
geb ich Dir natürlich Recht....oT
16.01.2004 13:17:20
P@ulchen
AW: makro ausführen wenn....
16.01.2004 13:00:55
Matthias G
Hallo Jonathan,
folgenden Code ins Codemodul des betr. Blattes:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
DeineProzedur
End If
End Sub

Als Beispiel hier Änderung in Zelle A2
Gruß,
Matthias
Anzeige
AW: makro ausführen wenn....
16.01.2004 13:24:17
jonathan
super, funt. - wie immer - ;-)
danke

Jonathan
AW: Danke für die Rückmeldung - o.T.
16.01.2004 13:27:19
Matthias G
-
AW: makro ausführen wenn....
16.01.2004 13:10:33
xXx
Hallo,
ändert sich der Wert der Zelle durch direkte Eingabe oder durch Berechnung (Formel)?
Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen an die Antworter!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige