Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei vorhandenem Wert PopUp-Fenster

Forumthread: Bei vorhandenem Wert PopUp-Fenster

Bei vorhandenem Wert PopUp-Fenster
08.03.2022 15:32:25
OzziT
Hallo ich habe ein kleines Problem, was ich einfach nicht lösen konnte, weil mir die VBA Kenntnisse dazu fehlen.
Ich habe zwei Tabellenblätter.
-In Tabellenblatt 1 "Personen" soll in Spalte B was reingeschrieben werden.
-Tabellenblatt 2 "Zahlen" Spalte A soll überprüft werden, ob Wert schon vorhanden ist.
-Falls ja: "Wert da, bitte überprüfen" als PopUp.
Datenüberprüfung hat nicht funktioniert und trifft auch nicht genau das Ziel, weil es mich sonst ja nicht den Wert eintragen lassen würde.
Um eine MsgBox in VBA zu erstellen bin ich nicht erfahren genug.
Kann mir jemand da helfen? =)
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei vorhandenem Wert PopUp-Fenster
08.03.2022 17:19:54
ChrisL
Hi

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target  "" Then
If WorksheetFunction.CountIf(Worksheets("Zahlen").Columns(1), Target) Then _
MsgBox "Wert da, bitte überprüfen"
End If
End Sub
Alt+F11, links Doppelklick auf Tabelle "Personen", Code einfügen.
Der Code ist nicht auf die Änderung mehrere Zellen gleichzeitig (Copy/Paste) ausgerichtet.
cu
Chris
Anzeige
AW: Bei vorhandenem Wert PopUp-Fenster
09.03.2022 08:09:55
OzziT
Danke.. Manchmal kann es so einfach sein
AW: Bei vorhandenem Wert PopUp-Fenster
09.03.2022 08:47:09
OzziT
Und wie kriege ich als Zusatz noch hin, dass er mir die Nachbarzellen in die MsgBox mit einbaut?
Quasi ich gebe was in Spalte A ein. Spalte B4 (zB) wird der Wert gefunden und jetzt soll er mir in der MsgBox so etwas wie: "Wert vorhanden, Preis (Wert C4) in Währung (Wert D4)" ausspucken.
Danke erneut!
Anzeige
AW: Bei vorhandenem Wert PopUp-Fenster
09.03.2022 09:18:05
hary
Moin

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Treffer As Variant
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 1 And Target  "" Then '--Eingabe SpalteA und nicht leer
With Worksheets("Zahlen")
Treffer = Application.Match(Target, Worksheets("Zahlen").Columns(1), 0)
If IsNumeric(Treffer) Then
MsgBox "Wert vorhanden, Preis " & .Cells(Treffer, 4) & " in Währung " & .Cells(Treffer, 3)
Else
MsgBox "Eingabe nicht vorhanden"
End If
End With
End If
End Sub
gruss hary
Anzeige
korrektur
09.03.2022 09:38:05
hary
Moin
Du moechtest ja in SpalteB den Wert finden.
ersetz mal

Worksheets("Zahlen").Columns(1)
durch

Worksheets("Zahlen").Columns(2)
gruss hary
AW: Bei vorhandenem Wert PopUp-Fenster
09.03.2022 09:22:47
Pierre
Hallo Ozzi,
einfach deine Zeile MsgBox so umbauen:

MsgBox "Wert da, Preis " & Target.Offset(1, 0) & " in Währung " & Target.Offset(2, 0)
Gruß Pierre
Anzeige
AW: Bei vorhandenem Wert PopUp-Fenster
09.03.2022 13:11:07
OzziT
Die MsgBox taucht auf. Baut aber die gesuchten Werte nicht in die MsgBox mit rein
bei mir schon (owT) (bsp-Mappe!?)
09.03.2022 13:17:57
Pierre
AW: bei mir schon (owT) (bsp-Mappe!?)
09.03.2022 13:25:27
OzziT
Oh vllt habe ich mich falsch ausgedrückt. Mit deinem Code werden die Werte in die MsgBox eingetragen die beschriftet und nach der gesucht wird.
Es sollen aber die Werte neben dem gefundenen Wert also im Blatt "Zahlen" einsetzt werden =)
Anzeige
AW: bei mir schon (owT) (bsp-Mappe!?)
09.03.2022 13:35:47
Pierre
Möglicherweise habe ich was durcheinander gebracht, versuch doch mal harys Vorschlag.
Gruß Pierre
AW: bei mir schon (owT) (bsp-Mappe!?)
09.03.2022 13:42:46
OzziT
Habe es tatsächlich so hinbekommen wie ich es wollte. Harrys Vorschlag ist ziemlich gut gewesen. Danke trotzdem. Nur aus reiner Neugier. Der Code funktioniert ja nicht wenn mehrere Zellen kopiert und eingefügt werden. Ist das technisch überhaupt möglich das bei Einfügen mehrerer Zeilen suchen zu lassen?
Anzeige
AW: auch mehrere Zellen
10.03.2022 07:52:05
hary
Moin
Dann so.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Treffer As Variant
Dim Zelle As Range
Dim strText As String
For Each Zelle In Intersect(Target, Columns(1))
If Zelle  "" Then  '--Zelle nicht leer
With Worksheets("Zahlen")
Treffer = Application.Match(Zelle, .Columns(2), 0)
If IsNumeric(Treffer) Then
strText = strText & Zelle & " , Preis " & .Cells(Treffer, 4) & " in Währung " & .Cells(Treffer, 3) & Chr(13)
End If
End With
End If
Next
If strText  "" Then MsgBox strText, , "vorhandene Werte"
End Sub
gruss hary
Anzeige
AW: sry, Codezeile vergessen jetzt aber
10.03.2022 08:10:07
hary
Moin nochemal
So ist es richtig.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Treffer As Variant
Dim Zelle As Range
Dim strText As String
If Target.Column  1 Then Exit Sub
For Each Zelle In Intersect(Target, Columns(1))
If Zelle  "" Then  '--Zelle nicht leer
With Worksheets("Zahlen")
Treffer = Application.Match(Zelle, .Columns(2), 0)
If IsNumeric(Treffer) Then
strText = strText & Zelle & " , Preis " & .Cells(Treffer, 4) & " in Währung " & .Cells(Treffer, 3) & Chr(13)
End If
End With
End If
Next
If strText  "" Then MsgBox strText, , "vorhandene Werte"
End Sub
gruss hary
Anzeige
;

Forumthreads zu verwandten Themen

Makro: Wenn dann
Julia

Hallo in meiner xls siehe:
https://www.herber.de/bbs/user/60693.xls
sind die Spalten A bis C gegeben
Wie kann ich den gelben Bereich (Spalte D) per Makro auffülen
Immer den letzten Status in Spalte C (nach...) in die entsprechende Zelle von Spalte D (Aktueller Status) zu schrei...
26.03.2009 12:47:12
Thread-ID: 1064207
12 Beiträge
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
Popup-Fenster
Ringlstetter

Hallo allerseits,
ich möchte nur in einem bestimmten Tabellenblatt ein Popup haben, welches eine Frage stellt. Die Zahl als Antwort soll dann in ein bestimmtes Feld geschrieben werden.
Das Popup soll so lange fragen und die Werte immer ein Feld unter dem letzten eingeben, bis in einem a...
05.03.2010 10:47:24
Thread-ID: 1143587
5 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
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
Anzeige
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
automatisches Email wenn Wert überschritten - neu
Julia

Hi!
ich hatte das Problem schon einmal hier hineingestellt und auch eine super tolle Antwort von Tino erhalten (nochmal Danke dafür!!!), das Makro läuft 1A in den darauf zugeschnittenen Dateien.
Jetzt wollte ich es auf eine etwas andere Anordnung der Excel Tabelle übertragen, aber da is...
04.07.2013 11:58:52
Thread-ID: 1321056
8 Beiträge
Internet Explorer PopUp via VBA abfangen
Steffen

Hallo zusammen,
ich öffne aktuell via VBA ein Browserfenster um dort Daten auszulesen. Dies funktioniert soweit auch ganz gut. Allerdings wird beim ersten Öffnen eine Bestätigung der Benutzerdaten verlangt. Es taucht also ein PopUp-Fenster auf welches mit der Enter -Taste bestätigt werden m...
07.10.2013 19:37:27
Thread-ID: 1333481
3 Beiträge
VBA PopUp
Thomas

Hallo zusammen,
ich suche nach einem VBA Pop Up der mir beim Start einer Excel Datei eine Nachricht rausgibt.
In meiner Excel Datei habe ich eine Formel eingebaut, welche mir nach Ablauf eines angegebenen Datums eine Erinnerung ausgibt.
Wäre es möglich, dass man mit VBA die Spalte F...
08.10.2013 19:31:55
Thread-ID: 1333612
2 Beiträge
Popup-Fenster als Kommentar-Ersatz
Mathias

Hallo,
ich möchte die Kommentarfunktion von Excel ersetzen, wobei das Look-and-Feel möglichst ähnlich sein sollte.
Die Textdaten sollen von einem anderen Tabellenblatt übernommen werden. Die "Gültigkeitsprüfung" fällt damit als Alternative flach.
Hat jemand schonmal ein Popup-Fenst...
23.10.2013 12:45:03
Thread-ID: 1335538
8 Beiträge
Pop-Up fenster für eine Eingabe
Dennis

Hallo zusammen,
ich habe mal wieder ein Problem und hoffe auf eine Lösung von euch - hat bisher fantastisch geklappt. :-) Folgende Situation: in einem Arbeitsblatt werden per CommandButtons E-Mails generiert. In der Betreffzeile muss der Benutzer ein paar XXXXX durch eine bestimmte Nummer e...
09.01.2015 11:26:56
Thread-ID: 1401720
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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