Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

listbox-Problem

80 views
Skip to first unread message

Andreas

unread,
Mar 29, 2002, 1:11:11 PM3/29/02
to
Hallo XL'er,

ich habe mal wieder ein kleines Problem:

ich habe die rowsource-Eigenschaft einer listbox in einem userform mit
dem Datenbereich eines Tabellenblatts verknüpft. Der über die listbox
ausgewählte Wert soll in ein anderes Tabellenblatt eingetragen werden.

MsgBox ListBox1.Value liefert aber immer "Laufzeitfehler 94 /
unzulässige Verwendung von Null".

Ich krieg die Krise - was mache ich bloß verkehrt?

Danke für Eure Hilfe ...

Andreas

Frank Bendrich

unread,
Mar 29, 2002, 1:55:46 PM3/29/02
to
Hallo,

Versuch es mal mit "Listbox1.Text"

Grüße Frank


Andreas Blümel

unread,
Mar 29, 2002, 2:15:20 PM3/29/02
to

Hallo Frank,

danke für Deinen Tip, aber "Listbox1.Text" liefert nix, also "leer".
Ich habe eher den Verdacht, daß ich bei der Verknüpfung mit den Daten
irgendwas falsch gemacht habe. Schließlich gibt's da auch noch sowas wie
"listfillrange" oder "additem" und eben "rowsource", aber als VBA-Greenhorn
habe ich keine Peilung wofür was verwendet werden muß ...

Gruß

Andreas.

"Frank Bendrich" <fr...@bendrich.net> schrieb im Newsbeitrag
news:OdXJSM11BHA.1528@tkmsftngp02...

Frank Bendrich

unread,
Mar 29, 2002, 2:28:33 PM3/29/02
to
Wenn nach dem füllen der Listbox kein Kintrag ausgewählt wurde
(Listbox1.ListIndex = 0), dann liefert ListBox1.Text tatsächlich nichts.
Andernfalls sollte die Listbox1.Text Methode den selektierten wert
enthalten. Wann ließt Du denn den Wert aus? Am besten Du verbindest das mit
dem ListBox1-Click-Ereignis.

Grüße Frank


Andreas Blümel

unread,
Mar 29, 2002, 2:39:37 PM3/29/02
to
Hallo Frank,

ich hab's jetzt mal so versucht:

Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox (ListBox1.ListIndex)
End Sub

Ergebnis: immer "-1", egal welcher Wert ausgewählt wurde. Mit irgendwas muß
ich mich wohl richtig dämlich angestellt haben?

Grüße Andreas.


"Frank Bendrich" <fr...@bendrich.net> schrieb im Newsbeitrag

news:Oo5dme11BHA.2272@tkmsftngp02...

Andreas Blümel

unread,
Mar 29, 2002, 3:32:08 PM3/29/02
to
Hallo Frank,

Mann, Du machst Dir eine Mühe mir ... Danke!

Ich hab mir Dein Beispiel mal angesehen, und dabei ist mir aufgefallen, daß
der TopIndex-Wert Deiner ListBox auf "0" steht und bei meiner auf "-1". Beim
Versuch, das zu ändern, gab's die Fehlermeldung "Eigenschaftswert TopIndex
konnte nicht gesetzt werden. Ungültiger Eigenschaftswert". Meine Liste steht
im übrigen auf einem anderen Tabellenblatt derselben Arbeitsmappe. Als
RowSource-Eigenschaft habe ich bei mir lediglich den Namen des Bereiches
angegeben. Ansonsten sieht alles so aus wie bei Dir, funktioniert bloß
leider nicht. Ob's an der Definition der RowSource-Eigenschaft liegt?

Gruß ...

Andreas.

"Frank Bendrich" <fr...@bendrich.net> schrieb im Newsbeitrag

news:uq4uEw11BHA.2760@tkmsftngp05...
> Hallo Andreas,
>
> das klingt ja alles sehr merkwürdig. Einträge sind aber in Deiner listBox
> vorhanden?
> Ich habe mal schnel eine Beispieldatei erstellt, da kannst Du Dir das mal
> angucken.
>
> Grüße Frank
>
>
>


Manfred Kuberczyk

unread,
Mar 29, 2002, 3:58:24 PM3/29/02
to

> MsgBox ListBox1.Value liefert aber immer "Laufzeitfehler 94 /
> unzulässige Verwendung von Null".

Hallo Andreas,
ich verstehe nicht ganz was die MsgBox soll?
z.B.

Range("A1").Value=UserForm1.ListBox1.Value

oder

Private Sub ListBox1_Click()
Sheets("Tabelle1").Range("A1").Value = ListBox1.Value
End Sub

Müsstest Du ggf. noch anpassen. Noch Fragen? Bitte melden
ciao Manni

--
Windows XP prof.
Office XP

Frank Bendrich

unread,
Mar 29, 2002, 4:01:41 PM3/29/02
to
Ganz genau! Du mußt die Tabelle mit angeben!

Beispiel: Tabelle2!A1:A10

Grüße Frank


Andreas Blümel

unread,
Mar 29, 2002, 4:09:22 PM3/29/02
to
Hallo Frank,

ich glaub, ich hab's irgendwie hingekriegt!

Vielen Dank für Deine Hilfe und Frohe Ostern ...

Andreas.

"Frank Bendrich" <fr...@bendrich.net> schrieb im Newsbeitrag

news:e7pyoS21BHA.2560@tkmsftngp07...

0 new messages