Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1404to1408
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
1404to1408
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listenfeld Active-X mit Makro (Zelle) verbinden

Listenfeld Active-X mit Makro (Zelle) verbinden
22.01.2015 13:20:22
Gisela
Hallo liebe Gemeinde,
ich habe Zelle BX12 mit dem Makro LetzZeilS ausgestattet, was auch hervorragend funktioniert: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$BX$12" Then LetzZeilS
End Sub
Für die Felder BX1:BX12 habe ich eine Active X-LIste generiert 
Private Sub ListBox22_Click()
End Sub
Wenn ich jetzt in der Liste auf den Eintrag für das Feld BX12 klicke, wird leider kein Makro ausgeführt. Wie kann ich das ändern?
Danke
LG
Gisela

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listenfeld Active-X mit Makro (Zelle) verbinden
22.01.2015 13:24:20
Daniel
Hi
im Prinzip so:
Private Sub ListBox22_Click()
If Listbox22.Text = Range("BX12").Text Then LetzZeilS
End Sub

Daniel

AW: Listenfeld Active-X mit Makro (Zelle) verbinden
23.01.2015 18:40:43
Gisela
Hallo Daniel,
vielen Dank für Deine Antwort, technisch funktioniert es sehr gut.
Leider entwickelt aber Excel dadurch eine grosse Intabilität, mal sind nach dem Öffnen der Datei die Listenfelder verrutscht, mal ganz vershwunden, mal werden beim Ausführen anderer Makros nicht gewollte Ergebnisse vornehmlich in Form von Positionsverschiebungen produziert. Gibt es noch eine andere Möglichkeit, Makros in Dropdowns zu legen?
LG
Gisela

Anzeige
AW: Listenfeld Active-X mit Makro (Zelle) verbinden
24.01.2015 11:40:02
daniel
Hi
Du kannst statt den ActiveX-DropDowns auch die Guten alten Formular-Steuerelemente verwenden, die sind diesbezüglich etwas stabiler.
Das Ausgewählte Element wird hier in einer Zelle abgelegt und wenn bei Klick ein Makro ausgeführt werden soll, dann musst du eines aus einem allgemeinen Modul zuweisen.
Du kannst auch die DropDowns aus der Datenüberprüfung (Liste) verwenden.
Dann muss der Code ins Change-Event des Tabellenblatts und du kannst über die Variable Target abfragen welche Zelle geändert wurde und dann entsprechend reagieren.
Gruss Daniel

AW: Listenfeld Active-X mit Makro (Zelle) verbinden
26.01.2015 03:36:21
Gisela
Hallo Daniel,
also: ich habe ein Listenfeld-Formularsteuerelement eingefügt und mit den Feldern CM1:CM5 gefüttert. Dann folgende 5 Zeilen eingetragen (ENTWURFMODUS-CODE): 
Sub Listenfeld108_BeiÄnderung()
If Listenfeld108.Text = Range("CM1").Text Then Druckerzeichen
If Listenfeld108.Text = Range("CM2").Text Then Eckrand
If Listenfeld108.Text = Range("CM3").Text Then Formnummer
If Listenfeld108.Text = Range("CM4").Text Then HAN
If Listenfeld108.Text = Range("CM5").Text Then Plattenfehler
End Sub
Wenn ich jetzt innerhalb des Formularsteuerelements auf einen Eintrag doppelklicke erscheint die Fehlermeldung
Laufzeitfehler 424
Objekt erforderlich
Was mache ich falsch?
LG
Gisela

Anzeige
AW: Listenfeld Active-X mit Makro (Zelle) verbinden
26.01.2015 15:10:30
Daniel
Hi
bei einem Forumlar-Listenfeld musst du so vorgehen:
1) legen in den Formular-Steuereelementeigenschaften (Kontextmenü - Steuerelement formatieren - Steuerung) eine Zellvernüpfung fest.
in diese Zelle wird das Ergebnis der Auswahl als Indexnummer geschrieben (erste Zeile gewähtl: 1, zweite Zeile gewählt: 2, usw)
2. Im Code musst du dann diese Nummer abfragen und entsprechend reagieren: 
If Range("?") = 1 Then Druckerzeichen
If Range("?") = 2 Then Eckrand
Usw
Gruß Daniel

AW: Listenfeld Active-X mit Makro (Zelle) verbinden
27.01.2015 00:59:01
Gisela
Hallo Daaniel,
vielen Dank für Deine Anleitung, die funzt. Nachteilig ist nur, dass ich bei dem Klick auf die Bildlaufleiste auch den Makro auslöse und er genau 1 Feld nach unten/oben scrollt (wie kann ich dieses Verhalten ändern?) - ich habe 6 Makros auf L11 verknüpft - folgendes sub: 
Sub Listenfeld108_BeiÄnderung()
If Range("L11") = 1 Then Druckerzeichen
If Range("L11") = 2 Then Eckrand
If Range("L11") = 3 Then Formnummer
If Range("L11") = 4 Then HAN
If Range("L11") = 5 Then Plattenfehler
If Range("L11") = 6 Then Viererblock
End Sub
Wenn ich das ganze Feld so aufziehe, dass alle 6 Einträge sichtbar sind, tritt dieses Problem nicht auf, die Bildlaufleiste ist zwar sichtbar, aber ein Klick darauf löst keinen Makro aus.
LG
Gisela

Anzeige
AW: Listenfeld Active-X mit Makro (Zelle) verbinden
27.01.2015 12:55:54
Daniel
Hi
dann mach die Listbox doch gross genug für alle Einträge.
Ist für den Anwender sowiso angenehmer, wenn er gleich alle Optionen sieht.
Wenns ein Platzproblem gibt, kannst du anstelle der Listbox auch eine Combobox verwenden, da klappt die Auswahlliste erst auf Anforderung auf und du kannst sie gross genug machen.
Wenns zwingend eine Listbox mit Scrollbar sein muss, könntest du folgenden Workaround verwenden: 
Static LetzterBefehl as Long
If Range("L11").Value  LetzterBefehl Then
If Range("L11") = 1 Then Druckerzeichen
If Range("L11") = 2 Then Eckrand
If Range("L11") = 3 Then Formnummer
If Range("L11") = 4 Then HAN
If Range("L11") = 5 Then Plattenfehler
If Range("L11") = 6 Then Viererblock
LetzterBefehl = Range("L11")
End If
dh du merkst dir den zuletzt ausgeführten Befehl in einer statischen Variable und führst den Code nur aus, wenn ein neuer Befehl ausgewählt wurde.
damit vermeidest du die wiederholte Ausführung beim Scrollen.
(wobei es meiner Ansicht nach ein Bug ist, dass beim Scrollen das verknüpfte Makro ausgeführt wird)
Gruß Daniel

Anzeige
AW: Listenfeld Active-X mit Makro (Zelle) verbinden
28.01.2015 11:26:11
Gisela
Hallo Daniel,
danke für die Erweiterung und Erläuterungen! Du hast natürlich Recht bei kleineren Listenfeldern, aber ich habe jetzt auch welche mit bis zu 16 Einträgen und wenn ich die immer aufgeklappt lasse, nimmt das mächtig Platz in Anspruch...
Bzgl. des Workarounds tritt folgendes kleines Problem auf: wenn ich die Datei öffne, wird nach einem Klick auf die Bildlaufleiste das Makro ausgeführt, ab dem zweiten Klick auf die Leiste dann nicht mehr. Und das ist nach jedem Öffnen so, egal ob ich vorher etwas an der Datei verändert - oder nicht - habe.
LG
Gisela

AW: Listenfeld Active-X mit Makro (Zelle) verbinden
28.01.2015 13:24:42
Daniel
dann gehe so vor:
1. mache LetzterBefehl zu einer Projektweit gültigen Variable, hierzu deklarierst du sie in einem allgemeinen Modul oberhalb der Markos, die Zeile mit Static entflällt: 

Option Explicit
Public LetzterBefehl as Long
Sub DeinMakro()
If Range("L11")  LetzterBefehl
...
2. Ins Modul "DieseArbeitsmappe" kommt dann folgender Code (Tabellenblattname ggf anpassen): 
Private Sub Workbook_Open()
LetzterBefehl = Sheets("Tabelle1").Range("L11").Value
End Sub
Gruß Daniel

Anzeige
AW: Listenfeld Active-X mit Makro (Zelle) verbinden
29.01.2015 15:25:29
Gisela
Hallo Daniel,
suuper, funzt einwandfrei!!!
Vielen, vielen Dank!!!
LG
Gisela

AW: Listenfeld Active-X mit Makro (Zelle) verbinden
30.01.2015 14:12:22
Gisela
Hallo Daniel,
noch eine Frage:
wenn ich jetzt das blau hinterlegte Feld anklicke wird der Makro ausgeführt, wenn ich dann wieder zurückgehe und den Makro ein zweites Mal ausführen will, tut cih ettz dann wieder etwas (egal, ob Einfach- oder Doppelklick), wenn ich zuvor einen anderen Makro innerhalb dieser Liste ausgeführt habe, d.h. der maerkierte Makro kann nicht direkt ausgeführt werden.
Wie kann ich das ändern?
Danke und LG
Gisela

309 Forumthreads zu ähnlichen Themen

Auswählen einer Zelle sofort mit X kennzeichnen.
Richard

Hallo,
ich habe folgenden Code geschrieben: Wenn ich Zelle A1 auswähle, dann soll er dort ein X reinsetzten, steht da schon ein X dann soll er es wieder rausnehmen.
Jetzt kommt 'ne ganz blöde Frage: Wie definiere ich einen ganzen Bereich indem er das machen soll? Zum Beispiel A1:B100. S...
22.08.2008 15:12:33
Thread-ID: 1003911
3 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Zellen mit Text zählen
ric

Hallo,
ich habe Zellen, die Text enthalten und Zellen, welche eine Zahl enthalten. Wie kann ich die Anzahl der Zellen ermitteln, die nur Text enthalten.
Danke
25.11.2008 15:18:00
Thread-ID: 1027745
3 Beiträge
Anzeige
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
5 Beiträge
Letzte Zelle mit konstantem Wert in Excel
Daniel

Hallo zusammen,
mit welchem VBA-Befehl komme ich an die letzte Zeile mit einem konstantem Wert (KEINE Formel!!) in einem Excel-Blatt? (Mit Cells(Rows.Count,1).End(xlUp).Row bekomme ich ja die letzte Zeile mit einer Formel zurückgeliefert)
Vielen Dank für eine Antwort!
04.05.2009 14:37:38
Thread-ID: 1072763
18 Beiträge
Matrix (mit leeren zellen) in Liste umwandeln
Wolfango

Hallo nochmal,
(diese Frage knüpft an die vorhin gestellte Frage an; nur diesmal mit einem anderen Ansatz)
Wie kann ich die in der angehängten Matrix (noch) vorhandenen Werte, über Formeln sauber in einer Liste (Spalte) zusammenführen?
Die Datei https://www.herber.de/bbs/user/61614...
05.05.2009 11:55:18
Thread-ID: 1073036
5 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Zellen mit Farbe füllen
Karsten

Hallo,
ich möchte, wenn in der aktiven Zelle "Montag" steht, dass sie und die linken 11 Zellen sich mit Farbe 38 füllen. Steht Dienstag, dann dasselbe, nur mi Farbe 8.
Kann mir da jemand mit dem richtigen Befehl weiterhelfen?
Gruß
Karsten
25.07.2009 15:05:43
Thread-ID: 1091238
18 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox 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
2
5
1
2
2
4
17
4
20
17
7
7
16
12
1
4
1
17
1
7
11
14
4
12
5