Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Frage zu Ereingnismakro

Frage zu Ereingnismakro
28.09.2004 14:49:02
Hans-Jürgen
Guten Tag,
ich habe folgendes Ereignismakro:

Private Sub Worksheet_Change(ByVal Target As Range)
if Target.Address <> "$B$3" Then Exit Sub
If Target.Value > 0 Then Fonds
End Sub

Wie kann ich noch die Zellen B17 und B18 einfügen? Wenn in diesen ein bestimmter Wert eingegeben wird, soll auch je ein Makro starten.
MFG Hans-Jürgen

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

Betreff
Datum
Anwender
Anzeige
AW: Frage zu Ereingnismakro
Reinhard
Hi Hans-Jürgen,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "B3"
If Target.Value > 1 Then Call Fonds
Case "B17"
If Target.Value = "tzu" Then Call Fonds2
Case "B18"
If Target.Value = "skljdfg" Then Call Fonds3
End Select
End Sub

Gruß
Reinhard
AW: Frage zu Ereingnismakro
WernerB.
Hallo Hans-Jürgen,
wie gefällt Dir das?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Intersect(Range("B3,B17:B18"), Target) Is Nothing Then Exit Sub
If Target.Value > 0 Then
Select Case Target.Address(False, False)
Case "B3"
Call Fonds
Case "B17"
Call Fonds2
Case "B18"
Call Fonds3
End Select
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige