Tipp
15.04.2008 21:58:47
Matthias
Hallo ralf
Ich möchte nicht 20 Tabellen hier hochladen
Code für ein allgemeines Modul
Option Explicit
Public oldTab As String
Code für Userform (20 x Textbox 20 x Button und ein Button letzte Blatt[Button21])
Option Explicit
Private Sub CommandButton1_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox1.Value).Activate
End Sub
Private Sub CommandButton2_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox2.Value).Activate
End Sub
Private Sub CommandButton3_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox3.Value).Activate
End Sub
Private Sub CommandButton4_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox4.Value).Activate
End Sub
Private Sub CommandButton5_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox5.Value).Activate
End Sub
Private Sub CommandButton6_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox6.Value).Activate
End Sub
Private Sub CommandButton7_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox7.Value).Activate
End Sub
Private Sub CommandButton8_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox8.Value).Activate
End Sub
Private Sub CommandButton9_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox9.Value).Activate
End Sub
Private Sub CommandButton10_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox10.Value).Activate
End Sub
Private Sub CommandButton11_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox11.Value).Activate
End Sub
Private Sub CommandButton12_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox12.Value).Activate
End Sub
Private Sub CommandButton13_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox13.Value).Activate
End Sub
Private Sub CommandButton14_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox14.Value).Activate
End Sub
Private Sub CommandButton15_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox15.Value).Activate
End Sub
Private Sub CommandButton16_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox16.Value).Activate
End Sub
Private Sub CommandButton17_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox17.Value).Activate
End Sub
Private Sub CommandButton18_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox18.Value).Activate
End Sub
Private Sub CommandButton19_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox19.Value).Activate
End Sub
Private Sub CommandButton20_Click()
oldTab = ActiveSheet.Name
Worksheets(TextBox20.Value).Activate
End Sub
Private Sub CommandButton21_Click()
Worksheets(oldTab).Activate 'hier geht es zum letzten Blatt zurück
End Sub
Gruß Matthias