Code abändern
13.12.2005 11:26:59
Heide
Ich habe in einer Excel Datei folgenden Code:
Unter "Diese Arbeitsmappe":
Private Sub Workbook_Open()
Dim sh As Worksheet
Dim Cb As ComboBox
Dim i As Integer
Set Cb = Sheets(1).ComboBox1
Cb.Clear
For i = 2 To Sheets.Count
Cb.AddItem Sheets(i).Name & " " & Sheets(i).Range("B3")
Next i
End Sub
Unter Tabelle1:
Private Sub ComboBox1_Change()
Sheets(ComboBox1.ListIndex + 2).Activate
End Sub
Meine Frage ist nun, kann ich den Code so ändern, das er gesamt nur unter Tabelle1 steht? Das also unter "Diese Arbeitsmappe" nichts mehr steht!
Vielen Dank!
lg Heidi
Anzeige