in meiner Userform gibt es eine "ListBox1", in welcher mehrere Texte zur Auswahl stehen. z.B. "100 - Sonderbau".
In folgendem Teil meines Codes gibt es das Problem, dass er sobald ich aus dem Worksheed "100 - Sonderbau" dann (ListBox1) eingebe, es nicht mehr funktioniert.
Funktioniert:
Set myChart1 = ThisWorkbook.Worksheets("100 - Sonderbau").ChartObjects("Diagramm 1").Chart
Funktioniert nicht:
Set myChart1 = ThisWorkbook.Worksheets(ListBox1).ChartObjects("Diagramm 1").Chart
Private Sub CommandButton1_Click()
Unload diagrammuserform
End Sub
Private Sub CommandButton2_Click()
Dim myChart1 As Chart
Set myChart1 = ThisWorkbook.Worksheets(ListBox1).ChartObjects("Diagramm 1").Chart
Dim myPicture1 As String
Dim fileName1 As String
Dim myPath1 As String
myPicture1 = "Chart1.gif"
myPath1 = "U:\"
fileName1 = myPath1 & myPicture1
myChart1.Export fileName1
Image1.Picture = LoadPicture(fileName1)
Kill fileName1
End Sub
Private Sub UserForm_Initialize()
Worksheets("Übersicht").Activate
diagrammuserform.ListBox1.RowSource = "A876:A891"
ListBox1.ListStyle = fmListStyleOption
End Sub