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
1872to1876
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
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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? =)

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
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
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
Anzeige
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
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 =)
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
Anzeige
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?
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

300 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
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
Anzeige
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
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
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
Julia

Hi!
ich habe eine Exceltabelle mit Messwerten pro Monat. Zu jedem Messwert gibt es einen Grenzwert, den ich "überwachen" muss. Da ich von diesen Tabellen sehr viele habe dachte ich an eine autmatisierte EMail aus Excel heraus, sobald der Grenzwert erreicht bzw. überschritten wurde (Text mus...
24.06.2013 10:16:05
Thread-ID: 1319275
14 Beiträge

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
11
3
3
4
1
2
3
13
7
2
1
7
5
9
2
7
2
3
1
1
10
5
1