Zählenwenns zum prüfen ob Daten vorhanden

Hallo,
ich habe eine riesen Excel-Tapete und würde gern eine Möglichkeit zur "Warnung" einrichten, um den Nutzer darauf aufmerksam zu machen, wenn Werte fehlen.
In der Theorie (die leider nicht klappt) hatte ich mir das so gedacht:
1. Schritt: Über der Spaltenüberschrift mache ich mir eine Hilfs-Zelle in der steht:
=ZÄHLENWENNS(A:A<>"";B:B="")
Leider funktioniert die Formel nicht.
2. Schritt: Nun wollte ich in dem Fall, dass in der Zelle eine Zahl größer 0 erscheint, eine Warnung ausgeben. Eine Möglichkeit wäre, diese Zelle dann einfach rot einzufärben. Das fällt schonmal auf. Bessere Möglichkeit wäre, wenn es ein Popup-Fenster gäbe. Das die Info ausgibt, man möge doch die Einträge überprüfen. Dieses soll aber die Eingabe nicht verhindern, sondern nur als Info erscheinen.
VG und lieben Dank vorab
Juliane

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Calculate() Application.EnableEvents = False Select Case Range("C6").Value Case 0 Range("C6").Interior.Color = xlNone Case Is > 0 Range("C6").Interior.Color = RGB(255, 0, 0) MsgBox "Warnung" End Select Application.EnableEvents = True End Sub

... 'Hier Code vor der Prüfung Select Case Range("C6").Value Case 0 Range("C6").Interior.Color = xlNone Case Is > 0 Range("C6").Interior.Color = RGB(255, 0, 0) MsgBox "Warnung" End Select ... 'Hier Code nach der Prüfung

Hi Juliane
Das Makro, dass Du in das Tabellenblatt eingefügt hast reagiert auf ein sogenennates Event. In dem Fall auf die Neuberechnung von Formeln, Das Calculate-Event. Die erste Zeile des Makros ...

Private Sub Worksheet_Calculate()

... ist in Excel sozusagen fest verankert. Sie sagt Excel, das dieses Makro auf das Calculate-Event reagieren soll. Christian hat das Change-Event in seinem Makro verwendet, dass er Dir zur Lösung angeboten hat. Bei dem reagiert Excel auf die erste Zeile des Makros, wenn eine Änderung im Tabellenblatt stattfindet. Die Neuberechnung einer Formel löst das Change-Event aber nicht aus, weshalb ich annehme, seine Lösung hat für Deinen Fall nicht funktioniert.
Die Zeilen ...

Application.EnableEvents = False

... und ...

Application.EnableEvents = True

... schalten die Event Erkennung aus, bzw. wieder ein. Das wird gebraucht, falls innerhalb dieser Zeilen etwas gemacht wird, was das Event neu auslöst. Es wird also verhindert, dass das Makro sich selbst aufrufen kann.
Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

Zählenwenns zum prüfen ob Daten vorhanden

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

328 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zählenwenns zum prüfen ob Daten vorhanden

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

328 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread