Excel 2010 Makro Tabellenbläter wechseln über ActiveX-Combobox klappt nicht

[Kobolz]

Guten Morgen,

ich habe ich eine Excel-Datei eine Active-X Combobox eingebettet. Angezeigt werden mir in der Combobox auch die einzelnen Tabellenblattnamen. mit einem zweiten makro wollte ich klick darauf das excel auch auf dieses blatt wechselt. nur leider klappt es nicht. Vielleicht könnt ihr mir ja sagen was falsch ist

Private Sub CBAXNavi_GotFocus()
CBAXNavi.Clear
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    CBAXNavi.AddItem (ws.Name)
Next
End Sub

Private Sub BCBAXNavi_Change()
    With Worksheets(CBAXNavi.Value)
        .Activate
    End With
End Sub

 

[Madman1209]

Hi,

CBAXNavi_GotFocus
CBAXNavi.Clear
CBAXNavi
.
.
.
BCBAXNavi_Change

Tippfehler hier oder schon in der Formel?

VG,
Mad

 

[Kobolz]

okay das eine war ein Tippfehler. sry

Jetzt klappt auch der Wechsel auf ein anderes Tabellenblatt. gehe ich jedoch manuell auf das ursprungstabellenblatt zurück kommt "Laufzeitfehler 9 Index außerhalb des gültigen bereiches"

Wieso verstehe ich jedoch nicht ist doch end sub gesetzt.

hier nun der richtige Code:

Private Sub CBAXNavi_GotFocus()
CBAXNavi.Clear
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    CBAXNavi.AddItem (ws.Name)
Next
End Sub

Private Sub CBAXNavi_Change()
    With Worksheets(CBAXNavi.Value)
        .Activate
    End With
End Sub

 

[Madman1209]

Hi,

das könnte (könnte!) ein Array Problem sein. Vielleicht starten die Blätter bei "1" und das Array der Values in der Combobox startet bei 0? Wechselt er denn auf die richtigen Blätter? Lass dir doch mal ausgeben was als "CBAXNavi.Value" ausgegeben wird.

VG,
Mad