Multipage
19.03.2006 12:23:22
Matthias
ich hab ein kleines Problemchen.
Ich möchte einer Multipage Befehle geben. Sie soll wenn ich von Page1 auf Page2 wechsel irgendwas ausführen und wenn ich von Page2 nach Page3 wechsel, soll sie etwas anderes ausführen. Ich habs damit probiert:
-----------------------------
Dim n, m, nVorher As Integer
On Error Resume Next
Select Case nVorher
Case 0
n = CInt(txtTextBox1.Text)
Worksheets(1).Cells(2, n).Value = "Text 1"
Case 1
m = CInt(txtTextBox2.Text)
Worksheets(1).Cells(3, m).Value = "Text 2"
End Select
nVorher = MultiPage1.Value
---------------------------
Wenn ich von Page1 nach Page2 springe funktionierts einwandfrei. Wenn ich aber von Page2 nach 3 oder nach 1 zurück springe, führt er erneut die Syntax von Case 0 aus.
Ich komm leider nicht weiter. Bin für jede Hilfe dankbar!
Gruß
Matthias