Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Öffne Userform wenn Wert in Zelle
05.06.2007 14:46:00
Rüdiger
Hallo,
ich habe folgendes Problem. Sobald in Zelle A1 der Wert "x" steht, soll sich meine userform "frm_vhcn" automatisch öffnen. Ich habe schon kürzlich folgendes Makro von einem netten Forum-User erhalten. Funktioniert auch, aber leider nicht dann, wenn sich in Zelle 1 eine Formel befindet, die "X" auswirft (zB. Formel = A2)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$36" Then
If Range("B36").Value = "X" Or Range("B36").Value = "X" Then frm_vhcn.Show
End If
End Sub


Kann mir jemand weiterhelfen? Vielen dank im Voraus. Gruß Rüdiger.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Öffne Userform wenn Wert in Zelle
05.06.2007 14:53:00
Hajo_Zi
Hallo Rüdiger,
dann musst Du das Ereignis Private Sub Worksheet_Calculate() benuztze ind dort prüfen ob A1 ="X" ich würde das aber kombinieren mit einer Abfrage ob UserForm schon mal angezeigt. Ansonsten kommt Sie bei X immer.

AW: Öffne Userform wenn Wert in Zelle
05.06.2007 14:55:00
Rudi
Hallo,
natürlich geht das auch mit Formel. Du darfst nur nicht A1 auf Änderung abfragen.

Private Sub Worksheet_Change(ByVal Target As Range)
If LCase(Range("A1")) = "x" Then UserForm1.Show
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Öffne Userform wenn Wert in Zelle
05.06.2007 14:58:38
Hajo_Zi
Hallo Rudi,
mal einen kleinen Einwand, die Formel bezieht sich nicht auf die aktuelle Tabelle, Ist ein X in A1 wird die Userform nach jeder Änderung angezeigt.
Gruß Hajo

AW: Öffne Userform wenn Wert in Zelle
05.06.2007 15:17:00
Rüdiger
Hey, vielen Dank für die schnelle Hilfe.

AW: Öffne Userform wenn Wert in Zelle
05.06.2007 14:56:51
ralf
Hi Rüdiger,
meintest Du so?:
If Target.Address = "$A$1" Then
If UCase(Target.Value) = "X" Or Target.Formula = "=A2" Then frm_vhcn.Show
End If

AW: Öffne Userform wenn Wert in Zelle
05.06.2007 15:18:00
Rüdiger
Hey, vielen Dank für die schnelle Hilfe.

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige