Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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
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

300 Forumthreads zu ähnlichen Themen

DropDown Auswahl in Zelle
Lars

Hallo,
ich würde gerne in einer Zelle eine DropDown-Auswahl zur verfügung stellen, wenn die Zelle aktiviert wird. Die Liste soll enthalten "Wartung", "Stillstand" sowie ein Feld zur Freitexteingabe.
Irgendwie stehe ich gerade vor einem Rätsel.
kann mir jemand helfen?
Danke
G...
01.10.2008 13:01:00
Thread-ID: 1013606
6 Beiträge
Anzeige
Dropdownliste aus Matrix erstellen
asdf

Hi ich habe folgendes Problem,
ich hab eine Matrix und möchte die Zeile und Spalte per Dropdownliste auswählen
(wie ich die Dropdownliste selbst erstelle weiss ich ) und will nach auswahl von Zeile und Spalte nun das Ergebnis aus der Matrix haben, also den inhalt der in Spalte x und Ze...
31.10.2008 11:26:37
Thread-ID: 1020823
2 Beiträge
Dropdownliste aus Matrix erstellen
asdf

Hi ich habe folgendes Problem,
ich hab eine Matrix und möchte die Zeile und Spalte per Dropdownliste auswählen
(wie ich die Dropdownliste selbst erstelle weiss ich ) und will nach auswahl von Zeile und Spalte nun das Ergebnis aus der Matrix haben, also den inhalt der in Spalte x und Ze...
31.10.2008 11:38:00
Thread-ID: 1020833
2 Beiträge
Anzeige
Dropdown oder Combobox nur für eine Zelle
Lars

Hallo,
ich suche schon den ganzen Nachmittag nach einer Lösung für ein meiner Meinung nach ganz einfaches Problem. Ich möchte in einer Zelle manuell etwas eintragen können und gleichzeitig die möglichkeit
haben Begriffe aus einer Dropdown-Liste auswählen zu können.
Ich habe alle mög...
11.06.2009 20:25:53
Thread-ID: 1080838
4 Beiträge
Auswahlliste in einer Zelle
Mandy

Hallo,
ich möchte auf einem Sheet in einer Zelle so eine Auswahlbox haben. Hatte mal gesehen, es gibt sowas, wenn man auf die Zelle klickt, kommt rechts so ein kleiner Pfeil nach unten und wenn man darauf klickt , kommt eine Liste mit einer Auswahl.
Meine Daten , die ich einlesen will ,...
23.07.2009 11:05:16
Thread-ID: 1090732
3 Beiträge
Zellen anhand Inhalt auswählen und kopieren
Matthias

Hallo zusammen,
ich habe folgendes Problem: Aus einer Datei mit ca. 30.000 Zeilen und 38 Spalten sollen einige Bereiche ausgewählt werden und in unterschiedliche Blätter einer zweiten Arbeitsmappe einsortiert werden.
Konkret: Per Makro soll in Spalte C der Bereich gesucht werden der z.B...
08.11.2009 21:04:13
Thread-ID: 1115418
13 Beiträge
Nach Auswahl mit Cursor in Zelle springen
Mille

Hallo,
bin nicht gerade ein Excel Experte und hoffe mir kann jemand weiterhelfen.
Ich habe in Excel in einem Tabellenblatt verschiedene Mannschaften aufgelistet und dazu immer eine Menge an verschiedenen Informationen zu Spielsystem, Aufstellung, Taktik etc. aufgelistet.
Mein Probl...
17.11.2009 11:57:55
Thread-ID: 1117912
3 Beiträge
Auswahl aus Combox in eine andere Zelle kopieren
Tautz

Hallo Experten,
ich möchte den aus einer Combox ausgewählten Inhalt von z.B. Feld A1 des Arbeitsblattes1 in ein Feld auf Arbeitsblatt2 übertragen (ich habe das Zielfeld auch mit einer gleichwertigen Combobox versehen).
Wenn ich das Feld auf Arbeitsblatt (nennen wir es z.B. X1) mit =...
07.12.2009 07:07:44
Thread-ID: 1122110
3 Beiträge

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
1
1
4
3
2
12
2
2
4
1
7
5
2
6
5
9
4
4
1
3
8
4
2