Aanroepen subs in Loop

[brommer]

hallo,

Ik probeer 2 subs aan te roepen in een sub dmv een loop.
Bij de eerste keer gaat het goed maar als de loop verdergaat worden de subs niet meer aangeroepen, als ik staps gewijs er door heen loop dan worden de 2 subs wel geselecteerd maar niet uitgevoerd.

 Sub ButAlles_Click()
CheckBoxBerichten = True
For i = 1 To LstKlanten.ListCount - 1
        If LstKlanten.Selected(i) = True Then
Sheets("voorblad").Select
 Range("A1").Select
 ActiveCell = LstKlanten.List(i)
Call zoekentabbladen
Call CmdVer_Click
 
 End If
 Next i
End Sub

 

[Warme bakkertje]

Om te beginnen volstaat dit al.

Sheets("voorblad").Range("A1") = LstKlanten.List(i)

De rest is af hankelijk van wat de andere macro's moeten uitvoeren, dus voorbeeldbestand of code hier plaatsen.

ps die Call is ook overbodig.
ps2 Plaats je code tussen codetags voor de leesbaarheid.

 

[brommer]

Sub CmdVer_Click()
Set Sourcewb = ActiveWorkbook
    Sheets.Copy
    Set Destwb = ActiveWorkbook
Application.ScreenUpdating = False

 

[Warme bakkertje]

ps2 niet gelezen ?

 

[brommer]

Private Sub zoekentabbladen()
'zoeken in deelnemers aan welke module ze meedoen.
Application.ScreenUpdating = False
Sheets("Voorblad").Select
    Range("A1").Select
     opzoek = ActiveCell
     
  Sheets("Klanten").Select
   Cells.Find(What:=opzoek, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
  
  ActiveCell.Offset(0, 6).Range("A1").Select
mailadres = ActiveCell
ActiveCell.Offset(0, 1).Range("A1").Select
ccmailadres = ActiveCell
ActiveCell.Offset(0, 2).Range("A1").Select
cccontact = ActiveCell

Sheets("voorblad").Select
 Range("b10").Select
 ActiveCell = mailadres
 Range("b11").Select
 ActiveCell = ccmailadres
 Range("b12").Select
 ActiveCell = cccontact
 
    Sheets("Klanten").Select
  
' AireSoPure Kolom Q-R-S
    ActiveCell.Offset(0, 3).Range("A1").Select
    For i = 1 To 3
    'Module S
    ActiveCell.Offset(0, 1).Range("A1").Select
    If ActiveCell = "" Then
    If i = 1 Then
    LstPrint.Selected(18) = True
    End If
    'Module M
    If i = 2 Then
    LstPrint.Selected(19) = True
    LstPrint.Selected(20) = True
    End If
    'Module L
    If i = 3 Then
    LstPrint.Selected(21) = True
    LstPrint.Selected(22) = True
    LstPrint.Selected(23) = True
    End If
    GoTo 1
    End If
1:
    Next i
' Orchidee Kolom u-v-w-x-y
ActiveCell.Offset(0, 1).Range("A1").Select
     For i = 1 To 4
    'Module S
    ActiveCell.Offset(0, 1).Range("A1").Select
    If ActiveCell = "" Then
    If i = 1 Then
    LstPrint.Selected(24) = True
    End If
    'Module M
enz.

 

[brommer]

Sub CmdVer_Click()
Set Sourcewb = ActiveWorkbook
    Sheets.Copy
    Set Destwb = ActiveWorkbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
         For x = 0 To LstPrint.ListCount - 1
            If LstPrint.Selected(x) = True Then Sheets(LstPrint.List(x)).Delete
        Next
    Call UserForm_Initialize
    Application.DisplayAlerts = True
    Call Workbook_opslaan
    ActiveWorkbook.Close SaveChanges:=False
End Sub

ps2 niet gelezen ?

Sorry

 

[Warme bakkertje]

Post een voorbeeldbestand met alle code in om dit alles te verduidelijken, want hier is gewoon niet door te geraken.
Geef duidelijk aan wat de bedoeling is want dit moet veel makkelijker kunnen.
Je springt niet tussen 2 maar als ik kan volgen tussen 3 à 4 modules. Niet verrassend dat dit gewoon in de knoop draait. Je springt gewoon van de ene module in de andere om dan terug te keren naar de 1ste aanroep om dan terug in een volgende te springen. Ik kan gewoon niet meer volgen waar je uiteindelijk uitkomt.

 

[brommer]

Beste,
Ik heb het opgelost de fout zat hem in dat ik een form in een sub had gesloten waar ik nog gegevens uithaal.
Als alles werk ga ik de macro netter maken.
Bedankt voor je reacties