Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1612to1616
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
VBA Popup nur einmal
19.03.2018 14:48:46
Peter
Hallo die Herren,
ich habe nachstehenden Code in meiner Kalkulation hinterlegt.
In B6 wird das Produkt ausgewählt welches dann am EK und anderen Daten weiterkalkuliert wird. Bei Auswahl des Produkts kommt das gewünschte Popup.
Nun das Problem:
Während der Kalkulation wird das Popup bei jeder Eingabe erneut aufgerufen.
Es soll nur einmal aufpoppen bei Auswahl des Artikels und dann nicht mehr.
Ich hoffe ihr könnt mir helfen.
Private Sub Worksheet_Calculate()
If ActiveSheet.Range("$B$6").Value = 1 Then
POPUP1.Show
End If
If ActiveSheet.Range("$B$6").Value = 2 Then
POPUP1.Show
End If
If ActiveSheet.Range("$B$6").Value = 3 Then
POPUP1.Show
End If
End Sub
LG
Peter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Popup nur einmal
19.03.2018 14:55:13
Daniel
Hi
deine Beschreibung hört sich so an, als solltest du das CHANGE-Event anstelle des Calculate-Events verwenden.
das spricht an, wenn ein direkt eingebener Zellwert geändert wird und du kannst über TARGET ermitteln, welche Zelle(n) geändert wurden.
gruß Daniel
AW: VBA Popup nur einmal
19.03.2018 15:00:00
Peter
ich habe vergessen zu erwähnen das sich die Zahlen 1,2,3 usw. sich aus einer Formel ergeben.
AW: VBA Popup nur einmal
19.03.2018 15:08:46
Daniel
das ist eine wichtige Information.
mit folgender Ergänzung wird das PopUp nur dann gezeigt, wenn sich der gewählte Artikel tatsächlich ändert.
Private Sub Worksheet_Calculate()
Static WertAlt as Variant
if ActiveSheet.range("B6").Value = WertAlt then Exit sub
If ActiveSheet.Range("$B$6").Value = 1 Then
POPUP1.Show
End If
If ActiveSheet.Range("$B$6").Value = 2 Then
POPUP1.Show
End If
If ActiveSheet.Range("$B$6").Value = 3 Then
POPUP1.Show
End If
WertAlt = ActiveSheet.range("B6").Value
End Sub
Gruß Daniel
Anzeige
AW: VBA Popup nur einmal
19.03.2018 15:26:45
Peter
Super Danke Dir funktioniert wunderbar :)

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige