Tabellenkalkulation

Liste bei Auswahl einer bestimmten Zelle anzeigen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hi Excel Freaks, kann mir jemand unten stehenden Code so modifizieren, dass die Listbox nur erscheint, wenn ich in Zelle O9 bin. Die ausgewählten Werte sollen dann in den nächsten 100 Zellen darunter automatisch mit eingetragen werden. Viele Grüße, Matt Private Sub CommandButton1_Click() Sheets("Tabelle1").Unprotect "passwort" Range("O9").Value = "" Sheets("Tabelle1").Protect "passwort" End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Suchbegriff Sheets("Tabelle1").Unprotect "passwort" With Range("O9") If .Value = "" Then .Value = ListBox1.List(ListBox1.ListIndex) Else Set Suchbegriff = .Find(ListBox1.List(ListBox1.ListIndex), LookIn:=xlValues) If Not Suchbegriff Is Nothing Then Exit Sub Else .Value = .Value & " " & ListBox1.List(ListBox1.ListIndex) End If End If End With Sheets("Tabelle1").Protect "passwort" End Sub

Antwort 1 von coros

Hi Matt,

wo befindet sich die ListBox? Wurde sie in einem Tabellenblatt eingefügt oder befindet sie sich in einer UserForm?

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von Matt1a

Hi Coros,

die Listbox wird in Tabelle 1 angezeigt, die dort angezeigten Werte stehen in Tabelle 2.

Grüße,
Matt

Antwort 3 von coros

Hi Matt,

das geht dann nicht. Man kann das nur in einer UserForm realisieren, da man den Befehl "MouseMove" dazu benötigt. Der wiederum steht nur in einer UserForm zur Verfügung. Anderer Lösungsweg wäre bei der Zelle O9 mit der Gültigkeitsregel zu arbeiten. Diese würde dann, wenn man die Zelle O9 anklickt ein Menü aufklappen lassen, aus dem man dann Daten auswählen kann. Schaue dazu mal in der Forumssuche , auf der rechten Seite, mit dem Suchbegriff "Gültigkeit" nach. Das Thema wurde hier schon zu hauf abgearbeitet.

Ein Lösungsvorschlag zum Kopieren des ausgewählten Wertes in die nächsten 100 Zellen kommt noch. Entweder von mir oder von jemanden anders.
MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 4 von Matt1a

Hi Coros,

ist das mit der UserForm komliziert, oder kannst Du mir das eben schnell umsetzen?

Antwort 5 von coros

Hi Matt,

kompliziert ist relativ. Den Umfang kann man erst abschätzen, wenn man weiß, was Du vorhast. Dann kann man sagen ob das kompliziert ist und ob es ein wenig Zeit in Anspruch nimmt. Also schreib mal, wo Daten stehen, die nachher in der LsitBox angezeigt werden sollen. Was soll mit den Daten aus der ListBox wann passieren? Wie Du siehst, ein paar Hintergrundinfos wären nicht schlecht.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 6 von Matt1a

Hi Coros,

würdest Du mir Deine E-Mail Adresse geben, dann schick ich Dir die Tabelle mal zu. Oder hast Du vieleicht eine Idee,wo ich Dir die Tabelle mal eben schnell zum runterladen einstellen kann? Das wäre alles besser als Dir das zu beschreiben.

Viele Grüße,
Matt

Antwort 7 von coros

Hi Matt,

kannst mir Deine Datei mal schicken. Schicke die Datei an meine E-Mail:coros@onlinehome.de.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}