Listbox hört nach 1. Eintrag mit Bearbeitung auf
27.11.2015 13:02:09
Andre
ich benötige dringend eure Hilfe.
Ich habe eine Userform, in der links die Listbox1 mit .Additem Kunden eingefügt wurden. Diese kann ich per Add / Remove Button in eine Listbox2 schieben.
Dann will ich über die OptionButtons (PDF und Druck) einen oder mehrere Kunden aus Listbox2 als PDF oder Druck haben.
Für jeden einzelnen Kunden habe ich dafür ein Makro programmiert und über Select Case definiert.
Jetzt hört er aber in der Listbox2 nach dem ersten Eintrag auf.
Wie bekomme ich es hin, dass er die gesamte Listbox2 durcharbeitet und quasi nach Kundennamen jedes einzelne Makro dahinter startet?
Vielen Dank für eure schnellen Antworten.
Anbei der VBA-Code:
Dim i As Integer
Private Sub ListBox1_Click()
End Sub
'Linke Liste befüllen
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "Aareal Bank AG"
.AddItem "Allianz SE"
.AddItem "Bayerische Landesbank"
.AddItem "Bayerische Versicherungskammer"
.AddItem "BMW Bank GmbH"
.AddItem "Commerzbank AG"
.AddItem "Daimler Financial Services AG Konzern"
.AddItem "DekaBank Deutsche Girozentrale"
.AddItem "Deutsche Bank AG"
.AddItem "Deutsche Börse AG"
.AddItem "DZ Bank AG"
.AddItem "Gothaer Konzern"
.AddItem "HDI Talanx Group"
.AddItem "HSH Nordbank AG"
.AddItem "KfW"
.AddItem "Landesbank Berlin Holding AG"
.AddItem "Landesbank Hessen Thüringen Girozentrale"
.AddItem "Landeskreditbank BadenWürttemberg Förderbank LBank"
.AddItem "LBBW Konzern Gruppe"
.AddItem "MunichRe AG"
.AddItem "Norddeutsche Landesbank Girozentrale"
.AddItem "NRW Bank"
.AddItem "Volkswagen Bank GmbH"
.AddItem "Wüstenrot Stiftung Gemeinschaft der Freunde Deutscher Eigenheimverein eV"
.AddItem "Signal Iduna Gruppe"
.AddItem "HUK COBURG Holding AG"
.AddItem "Provinzial Rheinland Holding Konzern"
End With
OptionButton4.Value = True
End Sub
'Add Button
Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
Next i
End Sub
'Remove Button
Private Sub CommandButton2_Click()
Dim counter As Integer
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter)
counter = counter + 1
End If
Next i
CheckBox2.Value = False
End Sub
'Ansehen
Private Sub OptionButton1_Click()
Select Case ListBox2.List(ListBox2.ListIndex)
Case "Aareal Bank AG"
Call Aareal_Bank_AG
Case "Allianz SE"
Call Allianz_SE
Case "Bayerische Landesbank"
Call Bayerische_Landesbank
Case "Bayerische Versicherungskammer"
Call Bayerische_Versicherungskammer
Case "BMW Bank GmbH"
Call BMW_Bank_GmbH
Case "Commerzbank AG"
Call Commerzbank_AG
Case "Daimler Financial Services AG Konzern"
Call Daimler_Financial_Services_AG_Konzern
Case "DekaBank Deutsche Girozentrale"
Call DekaBank_Deutsche_Girozentrale
Case "Deutsche Bank AG"
Call Deutsche_Bank_AG
Case "Deutsche Börse AG"
Call Deutsche_Börse_AG
Case "DZ Bank AG"
Call DZ_Bank_AG
Case "Gothaer Konzern"
Call Gothaer_Konzern
Case "HDI Talanx Group"
Call HDI_Talanx_Group
Case "HSH Nordbank AG"
Call HSH_Nordbank_AG
Case "KfW"
Call KfW
Case "Landesbank Berlin Holding AG"
Call Landesbank_Berlin_Holding_AG
Case "Landesbank Hessen Thüringen Girozentrale"
Call Landesbank_Hessen_Thüringen_Girozentrale
Case "Landeskreditbank BadenWürttemberg Förderbank LBank"
Call Landeskreditbank_BadenWürttemberg_Förderbank_LBank
Case "LBBW Konzern Gruppe"
Call LBBW_Konzern_Gruppe
Case "MunichRe AG"
Call MunichRe_AG
Case "Norddeutsche Landesbank Girozentrale"
Call Norddeutsche_Landesbank_Girozentrale
Case "NRW Bank"
Call NRW_Bank
Case "Volkswagen Bank GmbH"
Call Volkswagen_Bank_GmbH
Case "Wüstenrot Stiftung Gemeinschaft der Freunde Deutscher Eigenheimverein eV"
Call Wüstenrot_Stiftung_Gemeinschaft_der_Freunde_Deutscher_Eigenheimverein_eV
Case "Signal Iduna Gruppe"
Call Signal_Iduna_Gruppe
Case "HUK COBURG Holding AG"
Call HUK_COBURG_Holding_AG
Case "Provinzial Rheinland Holding Konzern"
Call Provinzial_Rheinland_Holding_Konzern
End Select
End Sub
'PDF erstellen
Private Sub OptionButton2_Click()
Select Case ListBox2.List(ListBox2.ListIndex)
Case "Aareal Bank AG"
Call PDF_Aareal_Bank_AG
Case "Allianz SE"
Call PDF_Allianz_SE
Case "Bayerische Landesbank"
Call PDF_Bayerische_Landesbank
Case "Bayerische Versicherungskammer"
Call PDF_Bayerische_Versicherungskammer
Case "BMW Bank GmbH"
Call PDF_BMW_Bank_GmbH
Case "Commerzbank AG"
Call PDF_Commerzbank_AG
Case "Daimler Financial Services AG Konzern"
Call PDF_Daimler_Financial_Services_AG_Konzern
Case "DekaBank Deutsche Girozentrale"
Call PDF_DekaBank_Deutsche_Girozentrale
Case "Deutsche Bank AG"
Call PDF_Deutsche_Bank_AG
Case "Deutsche Börse AG"
Call PDF_Deutsche_Börse_AG
Case "DZ Bank AG"
Call PDF_DZ_Bank_AG
Case "Gothaer Konzern"
Call PDF_Gothaer_Konzern
Case "HDI Talanx Group"
Call PDF_HDI_Talanx_Group
Case "HSH Nordbank AG"
Call PDF_HSH_Nordbank_AG
Case "KfW"
Call PDF_KfW
Case "Landesbank Berlin Holding AG"
Call PDF_Landesbank_Berlin_Holding_AG
Case "Landesbank Hessen Thüringen Girozentrale"
Call PDF_Landesbank_Hessen_Thüringen_Girozentrale
Case "Landeskreditbank BadenWürttemberg Förderbank LBank"
Call PDF_Landeskreditbank_BadenWürttemberg_Förderbank_LBank
Case "LBBW Konzern Gruppe"
Call PDF_LBBW_Konzern_Gruppe
Case "MunichRe AG"
Call PDF_MunichRe_AG
Case "Norddeutsche Landesbank Girozentrale"
Call PDF_Norddeutsche_Landesbank_Girozentrale
Case "NRW Bank"
Call PDF_NRW_Bank
Case "Volkswagen Bank GmbH"
Call PDF_Volkswagen_Bank_GmbH
Case "Wüstenrot Stiftung Gemeinschaft der Freunde Deutscher Eigenheimverein eV"
Call PDF_Wüstenrot_Stiftung_Gemeinschaft_der_Freunde_Deutscher_Eigenheimverein_eV
Case "Signal Iduna Gruppe"
Call PDF_Signal_Iduna_Gruppe
Case "HUK COBURG Holding AG"
Call PDF_HUK_COBURG_Holding_AG
Case "Provinzial Rheinland Holding Konzern"
Call PDF_Provinzial_Rheinland_Holding_Konzern
End Select
End Sub
'Ausdruck erstellen
Private Sub OptionButton3_Click()
Select Case ListBox2.List(ListBox2.ListIndex)
Case "Aareal Bank AG"
Call Druck_Aareal_Bank_AG
Case "Allianz SE"
Call Druck_Allianz_SE
Case "Bayerische Landesbank"
Call Druck_Bayerische_Landesbank
Case "Bayerische Versicherungskammer"
Call Druck_Bayerische_Versicherungskammer
Case "BMW Bank GmbH"
Call Druck_BMW_Bank_GmbH
Case "Commerzbank AG"
Call Druck_Commerzbank_AG
Case "Daimler Financial Services AG Konzern"
Call Druck_Daimler_Financial_Services_AG_Konzern
Case "DekaBank Deutsche Girozentrale"
Call Druck_DekaBank_Deutsche_Girozentrale
Case "Deutsche Bank AG"
Call Druck_Deutsche_Bank_AG
Case "Deutsche Börse AG"
Call Druck_Deutsche_Börse_AG
Case "DZ Bank AG"
Call Druck_DZ_Bank_AG
Case "Gothaer Konzern"
Call Druck_Gothaer_Konzern
Case "HDI Talanx Group"
Call Druck_HDI_Talanx_Group
Case "HSH Nordbank AG"
Call Druck_HSH_Nordbank_AG
Case "KfW"
Call Druck_KfW
Case "Landesbank Berlin Holding AG"
Call Druck_Landesbank_Berlin_Holding_AG
Case "Landesbank Hessen Thüringen Girozentrale"
Call Druck_Landesbank_Hessen_Thüringen_Girozentrale
Case "Landeskreditbank BadenWürttemberg Förderbank LBank"
Call Druck_Landeskreditbank_BadenWürttemberg_Förderbank_LBank
Case "LBBW Konzern Gruppe"
Call Druck_LBBW_Konzern_Gruppe
Case "MunichRe AG"
Call Druck_MunichRe_AG
Case "Norddeutsche Landesbank Girozentrale"
Call Druck_Norddeutsche_Landesbank_Girozentrale
Case "NRW Bank"
Call Druck_NRW_Bank
Case "Volkswagen Bank GmbH"
Call Druck_Volkswagen_Bank_GmbH
Case "Wüstenrot Stiftung Gemeinschaft der Freunde Deutscher Eigenheimverein eV"
Call Druck_Wüstenrot_Stiftung_Gemeinschaft_der_Freunde_Deutscher_Eigenheimverein_eV
Case "Signal Iduna Gruppe"
Call Druck_Signal_Iduna_Gruppe
Case "HUK COBURG Holding AG"
Call Druck_HUK_COBURG_Holding_AG
Case "Provinzial Rheinland Holding Konzern"
Call Druck_Provinzial_Rheinland_Holding_Konzern
End Select
End Sub
'Check / Uncheck all Links
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
Next i
End If
If CheckBox1.Value = False Then
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End If
End Sub
'Check / Uncheck all Rechts
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
For i = 0 To ListBox2.ListCount - 1
ListBox2.Selected(i) = True
Next i
End If
If CheckBox2.Value = False Then
For i = 0 To ListBox2.ListCount - 1
ListBox2.Selected(i) = False
Next i
End If
End Sub