Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Popup Fenster

VBA Popup Fenster
26.01.2017 11:04:15
Beate
Hallo zusammen,
ich möchte gerne ein Makro schreiben, dass ein Popup-Fenster mit dem Text "Achtung" aufzeigt, sobald die Summe aus Zelle A1 und B1 größer als 0 ist.
Kann mir jemand helfen?
Wäre super!
lg

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Popup Fenster
26.01.2017 11:13:24
EtoPHG
Hallo Beate,
Frage: Wie kommen die Daten in A1 und B1 ? Wenn durch Formeln, welches sind die Quell-Zellen, in die manuell oder durch Datenabfragen Werte geschrieben werden, welche dir Formelwerte beeinflussen?
Gruess Hansueli
AW: VBA Popup Fenster
26.01.2017 11:19:22
Mullit
Hallo,
mal ein Bsp.:
' ********************************************************************** 
' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes 
' ********************************************************************** 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Address = "$A$1" Or .Address = "$B$1" Then _
       If WorksheetFunction.Sum(Range("$A$1:$B$1")) > 0 Then _
          Call MsgBox("Achtung!", vbExclamation)
End With
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 14

Gruß, Mullit
Anzeige
AW: VBA Popup Fenster
26.01.2017 13:24:26
Beate
Hallo ihr beiden,
vielen Dank für Eure Hilfe!
Ich wollte es vereinfacht darstellen und habe die Zellen deswegen A1 und B1 genannt.
In meiner Datei liegen sie leider nicht nebeneinander, weshalb ich nicht mit "Range" arbeiten kann.
Es ist A130 und D168. Dazwischen befinden sich Zellen, die nicht in die Summen-Berechnung miteinfließen sollen.
Sorry dafür! So weit hatte ich nicht gedacht.
Die Zellen werden beide anhand von Formeln befüttert!
LG!
Welche Zellen es sind ist nebensächlich,
26.01.2017 13:41:43
EtoPHG
Beate,
Die Adressen genügen. Da du aber sagst: Die Zellen werden beide anhand von Formeln befüttert!
Kommt wieder meine entscheidende Frage (siehe oben):
Welches sind die Quell-Zellen (Adressen), die diese Formeln befüttern? ...oder welche Formeln stehen in den beiden Zielzellen?
Gruess Hansueli
Anzeige
AW: Welche Zellen es sind ist nebensächlich,
26.01.2017 15:15:47
Beate
Sorry! Es sind auch jeweils Summenformeln.
A130 = Summe(B130:W130)
D168 = Summe(D170:D190)
LG.
Nun verwirrt mich .... sind auch jeweils
26.01.2017 15:54:44
EtoPHG
Summenformeln, Beate
Heisst das: B130:W130 enthalten ebenfalls Summenformeln? Wenn ja wo liegt die Quelle derer... bis zur Quelle die ich suche: Welche Zellen-Bereiche werden manuell (durch Benutzereingaben) geändert, so das sich die Werte in A130 & A168 ändern ?
Gruess Hansueli
AW: Nun verwirrt mich .... sind auch jeweils
30.01.2017 10:19:30
Beate
Manuelle Einträge werden in
E132 - E151 und
E170 - E190 gemacht.
Aus diesen Eingaben ergeben sich die oben beschriebenen Summen.
LG
Diesen Code ins Tabellenblatt
30.01.2017 13:14:05
EtoPHG
Beate,
Kopier den Code in das Tabellenblatt (im VB-Editor Blatt doppelklicken und Copy-Paste) 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E132:E151")) Is Nothing Or _
Not Intersect(Target, Range("E170:E190")) Is Nothing Then
If Range("A130") + Range("D168") > 0 Then
MsgBox "Warnung: Die Summe ist nicht gleich 0!", _
vbExclamation + vbOKOnly, "A130+D168"
End If
End If
End Sub
Gruess Hansueli
Anzeige
AW: VBA Popup Fenster
26.01.2017 13:42:03
Werner
Hallo Beate,
und weshalb beantwortest du die Frage von Hansueli nicht?
Genau für diesen Fall (mit Formel) hat er die Frage gestellt. Lies dir doch seinen Beitrag nochmals durch.
Gruß Werner

