Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion ausführen WENN

Forumthread: Funktion ausführen WENN

Funktion ausführen WENN
12.01.2006 13:42:36
andi
Problem:
Wie kann ich folgendes Ererignis abfangen und eine Funktion starten?
Zelle X wird mit einer Zahl gefüllt! starte Funktion
Gruß und vielen Dank
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion ausführen WENN
12.01.2006 13:54:58
richter
hallo,
folgenden code in das tabellenblatt des VBA-projekts einfügen, in dem die änderung stattfinden soll:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A1")
If Not Intersect(Target, Bereich) Is Nothing Then 'reagiert nur, wenn Zelländerung im Bereich
Call test
End If
End Sub

have fun
joe
Anzeige
AW: Funktion ausführen WENN
12.01.2006 13:58:10
Thias
Hi,
für Dich mittels der Recherche gefunden:

Sub Makro1()
If WorksheetFunction.CountBlank(Range(Cells(4, 4), Cells(4, 7))) = 4 Then
MsgBox "leer"
Else
MsgBox "nicht leer"
End If
End Sub

AW: Funktion ausführen WENN
12.01.2006 14:03:58
Beverly
Hi Andi,
diesen Code hinter die entsprechende Tabelle schreiben

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$4" Then Exit Sub
If Range("$A$4").Value = "x" Then MsgBox "Ich bin gefüllt mit 'x'"
End Sub

Code betrifft Zelle A4.
Bis später,
Karin
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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