Clever-Excel-Forum

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.

Code:
Private Sub MultiPage1_Change()

If MultiPage1.SelectedItem.Index = 3 Then

    MsgBox "Du hast Seite 4 ausgewählt"

End If

End Sub

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.

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

Edit:

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

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

DieMarie

MisterBurns

DieMarie

MisterBurns

StrammerMax

MisterBurns