119 Forumthreads zu ähnlichen Themen

PopUp mit Eingabefeld
Peter

Hallo!
Wer kann mir hier weiterhelfen? Ich versuche ein PopUp zu erstellen, in welchem ein Eingabefeld für einen Betrag ist. Der Betrag soll dann in eine Zelle der Tabelle geschrieben werden. Bisher kann ich leider nur diese Pop ups erstellen:
Sub Abfrage() If MsgBox( _ prompt:="Bitte...
27.10.2008 23:54:26
Thread-ID: 1019775
2 Beiträge
Anzeige
pop up Fenster bei Fehler eines updates
Michael

Hallo!
Ich habe eine Tabelle die alle 30 Minuten im Hindergrund aktualisiert wird. Wenn bei der Aktualisierung ein Fehler auftritt, soll ein popup Fenster erscheinen. (Egal wo ich mich dann aktuell im System befinde/ Word / outlook etc.)
Danke
Gruß Michael
01.10.2009 12:12:04
Thread-ID: 1106590
4 Beiträge
VBA "Abfrage Vorname - dann Pop up mit Namen
Fabio

Hallo zusammen,
für einen "Kleinen Gag" suche ich ein "VBA-Script" (oder so), das folgendes ausführt:
1. Beim Start der Datei soll vor der eigentlich ein "Fenster" aufgehen, in dem man nach dem Vornamen gefragt wird" - und den man dann eintippen muss.
2. Nach "ok" - soll ein weitere...
29.01.2010 18:22:34
Thread-ID: 1134221
4 Beiträge
Anzeige
POP UP Fenster
pitmu1@web.de

Hallo zusammen,
suche eine Excel Lösung für folgendes Problem:
Habe z.Bsp. eine Zelle in der die Anzahl meiner Besuche im z.Bsp. April stehen.
Beim Klicken auf diese Anzahl soll nun ein POP UP Fenster geöffnet werden, indem
die einzelnen Besuche mit genauem Termin darinstehen b...
01.07.2010 16:29:31
Thread-ID: 1164979
2 Beiträge
Wenn Nein, sollte ein PopUp-Hinweis kommen
Diegel

Liebe Experten,
ich suche nach einer Lösung, wie ich es hinbekomme, dass ein Popup-Hinweis erscheint, wenn ich z. B. in das Feld C11 ein Nein eingebe.
Wer kann mir helfen?
Viele Grüße von der Nordsee
Peter
03.09.2011 15:47:32
Thread-ID: 1228540
13 Beiträge
Fensterstatus: xlminimized beim Öffnen setzen
Constantin

Hallo,
es ist mir nicht gelungen, folgendes Problem zu lösen: Ich habe eine Mappe1 im Pfad1, die ich öffne. Da ich dort Gültigkeitsregeln hinterlegt habe, die in Mappe2, Pfad2 stehen bzw. definiert sind (als Liste mit Bezug auf Mappe2), möchte ich Mappe2 (nur READ) beim Öffnen von Mappe1 gl...
04.01.2013 13:03:42
Thread-ID: 1292866
3 Beiträge
PopUp Fenster in bestimmtes Arbeitsblatt
Ann

Hallo Leute,
ich hab ein Workbook, in das ich Daten einlese und verarbeite. Am Ende soll sich ein PopUp-Fenster öffnen, das angibt, dass das Programm fertig ist. Das funktioniert auch soweit, nur habe ich drei Sheets und das PopUp-Fenster öffnet sich im 3. und nicht wie gewollt im 1.
Di...
13.05.2013 16:37:33
Thread-ID: 1312755
4 Beiträge
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
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
1
2
3
3
4
1
12
2
3
2
2
1
7
6
5
11
9
2
7
9
2
8
12
1
10