Office: (Office 2016) ListBox: Eintrag bearbeiten, Duplikatprüfung

Huhu, da bin ich schon wieder :p

Ich hätte noch eine kleine Frage zu einer der Änderungen, die du vorgenommen hast und zwar geht es um die beiden ergänzten Zeilen im Code für die "Tabellenblatt"-Schaltfläche (switchButton_Click).

Code:

AppActivate (Application.Caption)
ThisWorkbook.Activate

Sobald man die Schaltfläche nun mehr als nur einmal benutzt, gibt es einen Laufzeitfehler '5' - "Ungültiger Prozeduraufruf oder ungültiges Argument".

Kommentiere ich die zwei Zeilen aus, dann funktioniert aber augenscheinlich alles, wie es soll.

Sind die denn wichtig?

Und dann wollte ich dich auch noch fragen, ob du vielleicht Zeit und Lust hättest einmal einen Blick auf die Mappe zu werfen, die ich jetzt neu erstellt habe ("Kundenverwaltung") - dort funktioniert bis jetzt alles so, wie ich es mir wünsche, aber vielleicht fällt dir ja beim Überfliegen direkt irgendetwas auf, denn ich habe sicherlich einige Dinge recht primitiv gelöst :p

Ich würde dann etwas abspecken um unter 100kb zu kommen und ein neues Thema dafür öffnen.

Liebe Grüße. :)

 

Hi,

ich hatte die beiden Codezeilen deshalb ergänzt, weil (bei meinem Excel2013) in dem Fall, wenn das Tabellenblatt beim Schließen (und Speichern) der Mappe aktiv war, nach dem erneuten Start der Mappe und Drücken des Schalters immer eine leere Excel-Instanz vor dem UserForm geöffnet wurde und man erst wieder das UserForm aktivieren musste, um zur Mappe bzw. Tabellenblatt mit den Daten zu gelangen. In einigen Fällen war das UserForm auch überhaupt nicht zu sehen und die Mappe selbst "unsichtbar", weil die Instanz per Code ja auf Visible = False gesetzt wird.
Nach Ergänzung dieser beiden Zeilen wird zwar auch noch eine leere Instanz geöffnet, aber es wird sofort die richtige Mappe hinter dem UserForm angezeigt und aktiv gemacht. Bei mir kam und kommt auch kein Fehler, trotz mehrfachem Klick auf den ToggleButton.
Aber du kannst den Code mal so ergänzen, vielleicht hilft das ja:

Code:

    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        AppActivate (Application.Caption)
        ThisWorkbook.Activate
    End If

Was die andere Mappe betrifft: verlinke den neuen Thread hier, dann kann ich mal schauen, wenn es bei mir mit der Zeit passt.

Bis später,
Karin

 

Hey, guten Abend :)

Der angepasste Code funktioniert so gut und ich habe ihn überall mit eingefügt :)

Für das andere Thema habe ich jetzt gerade einen neuen Thread eröffnet:

Arbeitsmappe: Kundenverwaltung

Eigentlich wollte ich das schon gestern abend erledigen, aber ich musste unbedingt noch ein bisschen Aufräumen im Codebereich, das sah sehr chaotisch aus :p

Liebe Grüße :)