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

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

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
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

Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige