Diagramm in Image anzeigen
19.03.2007 12:14:00
Losos
ich bin noch unerfahren und versuche meine Diagramme etwas besser zu gestalten.
Ich möchte in einem Image Fenster Diagramme anzeigen die ich aus der ListBox anklicke. Beide sind in einem UserForm.
Es würde super wenn ich in dem ListBox zwischen den Arbeitsblätter wechseln kann und das entsprechende Diagramm erscheint sofort in den Image Fenster.
In der ListBox sind alle Worksheets aufgelistet:
Code:
Private Sub UserForm_Activate()
Dim Blatt As Object
Dim i As Integer
Dim Anzahl As Integer
Anzahl = ActiveWorkbook.Worksheets.Count 'ermittelt wieviel Arbeitsblätter im ActivWorkbook sind
For i = 1 To Anzahl
Set Blatt = Sheets(i) 'füllt ListBox mit Blattnamen aus
ListBoxAuswahl.AddItem Blatt.Name
Next
End Sub
gruß Tadi2