Bitte um kurze Beschreibung
13.12.2005 15:26:13
Frank
Ich bräuchte noch ein letztes mal eure Hilfe!
Kann mir bitte jemand kurz erklären, was bei folgendem Makro vorsich geht!?
Diese Arbeitsmappe:
Private Sub Workbook_Open()
Dim sh As Worksheet, Cb As ComboBox, i As Integer
Set Cb = Sheets(1).ComboBox1
For i = 2 To Sheets.Count
Cb.AddItem Sheets(i).Range("B3") & " - " & Sheets(i).Name
Next i
End Sub
Tabelle1:
Private Sub ComboBox1_Change()
Sheets(ComboBox1.ListIndex + 2).Activate
End Sub
Das wäre echt super!
Vielen Dank im voraus!
mfg
Frank