Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Worksheet erkennt ListBox1 nicht?

Worksheet erkennt ListBox1 nicht?
01.02.2020 23:42:52
Julian
Hallo Zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet erkennt ListBox1 nicht?
01.02.2020 23:59:55
onur
Wenn die Userform "Userform1" heisst :
ThisWorkbook.Worksheets(Userform1.ListBox1.Value)..........

AW: Worksheet erkennt ListBox1 nicht?
02.02.2020 10:48:52
Julian
Hallo, danke für Deine Hilfe.
Ich habe den Fehler gefunden.
Ich musste (ListBox1.Text), dann ging es.
Vielen Dank trotzdem! :)
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige