der folgende Code gehört zu einer Textbox. Der Code soll immer dann durchlaufen werden, wenn der Wert der Textbox sich geändert hat. Bislang habe ich das über das Exit-Ereignis laufen lassen, jedoch glaube ich ist das nicht ideal. Wie kann man das machen? Change-Ereignis?
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set Diagramm = Sheets("Tabelle1").ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
Diagramm.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
End Sub
Danke für jede Antwort
-Mark-