Variable vba

[jli]

Beste Allemaal,

Regel = 9
    For Each c1 In Range("[COLOR="Red"]B[/COLOR]9:[COLOR="red"]B[/COLOR]23")
    With CreateObject("Outlook.application")
      With .CreateItem(0)
       .HTMLBody = Signature
       .To = Range("C25").Value
       .BCC = Cells(Regel, "[COLOR="red"]B[/COLOR]").Value
       .Subject = Range("C27").Value
       .Display
      Regel = Regel + 1
      End With
    End With
      Next c1

Bij deze wil ik vragen:
Graag zou ik willen dat B een variable wordt deze staat in cel C26


Jurgen

 

[Warme bakkertje]

Regel = 9
    For Each c1 In Range([C26] & "9:" & [C26] & "23")
    With CreateObject("Outlook.application")
      With .CreateItem(0)
       .HTMLBody = Signature
       .To = Range("C25").Value
       .BCC = Cells(Regel, [C26]).Value
       .Subject = Range("C27").Value
       .Display
      Regel = Regel + 1
      End With
    End With
      Next c1

 

[jli]

Beste Warme bakkertje,

Dat is het ja, ik zat allemaal te vervelen met () "" maar [] had ik niet geprobeerd.

Hartelijk dank

Jurgen

 

[snb]

Dat kan beter:

With CreateObject("Outlook.application")
     For Each cl In Range([C26] & "9:" & [C26] & "23")
       With .CreateItem(0)
         .HTMLBody = Signature
         .To = Range("C25").Value
         .BCC = cl.Value
         .Subject = Range("C27").Value
         .Send
       End With
     Next
   End With