Listbox Mehrfachauswahl - VBA | HERBERS Excel Forum

Hallo Zusammen,
mit Hilfe des Forums habe ich eine Tabelle mit einer Mehrfachausfahl (Listbox) erstellt, die problemlos funktioniert.
In der Spalte "R" kann ich diese Auswahl durchführen.
Nachdem ich diese nun an Mitarbeitende verteilen soll, ist mir aufgefallen, dass wenn ich eine ganze Zeile markiere die Meldung "Laufzeitfehler '94: Unzulässige Verwendung von Null" erscheint. Die Kolleginnen und Kollegen können aber mit dieser Fehlermeldung nichts anfangen.
Das Komische daran ist, wenn ich innerhalb der Tabelle eine ganze Zeile markiere, bleibt der Debugger ganz wo anders stehen, als wenn ich außerhalb der Tabelle eine ganze Zeile markiere.
Kann man "beide" Probleme irgendwie lösen/unterbinden?
Datei: https://www.herber.de/bbs/user/156567.xlsm
Vielen Dank schon mal - Erwin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

"Das Komische daran ist, wenn ich innerhalb der Tabelle eine ganze Zeile markiere, bleibt der Debugger ganz wo anders stehen, als wenn ich außerhalb der Tabelle eine ganze Zeile markiere."
das liegt an folgendem:
wenn du mehrere Zellen markierst (Target ist also keine Einzelzelle, sondern ein Zellbereich), dann hat das einige Effekte:
- Target.Value ergibt keinen Einzelwert, sondern ein Array
- bei anderen Eigenschaften wie Target.Text ist es so, dass hier kein Array erzeugt wird, sondern:
wenn alle Zellen von Target den selben Eigenschaftswert haben, dann ist das Ergebnis dieser Eigenschaftswert
wenn unterschiedliche Eigenschaftswerte vorhanden sind so wird NULL ausgegeben (nicht die Zahl 0, sondern quasi NIX)
wenn du also eine ganze Zeile mit Inhalten markierst, dann knallt es schon hier:
strText = Target.Text
denn es gibt Zellen mit unterschiedlichem Inhalt und dann ist das Ergebnis NULL. Und dieses NULL darfst du einer Stringvariable nicht zuweisen, daher bekommst du in diesem Fall hier schon den Fehlerabbruch.
markierst du eine ganze Leerzeile, haben alle Zellen den selben Wert, in diesem den Text "" (Leerstring) und dieser wird dann von Target.Text ausgebeben.
mit "" kann strText arbeiten, daher läuft der Code erstmal weiter.
das nächste Problem ist dann
.Left = Target.Offset(0, -1)
denn wenn du eine ganze Spalte markierst, hast du auch die Spalte A dabei und die kannst du nicht weiter nach links verschieben, daher dann hier der Abbruch.
eine Lösung für dein Problem hast du ja schon bekommen.
eine andere wäre, dass du hier statt mit Target mit Target(1) oder mit ActiveCell arbeitest, denn das ist dann immer nur eine Zelle, auch wenn du mehrere markiert hast.
btw, würdest du strText = Target.Value verwenden, würdest hier immer den Fehlerabbruch bekommen sobald du mehr als eine Zelle markierst, denn dann ist Target.Value ein Array, und dieses Array kann einer normalen Stringvariable nicht zugewiesen werden.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Listbox Mehrfachauswahl - VBA

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox Mehrfachauswahl - VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread