Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Change-Ereignis

Change-Ereignis
07.01.2007 15:27:58
Nico
Hallo zusammen,
ich würde gern wissen, wie ich in einem Sheet mehere Change Ereignisse abfangen kann. Der unten stehende Code funktioniert jedenfalls nicht so, wie er soll. Ich möchte gern zwei unterschiedliche Bereiche abfragen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y As Integer
If Intersect(Target, Range("AP11:AQ43")) Then  'erster zu überwachender Bereich
y = Target.Row   'gibt Zeile zurück, in der sich was geändert hat
'----Aufruf einer Funktion-----
Range("AJ" & y) = Stunden(y, Range("AP" & y).Value, Range("AQ" & y).Value)
ElseIf Intersect(Target, Range("E11:AI11")) Then   'zweiter zu überwachender Bereich
x = Target.Row   'gibt Zeile zurück, in der sich was geändert hat
'----Aufruf einer Funktion-----
Range("AK" & x) = SollStd(Range("AP" & x).Value, Range("AQ" & x).Value)
Else   'Funktion verlassen
Exit Sub
End If
End Sub

kann mir da jemand helfen?
Gruß Nico

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

Betreff
Datum
Anwender
Anzeige
AW: Change-Ereignis
07.01.2007 17:10:35
Peter
Hallo Nico,
versuch es einmal so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y As Integer
If Not Intersect(Target, Range("AP11:AQ43")) Is Nothing Then 'erster zu überwachender Bereich
y = Target.Row   'gibt Zeile zurück, in der sich was geändert hat
'----Aufruf einer Funktion-----
'Range("AJ" & y) = Stunden(y, Range("AP" & y).Value, Range("AQ" & y).Value)
ElseIf Not Intersect(Target, Range("E11:AI11")) Is Nothing Then   'zweiter zu überwachender Bereich
x = Target.Row   'gibt Zeile zurück, in der sich was geändert hat
'----Aufruf einer Funktion-----
'Range("AK" & x) = SollStd(Range("AP" & x).Value, Range("AQ" & x).Value)
Else   'Funktion verlassen
Exit Sub
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Change-Ereignis
07.01.2007 19:50:17
Nico
Hallo Peter,
vielen Dank für die schnelle Hilfe, funktioniert super und ist eigentlich ganz einfach, wenn man's weiß. :-)))
Gruß Nico

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige