Charts auswählen
09.11.2004 11:02:42
Ronald
ich habe folgendes Problem. Ich habe eine Userform bei der ich mir über ein Listenfeld alle Tabellenblätter anzeigen lasse und die ich über dieses Listenfeld anwählen kann. Nun möchte ich aber auch die Charts (Diagramme auswählen) mir fehlt allerdings der notwendige Code dazu. Vielleicht könnt ihr mir dabei helfen.
Der bisherige Code sieht so aus:
Private Sub cmdWeiter_Click()
Application.EnableEvents = False
Worksheets(lstSheets.ListIndex + 1).Select
Application.EnableEvents = True
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim wks As Worksheet
Dim cht As Chart
For Each wks In ThisWorkbook.Worksheets
lstSheets.AddItem wks.Name
Next wks
For Each cht In ThisWorkbook.Charts
lstSheets.AddItem cht.Name
Next cht
End Sub
In der Prozedur CmdWeiter_Click fehlt der passende Eintrag.
HILFE.
Vielen Dank schon mal im Voraus.
Anzeige