Das Archiv des Excel-Forums

VBA: Markierter Wert aus Listbox in aktive Zelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox
Bild

Betrifft: VBA: Markierter Wert aus Listbox in aktive Zelle
von: Moritz

Geschrieben am: 30.09.2003 16:03:24

Hallo,

folgende Fragestellung: Eine 3-spaltige Originalliste wird laufend um neue Projekte erweitert. Auf einem weiteren Arbeitsblatt erscheinen die Projekte in Spalte A verkettet. Nun sollen die Projekte über eine Auswahlliste, sortiert und ohne Leerzeilen dargestellt werden. Klappt mittles der untenstehenden Formel tadellos.

Weiter soll der markierte Wert per Klick auf den Button 'OK' in die aktive Zelle des Arbeitsblatts übertragen werden. Das dazugehörige Formular (ListBoxSort) besteht aus einer ListBox und einem OK Button. Hier komme ich nicht weiter! Was müßte man dem OK Button formeltechnisch mitteilen, um den jeweils markierten Wert per Klick in die jeweils aktive Zelle auf dem Arbeitsblatt übertragen zu können?


Sub ShowTheForm()
ListboxSort.Show
End Sub

-----

Sub SortAndRemoveDupes()
Dim rListSort As Range, rOldList As Range
Dim strRowSource As String
'Clears Hidden sheet Column A ready for list
Sheet1.Range("A1", Sheet1.Range("A65536").End(xlUp)).Clear
'Sets range variable to list we want
Set rOldList = Sheet2.Range("A1", Sheet2.Range("A65536").End(xlUp))
'Uses AdvancedFilter to copy the list to Column A _
of the hidden sheet and remove all dupes
rOldList.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheet1.Cells(1, 1), Unique:=True
'Sets range variable to the new non dupe list
Set rListSort = Sheet1.Range("A1", Sheet1.Range("A65536").End(xlUp))
With rListSort
'Sorts the new non dupe list
.Sort Key1:=.Cells(2, 1), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
'Parses the address of the sorted unique items
strRowSource = Sheet1.Name & "!" & Sheet1.Range _
("A2", Sheet1.Range("A65536").End(xlUp)).Address
Sheet1.Range("A1") = "akanto -- Neu sortierte Projektbudgetliste"
With ListboxSort.ListBox1
'Clears old ListBox RowSource
.RowSource = vbNullString
'Parses new one
.RowSource = strRowSource
End With
End Sub

Bild


Betrifft: AW: VBA: Markierter Wert aus Listbox in aktive Zelle
von: ChrisL
Geschrieben am: 30.09.2003 21:10:20

Hallo Moritz

Bin da ehrlich gesagt etwas durcheinander, aber ich interpretiere das Problem jetzt einfach mal wie folgt:

Du möchtest aus einer 3-spaltigen Listbox den markierten Wert in die aktive Zelle übernehmen, Fokus also auf 3-spaltig. Dabei scheint mir dein bestehendes Makro aber lediglich auf eine Spalte zu deuten... jedenfalls etwa wie folgt

ActiveCell = ListBox1.Column(0) & ListBox1.Column(1) & ListBox1.Column(2)

Wenn es doch eine einspaltige ListBox ist, dann so...

ActiveCell = ListBox1

Wenn das Problem ein anderes ist z.B. Multi-Select, dann kannst du dich ja nochmals melden oder besser mal in der Recherche gucken.

In deinem Code - vorausgesetzt, dass das Blatt überhaupt sichtbar ist - würde sich übrigens ein...

Application.ScreenUpdating = False
' Dein Code
Application.ScreenUpdating = True

... nicht schlecht machen.

Gruss
Chris


 Bild

Excel-Beispiele zum Thema " VBA: Markierter Wert aus Listbox in aktive Zelle"

Adressen grau markierter Zellen als Hyperlink eintragen download Mehrfachauswahl aus ListBox auslesen download
Gefilterte Daten in eine ListBox einlesen download Dateien aus Listbox auslesen und öffnen download
Listbox-Eintrag durch Mausbewegung markieren download ListBox-Einträge auswechseln download
Horizontal angeordnete Elemente in eine ListBox übernehmen download Tabellenblattnamen in eine ListBox einlesen download
ListBox bei Eintrag erweitern download Als Zellkontextmenü Listbox aufrufen download
Dateinamen in Listbox download Mehrfachauswahl in ListBox auslesen download
Ordner eines Verzeichnisses in ListBox übernehmen download Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Matrix in UserForm-ListBox einlesen download
Bereichsnamen in UserForm-ListBox auflisten und editieren download Ausgewählte Werte aus UserForm-ListBoxes addieren download
Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download
Wahlweise Elemente in UserForm-Text- oder -ListBox markieren download Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download
ListBox-Auswahl in Labels übernehmen download Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download
Blattnamen bedingt in ListBox einlesen und Blätter auswählen download Einlesen von Spaltenköpfen in UserForm-ListBox download
Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download Mehrspaltige UserForm-ListBox lückenlos füllen download
Makroverzweigungen nach OptionsFeld- oder ListBox-Auswahl download Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen download
Werte aus UserForm-ListBox in die Zwischenablage übernehmen download Wert aus UserForm-ListBox in Tabellenblatt eintragen download
Einlesen des Outlook-Adressbuches in eine UserForm-ListBox download Blattauswahl über UserForm-ListBox mit Mehrfachauswahl download
UserForm-TextBox-Werte einer ListBox hinzufügen download Druck der in einer UserForm-ListBox ausgewählten Arbeitsblätter download
Zufallszahl in UserForm-ListBox zentriert anzeigen download UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download
Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen download Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download
Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen download UserForm-ListBox-Einträge sortieren download
Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös download Doppelte Einträge in UserForm-ListBox löschen download
Mehrspaltige UserForm-ListBox sortieren download Ausgewählen Zeilen aus UserForm-ListBox in neue Tabelle download
Zweite ListBox in Abhängigkeit der ersten füllen download In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download
Werte in zweispaltiger ListBox rechts- und linksbündig darstellen download Befindet sich die aktive Zelle in einem bestimmten Bereich? download
Adressdaten der aktiven Zelle über VBA feststellen download Ab der aktiven Zelle summieren download
Drei Zellen rechts der aktiven Zelle markieren download Aktiven Drucker in UserForm wechseln download
Verknüpfungen der aktiven Mappe listen download Während der Laufzeit aktives Modul löschen download
Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen download Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren download
Schriftgröße der aktiven Zelle bei Auswahl ändern download Spalte A mehrer Mappen in UserForm und aktives Blatt download
Alle Namen in der aktiven Arbeitsmappe löschen download Ausgblendetes Fenster ein- und aktives Fenster ausblenden download
Zeilenumbrüche im aktiven Blatt entfernen download Kopfzelle mit aktivem Autofilter markieren download
Zeile mit aktiver Zelle in anderes Blatt kopieren download VBE-Komponenten der aktiven Arbeitsmappe auslesen download
Wert der aktiven Spalte an nächste freie Position einfügen download Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle download
Aktive Arbeitsmappe löschen download Wert in jeweils aktive UserForm-TextBox eintragen download
Zeile 1 nach Wert der aktiven Zelle durchsuchen download Eintrag eines ListBox-Wertes in die aktive Zelle download
Über interaktive InputBox Bereich auswählen und zurückgeben download Die letzte Zeile des aktiven Blattes in andere Arbeitsmappe download
ComboBox mit LinkedCell-Eigenschaft in aktivem Blatt erstellen download Aktive Zeile kopieren und löschen download
Werte der aktiven Zeile in einer fixen Zeile anzeigen download Ausgewählten Bereich als interaktive Tabelle versenden download
Aktive Arbeitsmappe ohne VBA-Code und Button speichern download