AW: Mehrere Listenfelder pro Sheet
11.01.2010 06:01:06
fcs
Hallo Dietmar,
wenn die anderen Listboxen-Auswahlnummern die gleichen Aktionen auslösen sollen, wie Listbox1 dann etwa so:
Private Sub ListBox1_Click()
Call Auswerten(Range("A1").Value)
End Sub
Private Sub ListBox2_Click()
Call Auswerten(Range("C1").Value)
End Sub
Private Sub ListBox3_Click()
Call Auswerten(Range("D1").Value)
End Sub
'In einem allgemeinen modul
Public Sub Auswerten(varWert)
Select Case varWert
Case 1: Call Makro1
Case 2: Call Makro2
Case 3: Call Makro3
Case Else
MsgBox "Für Eintrag """ & varWert _
& """ wurde noch kein Makro zugeordnet!"
End Select
End Sub
Wenn die anderen Listboxen andere Aktionen starten sollen, dann etwa so:
Private Sub ListBox1_Click()
Call Auswerten("Listbox1", Range("A1").Value)
End Sub
Private Sub ListBox2_Click()
Call Auswerten("Listbox2", Range("C1").Value)
End Sub
Private Sub ListBox3_Click()
Call Auswerten("Listbox3", Range("D1").Value)
End Sub
'In einem allgemeinen modul
Public Sub Auswerten(sBox, varWert)
Select Case sBox
Case "Listbox1"
Select Case varWert
Case 1: Call Makro1
Case 2: Call Makro2
Case 3: Call Makro3
Case Else
MsgBox "Für Listbox1 - Eintrag """ & varWert _
& """ wurde noch kein Makro zugeordnet!"
End Select
Case "Listbox2"
Select Case varWert
Case 1: Call Makro5
Case 2: Call Makro6
Case 3: Call Makro7
Case Else
MsgBox "Für Listbox2 - Eintrag """ & varWert _
& """ wurde noch kein Makro zugeordnet!"
End Select
Case "Listbox3"
Select Case varWert
Case 1: Call Makro8
Case 2: Call Makro9
Case 3: Call Makro10
Case Else
MsgBox "Für Listbox3 - Eintrag """ & varWert _
& """ wurde noch kein Makro zugeordnet!"
End Select
End Select
End Sub
Gruß
Franz