Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

aus Listboxauswahl Einträge in die Zelle übernehme

Forumthread: aus Listboxauswahl Einträge in die Zelle übernehme

aus Listboxauswahl Einträge in die Zelle übernehme
14.06.2006 15:46:27
Peter
Hallo VBA-Gemeinde,
ich habe einer Zelle ein Listenfeld über >Daten,Gültigkeit Leider kann man da nicht mehrere Spalten anzeigen lassen und nur einen Wert
übernehmen.
Nun möchte ich, wenn die Zelle makiert ist, rechts neben der Zelle ein Listboxauswahlfenster (die Werte für ListBox stehen in einem anderen Arbeitsblatt) sich öffnet und ich aus ihr mit einem einfachem Click die Werte übernehmen kann.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus Listboxauswahl Einträge in die Zelle übernehme
14.06.2006 16:30:56
fcs
Hallo Peter,
hier ein Beispiel für eine "dynamisierte" Listbox.
Bei Auswahl einer Zelle in der Eingabespalte wird die Listbox aktualisert (Position (Top, Left) und LinkedCell) und nebn der Zelle angezeigt.
Listbox in der Tabelle mit den Eigenschaften festlegen. Anschließend folgendes Makro im VBA-Editor unter der Tabelle einfügen und Range anpassen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Listbox1 wird dynamisch an die selektierte Zelle der Range angepaßt
If Not Intersect(Target, Range("C2:C65000")) Is Nothing And Target.Rows.Count = 1 Then
With ListBox1
.Top = Target.Top
.LinkedCell = Target.Address
.Left = Target.Offset(0, 1).Left
.Visible = True
End With
Else
ListBox1.Visible = False
End If
End Sub

mfg
Franz
Anzeige
AW: aus Listboxauswahl Einträge in die Zelle übernehme
15.06.2006 12:58:01
Peter
Hallo Franz,
danke, das du dir Zeit für mein Problem genommen hast.
Ich bin eine absolute VBA-Niete und brauche daher immer etwas länger bis es oben ankommt.
Bei deinem Skript kommt ständig Laufzeitfehler 424.
Deshalb schicke ich ein Bild mit, was vielleicht besser zeigt was mein Ziel ist.
Userbild
MfG
Peter
Anzeige
AW: aus Listboxauswahl Einträge in die Zelle übern
16.06.2006 10:21:25
fcs
Hallo Peter,
Der Fehler 424 sagt mir nichts. Eigentlich ist es nicht nötig, die Gültigkeitsregel mit Drop-Down-Auswahl und die Listbox parallel anzuwenden, wie du an meinem Beispiel sehen kannst.
Damit die Listbox und die Gültigkeitsregel gemeinsam funktionieren, muß du eine 2-spaltige Listbox erstellen, 1. Spalte mit den Auswahlnummern, 2. Spalte mit den Texten. Unter den Eigenschaften der Listbox muss für BoundColumn 1 und für ColumnsCount 2 eingestellt werden.
Ggf. kann auch noch ein Problem auftreten, wenn die Gültigkeitsregel die Zahl als Text einträgt. In diesem Fall müssen die Zahlen in Spalte 1 der Auswahlliste auch als Text eingegeben werden (Zahlen mit Hochkomma als 1. zeichen eingeben).
Gruß
Franz
Anzeige
AW: kleine Makrokorrektur, Beispieldatei
16.06.2006 10:50:30
fcs
Hallo Peter,
wenn du Gültigkeitsregel und Listbox tatsächlich parallel verwenden willst, dann muss du das Makro etwas anpassen. Dadurch wird die Links-Position der Box so geändert, dass der Auswahlpfeil für die Dropdown-Liste sichtbar bleibt.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Listbox1 wird dynamisch an die selektierte Zelle der Range angepaßt
If Not Intersect(Target, Range("C2:C65000")) Is Nothing And Target.Rows.Count = 1 Then
With ListBox1
.Top = Target.Top
.LinkedCell = Target.Address
.Left = Target.Offset(0, 1).Left + 15
.Visible = True
End With
Else
ListBox1.Visible = False
End If
End Sub

Hier zur Info auch noch eine kleine Beispieldatei:
https://www.herber.de/bbs/user/34407.xls
mfg
Franz
Anzeige
AW: kleine Makrokorrektur, Beispieldatei
17.06.2006 20:59:20
Peter
Hallo Franz,
super,so hatte ich es mir vorgestellt.
Ich habe es bei mir getestet und es funktioniert.
Ich danke Dir noch einmal für deine Mühe.
Mit freudlichen Grüßen.
Peter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige