Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listenfeld mit mehreren Makros

Forumthread: Listenfeld mit mehreren Makros

Listenfeld mit mehreren Makros
Pasqual
Ich möchte an ein Listenfeld mehrere Makros anhängen und stoße auf ein problem, wenn ich im VB- _
editor diesen code(testweise nur mit einer auswahl) eingebe 

Sub Listenfeld6_BeiÄnderung()
Select Case Listenfeld6_BeiÄnderung.Value
Case "makro1"
Call makro1
End Select
End Sub

bekomme ich bei ausführung eine meldung die lautet,
Fehler beim Kompilieren, 

Function oder Variable erwartet.
Jede hilfe ist willkommen
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Listenfeld mit mehreren Makros
27.01.2012 06:05:55
Hajo_Zi
Hallo Pasqual,
nur wenige sehen Deine Datei. Ein Nachbau sieht bestimmt anderes aus als das Original. Warum sollte ich die Zeit auch inve4stieren, die hast Du doch schon investiert.

AW: Listenfeld mit mehreren Makros
27.01.2012 09:14:52
Ass
Hallo Pasqual,
weise dieses Makro deiner Listbox zu.
Der Name des Makros kann geändert werden.
Die Zahl in der Klammer bei ListBox(2) ist der Index, nicht der Name. In diesem Fall wird also die 2. Listbox in deiner Tabelle angesprochen.
Die Namen der Makros müssen natürlich genau mit dem inhalt der Liste übereinstimmen.
siehe auch:
http://support.microsoft.com/kb/140034/de 
Sub Test()
Dim Lbox As Object
Set Lbox = ActiveSheet.ListBoxes(2)
If Lbox.Value = 0 Then Exit Sub
Select Case Lbox.Value
Case 0
Exit Sub
Case 1
Call makro1
Case 2
Call makro2
Case 3
Call makro3
Case 4
Call makro4
End Select
Lbox.Value = 0
End Sub

Für die Programmierung eignen sich die Steuerelemente der Steuerelemente_Toolbox besser.
Rudi
Anzeige
AW: Listenfeld mit mehreren Makros
27.01.2012 15:48:37
Pasqual
Hier nochmal mein problehm etwas genauer definiert,
Ich habe mir ein Listenfeld erstellt und dort eine Liste an Getränken aufgeführt, ich möchte das bei klick auf eines der Getränke ein dazugehöriges Makro ausgeführt wird.
Hier die ersten 10 getränke,
43er
Amaretto
Ananassaft
Aperol
Apfelsaft
Apricot Brandy
Asbach
Bacardi
Bacardi Razz
Baileys
Die Makros sollen gleichnahmig sein.
doch bei jedem versuch mich ohne kenntnisse mit dem VBa Editor auseinander zu setzen, stoße ich auf die fehlermeldung
Fehler beim Kompilieren: Sub oder function nicht definiert .
Bitte helft mir
Anzeige
AW: Listenfeld mit mehreren Makros
27.01.2012 16:20:52
Ass
Hallo
im VBA-Editor findest du den Projekt-Explorer
füge ein Modul ein! Das heißt dann Mudul1
da hinein kopierst du alle Makros
hier einmal alles komplett:
Option Explicit
Option Private Module
Sub Test()
Dim Lbox As Object
Set Lbox = ActiveSheet.ListBoxes(2)
Select Case Lbox.Value
Case 0
Exit Sub
Case 1
Call makro1
Case 2
Call makro2
Case 3
Call makro3
Case 4
Call makro4
End Select
Lbox.Value = 0
End Sub


Sub makro1()
MsgBox "1"
End Sub

Sub makro2()
MsgBox "2"
End Sub

Sub makro3()
MsgBox "3"
End Sub

Sub makro4()
MsgBox "4"
End Sub

Nun müssen die Makros umbenannt werden.
zB. statt Makro1 - Amaretto
43er geht nicht, da Makro-Namen immer mit einem Buchstaben beginnen müssen; Leerzeichen im Namn geht auch nicht
Gruß
Rudi
Anzeige
AW: Listenfeld mit mehreren Makros
27.01.2012 18:22:52
Pasqual
Danke Danke Danke !!!
Ich habe einfach mal eine neue Mappe geöffnet und deinen Code ausprobiert ! es klappt !!!
Sub Listenfeld1_BeiÄnderung()
Dim Lbox As Object
Set Lbox = ActiveSheet.ListBoxes(1)
Select Case Lbox.Value
Case 0
Exit Sub
Case 1
Call Amaretto
Case 2
Call Apfelsaft
Case 3
Call Orangensaft
Case 4
Call Grenadine
End Select
Lbox.Value = 0
End Sub

DANKE !
Anzeige
;

Forumthreads zu verwandten Themen

Makros zusammenfügen
Tom

Hallo,
ich habe folgende u.a. Codes. Ich möchte nun, dass diese Codes als ein Makro ablaufen. Aber nicht als Worksheet_Activate sondern nach Betätigung eines Buttons (MAkro zuweisen). Da ich in VBA nicht der Held bin und mir diese Codes zusammengebastelt habe, benötige ich die Hilfe von Pro...
14.08.2008 10:40:00
Thread-ID: 1001761
13 Beiträge
Evaluate mittels Excel4-Makros
Reinhard

Hallo Wissende,
ich bin mir unsicher, aber ich meine man kann durch Namensvergabe für eine Formel, im Stil von
=Zelle.Zuordnen(x;A1)
errichen, daß dann ein "Ausdruck" so wie bei Evaluate berechnet wird.
Annahme:
A1: 15
A2: +
A3: 12
Namensformel für A4, wo drin s...
14.08.2008 22:18:00
Thread-ID: 1001996
3 Beiträge
Makros: Ein Teil nur ein Mal ausführen
wowa

Hallo an Alle!
Kann man ein Teil eines Makros nur ein Mal ausführen lassen und den Rest ständig, sodass der "unnötige Abschnitt eines Makros" ab dem 2ten Mal übersprungen wird?
Vielen Dank im Voraus!!!!
Wowa
19.08.2008 11:11:54
Thread-ID: 1002852
12 Beiträge
Mehrere Makros beim Öffnen abspielen
wowa

Hallo an Alle!
Ich habe mehrere Makro für mehrere PivotCharts und ich möchte, dass die beim öffnen der Excel-Datei ausgeführt werden.
Ich habe rausgefunden dass das über die Arbeitsmappe--}"Workbook Open" geht und es klappt wenn ich nur ein Makro habe. Aber mit mehreren klappt es nic...
19.08.2008 17:49:00
Thread-ID: 1003015
5 Beiträge
Inputbox vor Makrostart
Tom

Hallo,
ich habe mal den Anfang des Codes hier her kopiert.
Ich möchte erreichen, dass beim Aufrufs dieses Codes im Vorfeld eine Eingabebox geöffnet in der dann der zweite Wert eingetragen wurde, der hier steht:
For i = 2 To 4 'Anzahl der Mails
Sub Excel_Serienmail_via_Outlook_Hy...
23.08.2008 16:25:07
Thread-ID: 1004126
3 Beiträge
Anzeige
makros funktionieren auf anderen Rechnern nicht
walter

Hallo liebe excel Freunde!
Ich habe eine excel Datei geschrieben, in der sehr viele Makros stecken. Leider funktionieren die meisten Makros auf einigen Rechnern nicht. Auf manchen gehen alle Makros, auf einigen aber eben nicht. Ich habe auf allen Rechnern, wo die Datei laufen soll die Makro...
27.08.2008 15:47:49
Thread-ID: 1005118
11 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
ThisWorkbook.FollowHyperlink Address - Makros akt.
Peter

Guten Abend
Kann ich bei nachfolgendem Code eine Ergänzung anbringen, damit allfällig vorhandene Makros einer zu öffnenden Datei automatisch aktiviert werden?
Wenn ja, wie?
Danke für jede Hilfe.
Gruss, Peter
If Dir(strPath & "\" & strFile) "" Then
Cancel = True<...
02.09.2008 22:09:05
Thread-ID: 1006962
3 Beiträge
Makrospeicherung
Michael

Hallo Excelgemeinde,
ich muss 1x die Woche aus einem Programm Daten exportieren. Dieser Export findet immer in die gleiche Exceldatei statt (auch unter demselben Namen). Um diese Exceldatei dann weiter zuverarbeiten und optisch ein bißchen aufzubereiten habe ich mir per Recorder ein Makro z...
09.09.2008 13:24:00
Thread-ID: 1008448
12 Beiträge
Makros
Carolina

Hallo alle zusammen,
ich habe eine Excel Tabelle mit einem Makro, dass nichts anderes macht, als die Tabelle nach drei bestimmten Spalten mithilfe der Kombination Strg+Y zu sortieren.
Das Makro funktioniert auch einwandfrei, will ich aber die Tabelle speichern, bekomme ich folgende Meld...
13.09.2008 11:12:13
Thread-ID: 1009487
8 Beiträge
Makrosammlung für Super Addin
Rocky

Hallo Excelfans,
ich bin auf der suche nach anregungen für meine Addinsammlung. Hat jemand nützliches was man in einem addin sammeln kann? Auf manche schönen Sachen kommt man erst, wenn man sie sieht.
würde gern Anregungen sammel, sie dann in einem Addin zusammensteleen und Sie es dann...
16.09.2008 12:16:05
Thread-ID: 1010049
4 Beiträge
Anzeige
4.0 Makros (Excel 2002 SP 3) unter 2003
Bernd

Hallo VBA-Experten,
mit meinen Makros, die ich unter Excel 2002 SP 3 erstellt habe, habe ich nun - seitdem ich Excel 2003 habe - Probleme. Beim Öffnen einer Datei fragt er mich als erstes "Makros aktivieren Ja/Nein" und als zweites gibt Excel den Hinweis, dass die Datei MS Excel 4.0 Makros...
17.09.2008 08:20:16
Thread-ID: 1010219
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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