Makro durch Listbox Eintrag aufrufen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Makro durch Listbox Eintrag aufrufen
von: Manuel
Geschrieben am: 21.09.2015 17:12:37

Hallo Leute,
ich habe für ein Projekt eine Userform mit Listbox erstellt, die ich fülle durch "Additem".
Nun ist es kein Problem mittels Commandbutton einen Makro anzusteuern wenn ein entsprechender Listbox Eintrag ausgewählt wird. Dies mache ich mit einer If-Schleife. Jedoch schaffe ich es nicht, mehrere Einträge der Listbox auszuwählen und dann die entsprechenden Makros zu starten.
"Multiselect" habe ich schon in den Eigenschaften der Listbox eingestellt. Jedoch klappt es einfach nicht das bei Klick auf dem CommandButton direkt mehrere Befehle ausgeführt werden.
Hier ist mein derzeitiger Code:

Private Sub UserForm_Activate()
ListBox1.Clear
ListBox1.AddItem "1"
ListBox1.AddItem "2"
ListBox1.AddItem "3"
'usw..
End Sub
Private Sub CommandButton1()
If Trim(ListBox1.List(ListBox1.ListIndex, 0)) = "1" Then
 MsgBox ("!")
End If
If Trim(ListBox1.List(ListBox1.ListIndex, 1)) = "2" Then
End If
'usw..
Me.Hide
End Sub

Könnt ihr mir vielleicht helfen?
Beste Grüße
Manuel

Bild

Betrifft: AW: Makro durch Listbox Eintrag aufrufen
von: Hajo_Zi
Geschrieben am: 21.09.2015 18:14:54
Hallo Manuel,
ich baue nichts nach

        For LoI = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(LoI) Then
' Deine aktionen
            End If
        Next LoI


Bild

Betrifft: AW: Makro durch Listbox Eintrag aufrufen
von: Manuel
Geschrieben am: 21.09.2015 19:27:36
Hallo Hajo,
vielen Dank für deine schnelle Antwort, ich hatte es leider versäumt die Datei hochzuladen.
Leider habe ich es mit deiner Lösung nicht hinbekommen, könntest du dir das nochmal ansehen?
Hier der Link zu der Mappe
https://www.herber.de/bbs/user/100306.xlsm
Vielen Dank und beste Grüße
Manuel

Bild

Betrifft: AW: Makro durch Listbox Eintrag aufrufen
von: Hajo_Zi
Geschrieben am: 21.09.2015 19:38:30
Hallo Manuel,
man sollte schon eine Datei hochladen die keinen Fehler auslöst.

Private Sub CommandButton1_Click()
Dim Loi As Long
    For Loi = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(Loi) Then
            Columns("I:K").Select
            Selection.EntireColumn.Hidden = False
            For I = 17 To 117
                Select Case I
                    'Bestimmte Zellen mit einem "" versehen
                    Case 17 To 20, 23 To 37, 40 To 43, 46 To 49, 52 To 55
                        'Zeilennummer ermittlen durch subtraktion von 10
                        z = I - 10
                        Sheets("SAS Plastic").Cells(z, 9).Value = ""
                End Select
            Next I
        End If
        Columns("I:K").Select
        Selection.EntireColumn.Hidden = True
        For I = 17 To 117
            Select Case I
                'Bestimmte Zellen mit einem "-" versehen
            Case 17 To 20, 23 To 37, 40 To 43, 46 To 49, 52 To 55
                'Zeilennummer ermittlen durch subtraktion von 10
                z = I - 10
                Sheets("SAS Plastic").Cells(z, 9).Value = "-"
        End Select
    Next I
    Next Loi
End Sub


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro durch Listbox Eintrag aufrufen"