Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1608to1612
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
Inhaltsverzeichnis

VBA Code Start bei Zelle ändern

VBA Code Start bei Zelle ändern
23.02.2018 08:59:41
Katrin
Hallo,
ich habe den unten stehen Code, hier wird mein Diagramm aktualisiert,
sobald ich die Zelle A1 anklicke.
Ich möchte aber, dass mein Diagramm nur aktualisiert wird, wenn ich die
Zelle A1 verändere.
Weiß mir auch hier wieder jemand Rat?
Vielen Dank schonmal, Gruß
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'hier steht noch mein restlicher Code'
If Intersect(Target, Range("A1:A1")) Is Nothing Then Exit Sub
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code Start bei Zelle ändern
23.02.2018 09:13:05
UweD
Hallo
dann musst du auch das Change Event nehmen
Private Sub Worksheet_Change(ByVal Target As Range)
LG UweD
Benutze das Worksheet_Change-Ereignis o.w.T.
23.02.2018 09:13:43
Beverly


AW: VBA Code Start bei Zelle ändern
23.02.2018 09:16:20
Willi
Hallo Katrin,
versuch es mal so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") then
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End if
End Sub

Das ist Käse @Willi
23.02.2018 12:18:31
EtoPHG
Hallo Willi,
Ein Vergleich wie
If Target = Range("A1") Then
prüft, ob die veränderte Zelle den gleichen Inhalt wie die Zelle A1 hat. Also reiner Zufall. Willst du aber prüfen ob sich der Inhalt der Zelle A1 verändert hat dann:
'so
If Target.Row=1 And Target.Column=1 And Target.Count=1 Then
'oder so
If Target.Address = "$A$1" Then
'oder so
If Target.Address(0,0) = "A1" Then
'oder so (wie die Anfragerin), leicht modifiziert
If Intersect(Target, Range("A1")) is nothing Then Exit Sub
'...diese Befehle durchführen.
Gruess Hansueli
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige