bij 3 streepje nieuwe cel

[thst]

Hallo allemaal,

Graag zou ik een formule willen hebben voor het volgende;

Ik heb een lange tekst; aap-mies-noot-jan-theo-auto-fiets-kast-stoel-tafel-poot

Dat deze tekst bij 3 streepjes in een andere cel komt.
Cel A1 aap-mies-noot-jan
Cel A2 theo-auto-fiets-kast
Cel A3 stoel-tafel-poot

Angela

 

[JoeyPC]

Hallo

Typ de desbetreffende woorden in Cel A1. Je ziet de woorden doorlopen naar cel B1. Om dit te verkomen klik je op de letter A. Je ziet nu dat de hele A rij geselecteerd is. Als je nu met de cursor tussen de letter A en B gaat staan, kan je de cellen groter maken door de cursor naar rechts te slepen. Nu moeten alle woorden gewoon in cel A1 passen.

Veel succes ermee :thumb:

 

[thst]

Beste JoeyPC,

Dat snap ik wel, maar daar gaat het niet om.
Ik wil gewoon met een formule de tekst in stukken hebben bij 3 streepjes.

Angela

 

[Ginger]

Dat deze tekst bij 3 streepjes in een andere cel komt.

Ehhhh... Tik na twee streepjes en 3 woorden even op het toetsenbord 'pijltje naar rechts'. Dan kan je gelijk door typen.
Sorry hoor, maar ik soms werkelijk enorm verbaasd zijn over wat gebruikers kunnen verzinnen bij het werken in Excel. Je kan naar mijn idee soms ook doorschieten in het automatiseren. Maar dat is mijn persoonlijke mening.

Groet, Leo

 

[thst]

Oke, ik zal dan nu het hele verhaal vertellen.

Er wordt in een cel een lijst gegenereerd met ongeveer 150 e-mail adressen die zijn gescheiden door een ; die zet ik dan in BCC en wordt verzonden.

MAAR 150 e-mail adressen in BCC ziet mijn provider als SPAM het maximum wat ik kan versturen is 50 e-mail adressen in BCC daarna moet ik een volgende e-mail versturen.

Vandaar mijn vraag wie voor mij een formule heeft zoals beschreven in #1

Angela

 

[danny147]

Beste thst

Een poging gewaagd, bij deze.
Zijn de zinnen nog langer ?

Groetjes Danny. :thumb:

 

[thst]

Beste Danny,

Dank voor je reactie, ga er vanavond mee stoeien, op zich ziet het er goed uit.
Moet vandaag nog werken, vandaar.

Angela

 

[Ginger]

Een poging gewaagd:

Keurig Danny! :thumb:

Oke, ik zal dan nu het hele verhaal vertellen.

Dank je! Dat werpt direct een heel ander licht op de zaak (lees: het is nu duidelijk!!!). Ik was nu dan al ff bezig met een stukkie VBA, maar zag dat Danny het al netjes voor je had opgelost met formules. Mocht je nog behoefte hebben aan meer, geef je maar een gil.

Groet, Leo

 

[thst]

Ginger,

Nou een stukje VBA sla ik ook niet af, alleen ben een beetje zuinig geweest met mijn e-mail adressen.

Er kunnen namelijk in een cel 450 e-mail adressen staan, zodat ze in 9 cellen geplaatst moeten worden. ( 50 e-mail adressen / cel)

Angela

 

[snb]

waarom niet alle emailadressen in kolom A, 1 emailadres per cel ?

dan wordt het:

  sq=usedrange.columns(1)
  for j=1 to ubound(sq) step 50
     sq(j,1)="|" & sq(j,1)
  next
  bcc=split(join(worksheetfunction.transpose(sq),";"),"|")

in bbc(0), bbc(1) ,bbc(2) staan nu de emailadresssen, gescheiden door ; in groepjes van 50

 

[thst]

Beste snb,

waarom niet alle emailadressen in kolom A, 1 emailadres per cel ?

omdat ik dan voor iedere e-mail moet klikken om hem te versturen..............

Angela

 

[thst]

Beste snb,

Ik heb nu alle e-mail adressen los per cel in kolom A gezet, maar .................

in bbc(0), bbc(1) ,bbc(2) staan nu de emailadresssen, gescheiden door ; in groepjes van 50

ik zal misschien iets over het hoofd zien, maar ik zie ze nergens staan.
kun je me op weg helpen ?

Angela

 

[snb]

Sub nieuwsbrief()
  sq=Thisworkbook.sheets(1).usedrange.columns(1)
  for j=1 to ubound(sq) step 50
     sq(j,1)="|" & sq(j,1)
  next
  bcc=split(join(worksheetfunction.transpose(sq),";"),"|")
  for j=0 to ubound(bcc)
    with Outlook.createitem(0)
      .to = "angela@thst.nl"
      .Subject = 'Nieuwsbrief van deze maand"
      .Bcc=bcc(j)
      .send
    end with
  Next
End Sub

Zet deze code in een werkboek met 1 werkblad met in kolom A meer dan 50 emailadressen (1 adres per rij; geen lege cellen).
Loop de macro stapsgewijs door ( F8 )

 

[thst]

snb,

ik ga het proberen, zal eerst de lege rijen moeten opvullen, die genereerd die namelijk automatisch. wat in kolom A leeg is komt in kolom B te staan.

Angela

 

[thst]

Beste snb,

krijg nu foutmeldingen in de code.

zie bijgaand bestandje.

Angela

 

[thst]

Hallo allemaal,

Ben de hele middag bezig geweest om de code aan de praat te krijgen, maar ik krijg het niet voor elkaar.

Ik krijg ook helemaal geen reactie meer.
Ik laat het voorlopig maar even zitten.

Angela

 

[snb]

1. open outlook
2. zet in je Excel verwjizing een verwijzing naar OUtlook (VBEditor/menubalk/Extra/verwijzingen/micorsoft outlook 9/10/11 object library aanvinken)
3. gebruik de code die ik je gaf zonder er iets aan te wijzigen.
(Verwijder zonodig Option Explicit)

Sub nieuwsbrief()
    sq = ThisWorkbook.Sheets(1).UsedRange.Columns(1)
    For j = 1 To UBound(sq) Step 50
        sq(j, 1) = "|" & sq(j, 1)
    Next
    bcc = Split(Join(WorksheetFunction.Transpose(sq), ";"), "|")
      
    For j = 0 To UBound(bcc)
        With Outlook.CreateItem(0)
          .To = "angela@thst.nl"
          .Subject = "Nieuwsbrief van deze maand"
          .Body = sheets(1).Range("C18")
          .bcc = bcc(j)
          .send
        End With
    Next
End Sub

PS.

Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

kan veel simpeler en sneller zo:

Open "C:\voorbeeld.txt" for Input As #1
  Sheets(1).Range("C18")=input(LOF(1),#1)
Close #1

 

[thst]

Beste snb, of een ander forum lid,

Ben het hele weekend bezig geweest om deze code werkend te krijgen, heb cursussen van vba doorgelezen, en internet afgezocht, zonder resultaat, ik heb er alleen een heel naar gevoel van overgehouden.

Ik denk dat dit te hoog voor mij gegrepen is, dus kom ik maar weer met beide benen op de grond en dat voelt best prettig.
Heb voor de liefhebbers het bestandje toegevoegd.

Angela