Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle bei Änderung in Msgbox ausgeben

Zelle bei Änderung in Msgbox ausgeben
06.11.2014 09:13:34
Markus
Hallo Zusammen,
ich möchte eine Zelle z.Bsp. B3 als Msgbox ausgeben, aber nur wenn sich Zelle B3 ändert. Die Zelle wird mit einer Formel berechnet. Die Msgbox sollte nur einmal
angezeigt werden und erst bei der nächsten Änderung der Zelle B3 und auch nur in diesem Sheet.
Ich habe es auch schon mit Calculate versucht jedoch ohne Erfolg!
Das ist mein Ansatz.
Die Msgbox wird jedoch bei jedem Zugriff auf eine Zelle angezeigt.
If Worksheets("Test").Cells(2, 3).Value = "0" Then
Exit Sub
Else
MsgBox "Achtung! " _
& vbCrLf & "Bitte folgende Info beachten! " _
& vbCrLf _
& vbCrLf & [b3]
End If
Vielen Dank für Eure Hilfe.
Gruß Markus

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle bei Änderung in Msgbox ausgeben
06.11.2014 12:01:35
Frank
Hallo Markus,
dafür bietet sich das Ereignis Worksheet_Change-Ereignis an. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Dummy = MsgBox("Es ist vollbracht!", vbOKOnly, "B3 hat sich geändert")
End If
End Sub
Grüsse, Frank

AW: Zelle bei Änderung in Msgbox ausgeben
06.11.2014 13:26:47
Markus
Hallo,
funktioniert bei mir nicht!
Die Variable ist nicht definiert und ohne läuft es auch nicht.
Habe es in das Sheet geschriebn!?
Danke.
Gruß Markus

AW: Zelle bei Änderung in Msgbox ausgeben
06.11.2014 13:54:10
hary
Moin
Evtl. besteht die Moeglichkeit den Wert aus B3 in eine andere Zelle zu setzen. Nach dem Calculate wird verglichen und neu reingeschrieben.
D5 ist nur eine Bsp. Zelle 
Private Sub Worksheet_Calculate()
If Range("D5").Value  Cells(3, 2).Value Then
MsgBox "Wert geaendert"
Range("D5").Value = Cells(3, 2).Value
End If
End Sub

ansonsten mal mit einer Public Variablen probieren.
In Open Ereigniss die variable setzen und auch vergleichen.
gruss hary

Anzeige
AW: Zelle bei Änderung in Msgbox ausgeben
06.11.2014 16:42:12
Frank
Hallo Markus,
Die Variable ist nicht definiert und ohne läuft es auch nicht - Dann in den Abschnitt Deklarationen ein Dim Dummy einfügen oder das Option explicit löschen. Dann läuft es auch, ohne die Variable zu deklarieren.
MsgBox Target.Value funktioniert auch, einfach so als Zeile. Die Variablenzuweisung braucht man nur, wenn man noch Optionen für die Msgbox nutzen will (hier: Titelzeile und OK-Button). Weil man die Variable hier für sonst nix braucht, heisst die auch Dummy.
Den Code meines vorigen Postings kopieren, mit Alt-F11 den VBA-Editor öffnen, links in der Baumansicht des Projekts auf das Tabellenblatt doppelklicken und den Code einfügen. Ggf. noch das "Es ist vollbracht!" durch Target.value ersetzen (schreibt statt des Textes den Inhalt der Zelle in die MsgBox).
Grüsse,
Frank

Anzeige
AW: Zelle bei Änderung in Msgbox ausgeben
06.11.2014 16:54:35
Markus
Hallo,
habe es jetzt über einen Vergleich gemacht und läuft!
Danke für eure Hilfe und den richtigen Tip.
Gruß Markus
Private Sub Worksheet_Calculate()
If Range("B9").Value  Range("S4") Then
If ActiveSheet.Range("Q4").Value = "0" Then
Range("S4").Value = Range("B9").Value
Exit Sub
Else
MsgBox "Achtung! " _
& vbCrLf & "Bitte folgende Info beachten! " _
& vbCrLf _
& vbCrLf & Worksheets("Test").Range("Q4")
End If
Range("S4").Value = Range("B9").Value
End If
End Sub

AW: Zelle bei Änderung in Msgbox ausgeben
06.11.2014 17:23:38
hary
Moin Frank
Falls du nochmal reinschaust.
Sollte reichen. 
Private Sub Worksheet_Calculate()
If Range("B9").Value  Range("S4") Then
If Range("Q4").Value  "0" Then
MsgBox "Achtung! " & vbCrLf & "Bitte folgende Info beachten! " & vbCrLf & vbCrLf &  _
Worksheets("Test").Range("Q4")
End If
Range("S4").Value = Range("B9").Value
End If
End Sub

Und 'ne schoenere MsgBox:
MsgBox "Bitte folgende Info beachten! " & vbCrLf & vbCrLf & Worksheets("Test").Range("Q4"), vbInformation, "Achtung"
gruss hary

Anzeige
AW: Sry, meinte Markus gruss owT
06.11.2014 17:24:53
hary
.

AW: Zelle bei Änderung in Msgbox ausgeben
06.11.2014 16:55:02
hary
Moin Frank
Zitat:
"sich Zelle B3 ändert. Die Zelle wird mit einer Formel berechnet"
da hilft Change nicht.
gruss hary

Ja, danke, habe ich übersehen owT
06.11.2014 17:04:36
Frank

306 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
Anzeige
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
Zellen farbig unterlegen bei Eingabe über Inputbox
Jochen

Hallo Forum
Ich habe eine Tabelle in der werden über eine Inputbox in die Zellen A9 bis K9 Werte eingetragen.
Diese Werte werden der Reihe nach über die Inputbox eingetragen.
Gibt es eine Möglichkeit das die geweils angesprochene Zelle für die Zeit der Eingabe die Farbe
wechselt...
09.11.2008 13:54:18
Thread-ID: 1023062
7 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Wert aus aktiver Zelle in InputBox übertragen
Axel

Hi ihr fleißigen Helferlein :)
Ich habe hier eine Suchfunfunktion mit InputBox.
Ist es irgendwie möglich beim Start des Makros den Wert der aktiven Zelle in die Inputbox automatisch zu übertragen, so das ich ihn nicht selbst hineintippen/kopieren brauch?
Die Suche soll trotzdem über...
13.12.2008 07:44:52
Thread-ID: 1032569
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
9
1
2
2
6
6
1
2
9
3
7
7
3
14
3
4
5
2
4
4
1
4
1