Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro bei Zelländerung anpassen

Makro bei Zelländerung anpassen
22.03.2006 17:45:09
Sebastian
HAllo zusammen,
ich habe folgendes Problem. Ich will ein Makro automatisch anpassen sobald sich in einer bestimmten Zelle der Wert ändert. Das Makro sieht folgendermassen aus:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Call AUSBLENDEN1
'Call AUSBLENDEN2
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sheets("Exp_Report").Select
Sheets("Exp_Report").Range("A1").Select
End Sub

Ich will jetzt, dass bei einer Änderung auf dem Blatt "Names" in der Zelle "C15"
die Funktion "Call AUSBLENDEN2" dauerhaft aktiviert wird.
Ist das irgendwie möglich? Falls ja kann mir bitte jemand weiterhelfen. Danke.
Grüße Sebastian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro bei Zelländerung anpassen
22.03.2006 18:36:47
IngGi
Hallo Sebastian,
vielleicht so?
Call AUSBLENDEN1
If Sheets("Names").Range("T15") = 1 Then Call AUSBLENDEN2
und in's Modul des Tabellenblattes Names:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C15")) Is Nothing Then Range("T15") = 1
End Sub
Gruß Ingolf
AW: Makro bei Zelländerung anpassen
23.03.2006 08:33:42
Sebastian
Hi Ingolf danke für deinen Tip. Hab das ganze kleines bisschen abgeändert und jetzt funzt es einwandfrei.
Grüße Sebastian
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige