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
Versuch es mal mit "Listbox1.Text"
Grüße 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...
Grüße 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...
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
>
>
>
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
Beispiel: Tabelle2!A1:A10
Grüße 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...