Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UF mit MultiPage - bei Wechsel MAkro ausführen

UF mit MultiPage - bei Wechsel MAkro ausführen
28.11.2006 22:10:22
Mister B
Hallo Excel Freunde,
Ich stecke vor einem Problem das sich nicht lösen lassen will. Ich habe eine UF mit 9 Multiseiten. Wie kriege ich es hin, dass wenn man Page(1) verlasst, Makro1 ausgeführt wird. Folgendes habe ich versucht, leider ohne Erfolg

Private Sub MultiPage1_Change()
Dim Text As String
If OptionButton4.Value = "" And OptionButton5.Value = "" Then
Text = "Bitte tragen Sie ein ob die Perosn Auskunft erteilt bekommen möchte oder nicht"
MsgBox Text, vbInformation, "Auskunft"
End If
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UF mit MultiPage - bei Wechsel MAkro ausführen
28.11.2006 22:39:16
Matthias G
Hallo B,
ist vielleicht ein bisschen kompliziert, aber ich bin auf das gekommen:

Option Explicit
Dim akt_Seite As Integer
Dim geladen As Boolean
Private Sub UserForm_Initialize()
MultiPage1.Value = 0
akt_Seite = MultiPage1.Value
geladen = True
End Sub
Private Sub MultiPage1_Change()
If geladen And akt_Seite = 0 Then
MsgBox "Sie verlassen Seite 1!"
End If
akt_Seite = MultiPage1.Value
End Sub

Gruß Matthias
AW: UF mit MultiPage - bei Wechsel MAkro ausführen
28.11.2006 22:42:28
Mister B
Hallo Matthias
Danke für deine prompte Antwort. Ich werde sie morgen ausprobieren.
Gruß
Mister B
AW: UF mit MultiPage - bei Wechsel MAkro ausführen
28.11.2006 22:43:46
P@ulchen
Hallo,

Option Explicit
Dim xVar As Boolean
Private Sub MultiPage1_Change()
Dim Text As String
If MultiPage1.Value = "0" Then xVar = True: Exit Sub
If xVar = True And MultiPage1.Value <> "0" Then
    If OptionButton4 = False And OptionButton5 = False Then
        Text = "Bitte tragen Sie ein ob die Person Auskunft erteilt bekommen möchte oder nicht"
        MsgBox Text, vbInformation, "Auskunft"
        MultiPage1.Value = "0"
    End If
    xVar = False
End If
End Sub
Private Sub UserForm_Initialize()
If MultiPage1.Value = 0 Then xVar = True
End Sub

Code eingefügt mit Syntaxhighlighter 4.0


Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige