Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Call mit Variable

Call mit Variable
20.06.2004 18:15:05
Eckhard
Hallo Forum,
ich möchte ein Makro über eine Dropdown-Liste aufrufen. Hierzu möchte ich den Befehl Call (VBA.Left(Target.Value, 1)) verwenden.
Hintergrund: In der Liste stehen verschiedene Tabellen, die aufgerufen werden sollen und dafür brauche ich verschiedene Makros.
Also Makro A
Makro B usw.
Wie krieg ich es jetzt hin, das in Abhängigkeit von dem ausgewählten Wert (Variable) das Makro aufgerufen wird?
Danke im Voraus.
Eckhard

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Call mit Variable
20.06.2004 19:25:13
Ulf
"ich möchte ein Makro über eine Dropdown-Liste aufrufen"
Was steht in der Liste?
Ulf
AW: Call mit Variable
20.06.2004 21:17:23
andre
Hallo Eckhard,
Du kannst es z.B. so lösen:

Sub test()
Dim irgendwas$
irgendwas = "abc"
Select Case Left(irgendwas, 1)
Case "a": Call a
Case "b": Call b
Case Else: MsgBox "nix"
End Select
End Sub


Sub a()
MsgBox 1
End Sub


Sub b()
MsgBox 2
End Sub

AW: Call mit Variable
21.06.2004 09:43:42
Eckhard
Hallo Andre,
irgendwie krieg ich das nicht hin. Es kommt immer 1.
Gruß Eckhard
AW: Call mit Variable
21.06.2004 17:06:03
andre
Hallo Eckhard,
das ist ja auch nur ein Beispiel wie man mit case und call usw. die makros aufrufen kann. Den Code musst Du deiner Combobox zuordnen, wenn die im Tabellenblatt ist dann im codemodul vom Tabellenblatt - im userform sähe es genau so aus.

Private Sub ComboBox1_Change()
Select Case Left(ComboBox1.Value, 1)
Case "a": Call a
Case "b": Call b
' usw. für die anderen Buchstaben, die Makros dazu müssen
' ebenfalls erstellt werden sonst kommt eine Fehlermeldung
Case Else: MsgBox "nix"
End Select
End Sub

Den Wertebereich kannst Du einfach in der Eigenschaft ListFillRange vereinbaren, da brauchst Du kein Makro.
Anzeige
AW: Call mit Variable
21.06.2004 17:18:08
Eckhard
Aha, vielen Dank Ihr beiden.
Damit ist die Sache klar.
AW: Call mit Variable
21.06.2004 09:41:48
Eckhard
Hallo Ulf,
da stehen so lustige Sachen drin wie:
A. Ergebnis
B. Summen- und Saldenliste
C. Adressenliste
D. Ausdruck aller Debitoren
E. Ansicht Debitoren Saldenliste
F. Buchungen
G. Buchungsjournal
und es soll dann das jeweilige Makro aufgerufen werden, dass mir die entsprechenden Tabellen öffnet.
Danke Eckhard
AW: Call mit Variable
21.06.2004 11:06:11
Ulf
Option Explicit

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0: Call Makro1
Case 1: Call Makro2
Case 2: Call Makro3
'usw...............
End Select
End Sub

Ulf
Anzeige
AW: Call mit Variable
21.06.2004 11:23:26
Eckhard
Hmmm... das sieht gut aus,
aber wie fülle ich denn eine ComboBox mit Leben? sprich mit Werten?
Danke Eckhard
AW: Call mit Variable
21.06.2004 11:38:30
Ulf
Auf meine Frage, was da so drinsteht, hast du geantwortet:
"da stehen so lustige Sachen drin wie:....."
Du musst doch wissen, wie das dort reingekommen ist.
Ulf
AW: Call mit Variable
21.06.2004 11:43:15
Eckhard
Ach so,
nein die Sachen stehen in einer Tabelle bzw. in der Spalte M,
also noch nicht in der ComboBox.
Die ComboBox ist leer
Gruß Eckhard
AW: Call mit Variable
21.06.2004 11:59:02
Ulf
Wo ist denn deine Combobox, in einer Tabelle oder userform?
Ulf
AW: Call mit Variable
21.06.2004 12:04:38
Eckhard
Hmm... ich weiß nicht, was ein Userform ist.
Aber die ComboBox ist in einer Tabelle.
Gruß Eckhard
Anzeige
AW: Call mit Variable
21.06.2004 12:28:10
Ulf
Annahme, deine Texte stehen in A1:A10
Option Explicit

Private Sub Worksheet_Activate()
Dim i As Byte
combobox1.clear
For i = 1 To 10
combobox1.AddItem Cells(i, 1)
Next
End Sub

Ulf
Ulf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige