Lav træk fra kolonne B til vandret celle

Er det indholdet af B2:B100 du vil have til stå i B2-C2-D2 osv...?

Hvis ja:
Kopier B3:b100
Marker celle C2
Vælg rediger->Indsæt speciel, Transponer

Hej erikjuul

Ikke helt, alt indhold skal stå i en celle eks. c2, B2:B100 indeholder mailadresser, som skal kopieres ind i outlook.

Så C2 skulle ende med at se sådan her ud:

mail1@domæne.dk;mail2@domæne.dk;mail3@domæne.dk;mail4@domæne.dk....

B2:B100 har den rigtige syntax og jeg vil meget gerne slippe for at bruge indsæt speciel..

Giver det mening??

Du kan evt. gøre sådan her:

Stil dig i C2: =b2&";"&b3&";"&b4..osv.

Det er en langsommelig måde, men måske nogen kan lave dig en makro.

Du kan ikke have 100 mailadresser i en celle!

erikjuul: Hvad med mobilnumre, kan der ikke være ca. 50 af dem??

h_s: kan jeg ikke lave et loop eller en hvis-sætning, noget a la: hvis B ikke er tom, så...??

Forstår ikke helt hvad du mener, men nu prøver jeg:

=Hvis(b2="";"";b2&";")&hvis(b3("";"";b3&";")....

Men du har ret. Du kan ikke have 100 hvissætninger i en celle. Du kan så lave flere og så samle dem i en efterfølgende.

En makro kan "smide" alle adresser over i Outlook automatisk - på grundlag af B2:B100....

Cool, hvordan laver jeg sådan en fætter??

Hvis du sender en mail til: pb(a)supertekst-it DOT dk - så sender jeg en model - vises også herpå Exp.

Rem Der er sat en referencetil Microsoft OutLook (Alt+F11 / VBA-vinduet: Tools / References)
Rem Koden er indsat under Ark1

Const StartRæk = 2
Const slutRæk = 100
Private Sub CommandButton1_Click()
Rem Gennemløb kolonne B fra række 2 - til 100
Rem hvis cellen er udfyldt - anvend denne
Dim mailListe
    mailListe = ""
   
    ActiveWorkbook.Sheets("Ark1").Activate
   
    For række = StartRæk To slutRæk
        adresse = Cells(række, 2)
        If adresse <> "" Then
            mailListe = mailListe + adresse + ";"
        End If
    Next række
   
    afsendMail mailListe
End Sub
Private Sub afsendMail(modtager)
Dim mailApp, Namespace, indbakke, nyMail, nyAtt
Dim emne, vedhft, body

    emne = "TEST -EMNE"
    body = "Dette er en TEST"
   
    On Error GoTo sendMailFejl
   
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nymod = nyMail.Recipients
    Set nyAtt = nyMail.Attachments

    nymod.Add modtager
    nyMail.Subject = emne
    nyMail.body = body
   
    nyMail.Display
    Exit Sub
   
sendMailFejl:
    Stop
    Resume Next
End Sub

Cool! Tak :)

Smid lige et svar

Selv tak - du får et svar..