Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1752to1756
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1752to1756
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler bei Listbox wechsel

Fehler bei Listbox wechsel
24.04.2020 15:30:42
Christof
Hallo Leute,
bin neu hier weil ich bei einem Problem die Lösung einfach nicht finde.
Möchte mir ein kleines Lagerprogramm machen und stoße gerade auf ein Problem.
In der ersten Listbox(lstKategorie) wähle ich das active Tabellenblatt aus und füge alle gefüllten Zellen der Spalte A ind die zweite Listbox(lstArtikel) ein. soweit funktioniert noch alles. Wenn ich dann in der zweiten Listbox etwas auswähle wird der Wert der ausgewählten Reihe (Spalte B) an ein Label übergeben. Funktioniert auch noch ohne Probleme.
Wenn ich jetzt wieder das Tabellenblatt in der ersten Listbox wechseln möchte kommt es immer zu einem Fehler.
Die Click methode des ersten Tabellenblattes wird dann auch nicht vollständig durchlaufen.
Danke schon mal im Voraus
MFG
https://www.herber.de/bbs/user/137007.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Listbox wechsel
24.04.2020 16:35:42
Mullit
Hallo,
probier mal so in Deinem Change-Event, besser auch alle Vars explizit deklarieren, sonst sind sie vom DateiTyp Variant... 
Private Sub lstArtikel_Change()
Dim a As Integer, b As Integer, auflisten As Integer, i As Integer

auflisten = Me.lstArtikel.ListIndex + 1
If auflisten > 0 Then
    b = ActiveSheet.Cells(auflisten, 2).Value
    i = ActiveSheet.Cells(auflisten, 3).Value
    Me.lblLagerstand.Caption = b
    If b > i Then
        Me.lblLagerstand.ForeColor = vbGreen
        Else
        Me.lblLagerstand.ForeColor = vbRed
    End If
End If
End Sub

Gruß, Mullit
Anzeige
AW: Fehler bei Listbox wechsel
24.04.2020 17:31:31
Christof
Vielen Dank für die schnelle und Hilfreiche Antwort.
Hat alles Prima funktioniert.
MFG
AW: Fehler bei Listbox wechsel
24.04.2020 17:02:04
Daniel
hi
vermeide das Change-Event.
es wird zwar automatisch als erstes Event angeboten, ist aber in den wenigsten fällen wirklich passend, denn es läuft bei jeder Änderung am Objekt, egal von wem die Ausgeführt wird, auch bei Änderungen durch ein Makro.
in deinem Fall löst bspw das .Clear ebenfalls das Change-Event der Listbox aus und dann funktionieren ein paar dinge nicht.
wenn man ein Event braucht, dass nur auf Eingabe des Anwenders reagiert, sind andere Events empfehlenswerter: bspw Exit oder MouseUP.
wenn man Change verwendet, muss man auch die Sonderfälle berücksichtigen die entstehen können, wenn das Event durch Makroaktionen ausgelöst wird, in deinem Fall hast du das Problem, wenn die Listbox geleert wird, ist der Listindex -1 (keine Auswahl).
den entsprechenden Code hat dir Mullit gezeigt.
gruß Daniel
Anzeige
AW: Fehler bei Listbox wechsel
24.04.2020 17:32:25
Christof
Vielen Dank für die Sachkundige Information.
Werd ich mir für die Zukunft zu Herzen nehmen
MFG

Links zu Excel-Dialogen

Label ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige