Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit ComboBox

Problem mit ComboBox
27.02.2007 22:56:50
Frank
Hallo.
Ich habe folgendes Problem:
Ich habe eine UserForm erstellt, in der ich Werte von Zellen anzeigen und ändern kann.
Konkret geht es um eine Arbeitszeiterfassung.
Mit einer ComboBox möchte ich die Tätigkeit auswählen.
Wenn ich jetzt aber durch die Zellen scrolle (mit SpinButton) soll der aktuelle Eintrag der Zelle in der ComboBox dargestellt werden.
Dies wollte ich mit der ComboBox1.ListIndex Eigenschaft erreichen.
Bekomme allerdings immer den Fehler: Laufzeitfehler '380'
Eigenschaft ListIndex konnte nicht gesetzt werden.
Ungültiger Eigenschaftswert

Allerdings erst bei der IF - Abfrage If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 3 Then ComboBox1.ListIndex = 4
Weis nicht mehr weiter.
Wäre echt toll wenn mir hier jemand helfen könnte.
Bin für jede Kritik und / oder Schelte offen.
Nachfolgend der Teil meines Programmes.

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Montage"      'ListIndex = 1
ComboBox1.AddItem "Büro"         'ListIndex = 2
ComboBox1.AddItem "Krank"        'ListIndex = 3
ComboBox1.AddItem "Abfeiern"     'ListIndex = 4
ComboBox1.AddItem "Urlaub"       'ListIndex = 5
ComboBox1.AddItem "Sonderurlaub" 'ListIndex = 6
'Use drop-down list
ComboBox1.Style = fmStyleDropDownList
SpinButton1.Max = 16
SpinButton1.Max = 14
End Sub
Private Sub SpinButton1_Change()
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 1 Then _
ComboBox1.ListIndex = 1
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 2 Then _
ComboBox1.ListIndex = 2
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 3 Then _
ComboBox1.ListIndex = 3
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 3 Then _
ComboBox1.ListIndex = 4
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 5 Then _
ComboBox1.ListIndex = 5
If Worksheets("ArbZeit").Cells((SpinButton1.Value), "G").Value = 6 Then _
ComboBox1.ListIndex = 6
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit ComboBox
27.02.2007 23:26:02
Klaus-Dieter
Hallo Frank,
da werden in deinem Quelltext dem Value 3 die List.Indizies 3 und 4 zugewiesen. Das soll wohl einen Fehler auslösen. Ändere das in der 4. If Anweisung mal auf 4, dann wird es gehen. Wobei mir der gesamte Quelltext etwas suspekt ist.
Viele Grüße Klaus-Dieter

Online-Excel
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige