VBA Multipage Aktion bei Klick auf bestimmte Seite

[DieMarie]

Hallo Leute,

ich habe hier eine Userform mit Multipage.

Ich möchte eine bestimmte Methode ausführen, sobald ich den Reiter mit dem Index 4 anklicke.

Gibt es dafür eine Methode?

Jedes mal, wenn ich auf eine andere Seite gehe und anschließend wieder die Page(4) anklicke soll eine bestimmte Methode ausgeführt werden.

[MisterBurns]

Code:

Private Sub MultiPage1_Change()
If MultiPage1.SelectedItem.Index = 3 Then
    MsgBox "Du hast Seite 4 ausgewählt"
End If
End Sub

[DieMarie]

Super, vielen Dank :35:

Der Aufruf der Methode funktioniert so.

Kann man die Methode vielleicht auch noch Eleganter lösen?

Code:

Private Sub JahreszahlenAusblenden()
If Worksheets("Input").Range("F29").Value <> "END" Then
Label39.Caption = Worksheets("Input").Range("F29").Value
Else
Label39.Caption = ""
End If

If Worksheets("Input").Range("G29").Value <> "END" Then
Label40.Caption = Worksheets("Input").Range("G29").Value
Else
Label40.Caption = ""
End If

If Worksheets("Input").Range("H29").Value <> "END" Then
Label41.Caption = Worksheets("Input").Range("H29").Value
Else
Label41.Caption = ""
End If
End Sub

Die gleiche Operation muss fast 20 mal ausgeführt werden. Das sieht ziemlich unprofessionell aus, wenn ich 20 mal die If Abfrage aufschreibe.

[MisterBurns]

Ungetestet

Code:

Sub JahreszahlenAusblenden()
Dim i As Integer, j As Integer

For i = 6 To 26
   j = i + 33
   With Worksheets("Input")
       If .Cells(29, i) <> "END" Then
           Me.Controls("Label" & j).Caption = .Cells(29, i)
       Else
           Me.Controls("Label" & j).Caption = ""
       End If
   End With
Next i

End Sub

[StrammerMax]

Edit:

Habe versucht es nachzubauen, aber offenbar nicht so erfolgreich :D

[MisterBurns]

Ääähhh... was hat jetzt StrammerMax mit DieMarie zu tun?