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