Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige